因为比较简单，话不多说，直接上代码
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和网页啦。
仅供娱乐使用，转载注明出处。