QTP版“古城钟楼”---使用QTP完成微博定时发送功能

mmsw450

脚本简单，话不多说，直接上代码

1. '*************************************************
   
2. 'Written by  @以轩-之名
   
3. 'Date :  2013年1月11日
   
4. '仅供娱乐和学习使用
   
5. 'QQ：85645204
   
6. '
   
7. '**************************************************
   
8. On Error Resume Next
   
9. 
   
10. Dim HourNow,MinNow   '用以保存当前小时值及分钟值
    
11. 
    
12. While True
    
13. 
    
14.      '获取小时和分钟值
    
15.      HourNow = Hour(Time)
    
16.      MinNow = Minute(Time)
    
17. 
    
18.      '如果分钟值为0；则为整点，进行报时
    
19.      If  MinNow = 0 Then
    
20.          Select Case HourNow
    
21. 
    
22.              Case 23
    
23.                  DangDang "【子时】"
    
24. 
    
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 "【亥时】咚～咚～咚～咚～咚～咚～咚～咚～咚～"
    
57. 
    
58.              Case else
    
59.                  wait 0
    
60.          
    
61.          End Select
    
62.          
    
63.          
    
64.      End If
    
65.      '等待60秒，执行下一循环
    
66.      wait 60
    
67.      
    
68. Wend
    
69. 
    
70. Sub DangDang (txt)
    
71. 
    
72.     With  Browser("micClass:=Browser").Page("micClass:=Page")
    
73. 
    
74.          .WebEdit("class:=input_detail","name:=WebEdit").set txt
    
75.          wait 1
    
76.          .Link("innerhtml:=发布","class:=send_btn").click
    
77. 
    
78.     End with
    
79.      
    
80. End Sub

复制代码

我的原文：
http://www.cnblogs.com/zhm450/archive/2013/01/11/2856318.html

test-yao

有点意思

xiaoshi_2011

学习了

mmsw450

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

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

     感谢cellule君提供的思路；
     之前因为考虑执行 dangdang 过程时，也需要一定的时间，且时间不固定，所以没有把waittime进行度量；

65xl

好贴子

黑羽祭

回复 12# cellule


    之前你写的是(6-MinNow)，所以我纳闷了一下。

cellule

回复 11# 黑羽祭

时间不会等于60.。。。。
(60-MinNow)*60值会大于60，后面的那个减数不会大于60，所以这个waitTime不会<0，米验证过，我算的时候考虑了下，真实的 就不知道了

黑羽祭

回复 10# cellule


    WaitTime=(6-MinNow)*60-SecondNow？？、
你是想WaitTime=(60-MinNow)*60-SecondNow么？
这个也不保险，还要看你句子放哪，而且搞不好wait还负数。
想减少一遍遍跑的次数，可以在每次"咚～咚～咚～咚～"打印后Case里，wait个58*60的样子。

cellule

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

HourNow = Hour(Time)
MinNow = Minute(Time)
SecondNow=Second(Time)
WaitTime=(60-MinNow)*60-SecondNow
你把等待时间动态化，不是更好。。。。不用这么一遍一遍的跑

黑羽祭

回复 8# mmsw450


    嗯~

mmsw450

回复 6# 黑羽祭


    12小时制下，获取到的时间和24小时制一样；看来是不用改代码了。哈哈

mmsw450

回复 6# 黑羽祭


    改成12小时制，获取时间时，仍和24小时一致。 看来代码是不用改了啊  呵呵

黑羽祭

回复 5# mmsw450


    嗯~
等待1.1版本~

mmsw450

4#

那我再改改，兼容一下12小时制

黑羽祭

有点意思~写的不错。
不知道如果电脑设置的是12小时制会不会有影响。
谁来跑个一天看看QTP会不会崩溃~

赵佳乐SMILE

好猛啊

mmsw450

在QTP9.2 IE7下测试通过

有微博的朋友可以玩玩