51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4476|回复: 16
打印 上一主题 下一主题

[原创] QTP版“古城钟楼”---使用QTP完成微博定时发送功能

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2013-1-11 15:05:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
脚本简单,话不多说,直接上代码
  1. '*************************************************
  2. 'Written by  @以轩-之名
  3. 'Date :  2013年1月11日
  4. '仅供娱乐和学习使用
  5. 'QQ:85645204
  6. '
  7. '**************************************************
  8. On Error Resume Next

  9. Dim HourNow,MinNow   '用以保存当前小时值及分钟值

  10. While True

  11.      '获取小时和分钟值
  12.      HourNow = Hour(Time)
  13.      MinNow = Minute(Time)

  14.      '如果分钟值为0;则为整点,进行报时
  15.      If  MinNow = 0 Then
  16.          Select Case HourNow

  17.              Case 23
  18.                  DangDang "【子时】"

  19.              Case 1
  20.                  DangDang "【丑时】咚~"
  21.             
  22.              Case 3
  23.                  DangDang "【寅时】咚~咚~咚~"
  24.             
  25.              Case 5
  26.                  DangDang "【卯时】咚~咚~咚~咚~咚~"
  27.             
  28.              Case 7
  29.                  DangDang "【辰时】咚~咚~咚~咚~咚~咚~咚~"
  30.             
  31.              Case 9
  32.                  DangDang "【巳时】咚~咚~咚~咚~咚~咚~咚~咚~咚~"
  33.             
  34.              Case 11
  35.                  DangDang "【午时】咚~咚~咚~咚~咚~咚~咚~咚~咚~咚~咚~"
  36.             
  37.              Case 13
  38.                  DangDang "【未时】咚~"
  39.             
  40.              Case 15
  41.                  DangDang "【申时】咚~咚~咚~"
  42.             
  43.              Case 17
  44.                  DangDang "【酉时】咚~咚~咚~咚~咚~"
  45.             
  46.              Case 19
  47.                  DangDang "【戌时】咚~咚~咚~咚~ 咚~咚~咚~"
  48.             
  49.              Case 21
  50.                  DangDang "【亥时】咚~咚~咚~咚~咚~咚~咚~咚~咚~"

  51.              Case else
  52.                  wait 0
  53.          
  54.          End Select
  55.          
  56.          
  57.      End If
  58.      '等待60秒,执行下一循环
  59.      wait 60
  60.      
  61. Wend

  62. Sub DangDang (txt)

  63.     With  Browser("micClass:=Browser").Page("micClass:=Page")

  64.          .WebEdit("class:=input_detail","name:=WebEdit").set txt
  65.          wait 1
  66.          .Link("innerhtml:=发布","class:=send_btn").click

  67.     End with
  68.      
  69. End Sub
复制代码
我的原文:
http://www.cnblogs.com/zhm450/archive/2013/01/11/2856318.html
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2013-1-11 15:20:36 | 只看该作者
在QTP9.2 IE7下测试通过

有微博的朋友可以玩玩
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2024-10-4 10:34
  • 签到天数: 1208 天

    连续签到: 1 天

    [LV.10]测试总司令

    3#
    发表于 2013-1-11 15:56:20 | 只看该作者
    好猛啊
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    4#
    发表于 2013-1-11 16:41:43 | 只看该作者
    有点意思~写的不错。
    不知道如果电脑设置的是12小时制会不会有影响。
    谁来跑个一天看看QTP会不会崩溃~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2013-1-11 16:48:34 | 只看该作者
    4#

    那我再改改,兼容一下12小时制
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    6#
    发表于 2013-1-11 16:54:03 | 只看该作者
    回复 5# mmsw450


        嗯~
    等待1.1版本~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
     楼主| 发表于 2013-1-11 18:02:07 | 只看该作者
    回复 6# 黑羽祭


        改成12小时制,获取时间时,仍和24小时一致。 看来代码是不用改了啊  呵呵
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
     楼主| 发表于 2013-1-11 20:55:15 | 只看该作者
    回复 6# 黑羽祭


        12小时制下,获取到的时间和24小时制一样;看来是不用改代码了。哈哈
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    9#
    发表于 2013-1-14 08:49:44 | 只看该作者
    回复 8# mmsw450


        嗯~
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
    发表于 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
    你把等待时间动态化,不是更好。。。。不用这么一遍一遍的跑
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    11#
    发表于 2013-1-14 14:22:49 | 只看该作者
    回复 10# cellule


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

    使用道具 举报

    该用户从未签到

    12#
    发表于 2013-1-14 14:43:11 | 只看该作者
    回复 11# 黑羽祭

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

    使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    13#
    发表于 2013-1-14 15:22:11 | 只看该作者
    回复 12# cellule


        之前你写的是(6-MinNow),所以我纳闷了一下。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    14#
    发表于 2013-1-14 16:45:23 | 只看该作者
    好贴子
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    15#
     楼主| 发表于 2013-1-15 11:02:42 | 只看该作者
    你这是要有多蛋疼。。。。

    HourNow = Hour(Time)
    MinNow = Minute(Time)
    SecondNow=Second(Time)
    Wai ...
    cellule 发表于 2013-1-14 14:07 q


         感谢cellule君提供的思路;
         之前因为考虑执行 dangdang 过程时,也需要一定的时间,且时间不固定,所以没有把waittime进行度量;
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    擦汗
    2016-3-16 15:27
  • 签到天数: 25 天

    连续签到: 1 天

    [LV.4]测试营长

    16#
    发表于 2013-1-18 14:59:52 | 只看该作者
    学习了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    17#
    发表于 2013-1-23 13:07:52 | 只看该作者
    有点意思
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-7 21:15 , Processed in 0.081256 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表