‘测试交流群：288793120
QTP版“古城钟楼”---使用QTP完成微博定时发送功能
上一篇 /
下一篇 2013-01-11 14:39:26
/ 个人分类：QTP
因为比较简单，话不多说，直接上代码
'*************************************************
'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
相关阅读:
- 【QTP】增强QTP DEBUG能力 (黑羽祭, 2012-12-31)
- QTP里类（Class）的用法 (wonderful4228, 2013-1-03)
- 【QTP】增强QTP DEBUG能力 (xin_晴, 2013-1-05)
- 登录功能自动化测试 (jing17, 2013-1-05)
- QTP:为描述性编程自动创建注释 (lihailing, 2013-1-06)
- QTP脚本中设置等待时间 (lihailing, 2013-1-06)
- QTP:强制退出 (lihailing, 2013-1-06)
- 使用函数并输出当前时间 (lihailing, 2013-1-07)
- QTP快速添加数据库检查点 (lihailing, 2013-1-09)
- QTP:"+"和"&"的区别 (lihailing, 2013-1-10)
收藏
举报
TAG:
微博
QTP
自动
