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