51Testing软件测试论坛

标题: QTP版“古城钟楼”---使用QTP完成微博定时发送功能 [打印本页]
作者: mmsw450    时间: 2013-1-11 15:05
标题: QTP版“古城钟楼”---使用QTP完成微博定时发送功能
脚本简单，话不多说，直接上代码
  1. '*************************************************
  2. 'Written by  @以轩-之名
  3. 'Date :  2013年1月11日
  4. '仅供娱乐和学习使用
  5. 'QQ：85645204
  6. '
  7. '**************************************************
  8. On Error Resume Next

  10. Dim HourNow,MinNow   '用以保存当前小时值及分钟值

  12. While True

  14.      '获取小时和分钟值
  15.      HourNow = Hour(Time)
  16.      MinNow = Minute(Time)

  18.      '如果分钟值为0；则为整点，进行报时
  19.      If  MinNow = 0 Then
  20.          Select Case HourNow

  22.              Case 23
  23.                  DangDang "【子时】"

  25.              Case 1
  26.                  DangDang "【丑时】咚～"
  27.             
  28.              Case 3
  29.                  DangDang "【寅时】咚～咚～咚～"
  30.             
  31.              Case 5
  32.                  DangDang "【卯时】咚～咚～咚～咚～咚～"
  33.             
  34.              Case 7
  35.                  DangDang "【辰时】咚～咚～咚～咚～咚～咚～咚～"
  36.             
  37.              Case 9
  38.                  DangDang "【巳时】咚～咚～咚～咚～咚～咚～咚～咚～咚～"
  39.             
  40.              Case 11
  41.                  DangDang "【午时】咚～咚～咚～咚～咚～咚～咚～咚～咚～咚～咚～"
  42.             
  43.              Case 13
  44.                  DangDang "【未时】咚～"
  45.             
  46.              Case 15
  47.                  DangDang "【申时】咚～咚～咚～"
  48.             
  49.              Case 17
  50.                  DangDang "【酉时】咚～咚～咚～咚～咚～"
  51.             
  52.              Case 19
  53.                  DangDang "【戌时】咚～咚～咚～咚～ 咚～咚～咚～"
  54.             
  55.              Case 21
  56.                  DangDang "【亥时】咚～咚～咚～咚～咚～咚～咚～咚～咚～"

  58.              Case else
  59.                  wait 0
  60.          
  61.          End Select
  62.          
  63.          
  64.      End If
  65.      '等待60秒，执行下一循环
  66.      wait 60
  67.      
  68. Wend

  70. Sub DangDang (txt)

  72.     With  Browser("micClass:=Browser").Page("micClass:=Page")

  74.          .WebEdit("class:=input_detail","name:=WebEdit").set txt
  75.          wait 1
  76.          .Link("innerhtml:=发布","class:=send_btn").click

  78.     End with
  79.      
  80. End Sub
复制代码
我的原文：
http://www.cnblogs.com/zhm450/archive/2013/01/11/2856318.html
作者: mmsw450    时间: 2013-1-11 15:20
在QTP9.2 IE7下测试通过

有微博的朋友可以玩玩
作者: 赵佳乐SMILE    时间: 2013-1-11 15:56
好猛啊
作者: 黑羽祭    时间: 2013-1-11 16:41
有点意思~写的不错。
不知道如果电脑设置的是12小时制会不会有影响。
谁来跑个一天看看QTP会不会崩溃~
作者: mmsw450    时间: 2013-1-11 16:48
4#

那我再改改，兼容一下12小时制
作者: 黑羽祭    时间: 2013-1-11 16:54
回复 5# mmsw450


    嗯~
等待1.1版本~
作者: mmsw450    时间: 2013-1-11 18:02
回复 6# 黑羽祭


    改成12小时制，获取时间时，仍和24小时一致。 看来代码是不用改了啊  呵呵
作者: mmsw450    时间: 2013-1-11 20:55
回复 6# 黑羽祭


    12小时制下，获取到的时间和24小时制一样；看来是不用改代码了。哈哈
作者: 黑羽祭    时间: 2013-1-14 08:49
回复 8# mmsw450


    嗯~
作者: cellule    时间: 2013-1-14 14:07
本帖最后由 cellule 于 2013-1-14 14:15 编辑

你这是要有多蛋疼。。。。

HourNow = Hour(Time)
MinNow = Minute(Time)
SecondNow=Second(Time)
WaitTime=(60-MinNow)*60-SecondNow
你把等待时间动态化，不是更好。。。。不用这么一遍一遍的跑
作者: 黑羽祭    时间: 2013-1-14 14:22
回复 10# cellule


    WaitTime=(6-MinNow)*60-SecondNow？？、
你是想WaitTime=(60-MinNow)*60-SecondNow么？
这个也不保险，还要看你句子放哪，而且搞不好wait还负数。
想减少一遍遍跑的次数，可以在每次"咚～咚～咚～咚～"打印后Case里，wait个58*60的样子。
作者: cellule    时间: 2013-1-14 14:43
回复 11# 黑羽祭

时间不会等于60.。。。。
(60-MinNow)*60值会大于60，后面的那个减数不会大于60，所以这个waitTime不会<0，米验证过，我算的时候考虑了下，真实的 就不知道了
作者: 黑羽祭    时间: 2013-1-14 15:22
回复 12# cellule


    之前你写的是(6-MinNow)，所以我纳闷了一下。
作者: 65xl    时间: 2013-1-14 16:45
好贴子
作者: mmsw450    时间: 2013-1-15 11:02
你这是要有多蛋疼。。。。

HourNow = Hour(Time)
MinNow = Minute(Time)
SecondNow=Second(Time)
Wai ...
cellule 发表于 2013-1-14 14:07 q


     感谢cellule君提供的思路；
     之前因为考虑执行 dangdang 过程时，也需要一定的时间，且时间不固定，所以没有把waittime进行度量；
作者: xiaoshi_2011    时间: 2013-1-18 14:59
学习了
作者: test-yao    时间: 2013-1-23 13:07
有点意思



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2