mmsw450 发表于 2013-1-11 15:05:42

QTP版“古城钟楼”---使用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；则为整点，进行报时
   IfMinNow = 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)

    WithBrowser("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

mmsw450 发表于 2013-1-11 15:20:36

在QTP9.2 IE7下测试通过

有微博的朋友可以玩玩

赵佳乐SMILE 发表于 2013-1-11 15:56:20

好猛啊

黑羽祭 发表于 2013-1-11 16:41:43

有点意思~写的不错。
不知道如果电脑设置的是12小时制会不会有影响。
谁来跑个一天看看QTP会不会崩溃~:D

mmsw450 发表于 2013-1-11 16:48:34

4#
那我再改改，兼容一下12小时制 :lol

黑羽祭 发表于 2013-1-11 16:54:03

回复 5# mmsw450


    嗯~
等待1.1版本~:lol

mmsw450 发表于 2013-1-11 18:02:07

回复 6# 黑羽祭


    改成12小时制，获取时间时，仍和24小时一致。 看来代码是不用改了啊呵呵

mmsw450 发表于 2013-1-11 20:55:15

回复 6# 黑羽祭


    12小时制下，获取到的时间和24小时制一样；看来是不用改代码了。哈哈

黑羽祭 发表于 2013-1-14 08:49:44

回复 8# mmsw450


    嗯~:lol

cellule 发表于 2013-1-14 14:07:28

本帖最后由 cellule 于 2013-1-14 14:15 编辑

你这是要有多蛋疼。。。。

HourNow = Hour(Time)
MinNow = Minute(Time)
SecondNow=Second(Time)
WaitTime=(60-MinNow)*60-SecondNow
你把等待时间动态化，不是更好。。。。不用这么一遍一遍的跑

黑羽祭 发表于 2013-1-14 14:22:49

回复 10# cellule


    WaitTime=(6-MinNow)*60-SecondNow？？、
你是想WaitTime=(60-MinNow)*60-SecondNow么？
这个也不保险，还要看你句子放哪，而且搞不好wait还负数。
想减少一遍遍跑的次数，可以在每次"咚～咚～咚～咚～"打印后Case里，wait个58*60的样子。

cellule 发表于 2013-1-14 14:43:11

回复 11# 黑羽祭

时间不会等于60.。。。。
(60-MinNow)*60值会大于60，后面的那个减数不会大于60，所以这个waitTime不会<0，米验证过，我算的时候考虑了下，真实的 就不知道了

黑羽祭 发表于 2013-1-14 15:22:11

回复 12# cellule


    之前你写的是(6-MinNow)，所以我纳闷了一下。

65xl 发表于 2013-1-14 16:45:23

好贴子

mmsw450 发表于 2013-1-15 11:02:42

你这是要有多蛋疼。。。。

HourNow = Hour(Time)
MinNow = Minute(Time)
SecondNow=Second(Time)
Wai ...
cellule 发表于 2013-1-14 14:07 qhttp://bbs.51testing.com/images/common/back.gif

   感谢cellule君提供的思路；
   之前因为考虑执行 dangdang 过程时，也需要一定的时间，且时间不固定，所以没有把waittime进行度量；

xiaoshi_2011 发表于 2013-1-18 14:59:52

学习了

test-yao 发表于 2013-1-23 13:07:52

有点意思
页: [1]
查看完整版本: QTP版“古城钟楼”---使用QTP完成微博定时发送功能