QTP版“古城钟楼”使用QTP完成微博定时发送脚本代码 @以轩

因为比较简单，话不多说，直接上代码

PS：在QTP9.2及IE7环境下测试通过

 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

相比于原版的3万行代码，这个加上注释和空行总计80行。缺点是得开着QTP和网页啦。

仅供娱乐使用，转载注明出处。