|
脚本简单,话不多说,直接上代码- '*************************************************
- 'Written by @以轩-之名
- 'Date : 2013年1月11日
- '仅供娱乐和学习使用
- 'QQ:85645204
- '
- '**************************************************
- On Error Resume Next
-
- Dim HourNow,MinNow '用以保存当前小时值及分钟值
-
- While True
-
- '获取小时和分钟值
- HourNow = Hour(Time)
- MinNow = Minute(Time)
-
- '如果分钟值为0;则为整点,进行报时
- If MinNow = 0 Then
- Select Case HourNow
-
- Case 23
- DangDang "【子时】"
-
- Case 1
- DangDang "【丑时】咚~"
-
- Case 3
- DangDang "【寅时】咚~咚~咚~"
-
- Case 5
- DangDang "【卯时】咚~咚~咚~咚~咚~"
-
- Case 7
- DangDang "【辰时】咚~咚~咚~咚~咚~咚~咚~"
-
- Case 9
- DangDang "【巳时】咚~咚~咚~咚~咚~咚~咚~咚~咚~"
-
- Case 11
- DangDang "【午时】咚~咚~咚~咚~咚~咚~咚~咚~咚~咚~咚~"
-
- Case 13
- DangDang "【未时】咚~"
-
- Case 15
- DangDang "【申时】咚~咚~咚~"
-
- Case 17
- DangDang "【酉时】咚~咚~咚~咚~咚~"
-
- Case 19
- DangDang "【戌时】咚~咚~咚~咚~ 咚~咚~咚~"
-
- Case 21
- DangDang "【亥时】咚~咚~咚~咚~咚~咚~咚~咚~咚~"
-
- Case else
- wait 0
-
- End Select
-
-
- End If
- '等待60秒,执行下一循环
- wait 60
-
- Wend
-
- Sub DangDang (txt)
-
- With Browser("micClass:=Browser").Page("micClass:=Page")
-
- .WebEdit("class:=input_detail","name:=WebEdit").set txt
- wait 1
- .Link("innerhtml:=发布","class:=send_btn").click
-
- End with
-
- End Sub
复制代码 我的原文:
http://www.cnblogs.com/zhm450/archive/2013/01/11/2856318.html |
|