51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2984|回复: 14
打印 上一主题 下一主题

[原创] 小小技巧

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-8-17 09:33:49 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在调试过程中,经常要用到msgbox 弹出一个值
但每次都要点击后才能继续运行脚本,的确有点不爽
下面两行代码可以解决这点不爽
       Set WshShell = CreateObject("WScript.Shell")
       WshShell.Popup "123456789", 2, "标题"
2:表示,停顿两秒
小小技巧与大家分享。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-8-17 09:39:19 | 只看该作者
不错哈
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2007-8-17 09:39:33 | 只看该作者
顶起
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-8-17 09:43:56 | 只看该作者
谢谢楼主哈,我试了下,可以也
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2015-3-12 14:20
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    5#
    发表于 2007-8-17 10:05:59 | 只看该作者
    那为什么不用print?
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
     楼主| 发表于 2007-8-17 10:23:08 | 只看该作者
    用MSGBOX  习惯了。。。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    7#
    发表于 2007-8-21 08:37:16 | 只看该作者
    恩 不错啊  sdlkfj2
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    8#
    发表于 2007-8-21 09:32:20 | 只看该作者
    学习了
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    9#
    发表于 2007-8-21 10:54:21 | 只看该作者
    的确是个解决不爽的好方法!!
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    10#
    发表于 2007-8-21 15:54:31 | 只看该作者

    回复 #1 dyq 的帖子

    不错,的确是爽,不过2秒太短了,我还想多看她一眼呢,5秒吧
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    11#
    发表于 2007-8-21 16:14:41 | 只看该作者
    原帖由 marco 于 2007-8-17 10:05 发表
    那为什么不用print?
    哦,还有Print语句,刚才也试过了,可以在QTP打印日志窗口上打印出来,如:
    1. Set FlightsList = Window("Flight Reservation").Dialog("Flights Table").WinList("From")
    2. For i = 1 to FlightsList.GetItemsCount
    3.      Print FlightsList.GetItem(i - 1)
    4. Next
    复制代码
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    12#
    发表于 2007-8-21 17:54:12 | 只看该作者
    谢谢楼主
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    13#
    发表于 2007-8-21 22:55:26 | 只看该作者
    Example
    The following code generates a simple pop-up window.

    [VBScript]
    Dim WshShell, BtnCode
    Set WshShell = WScript.CreateObject("WScript.Shell")

    BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32)

    Select Case BtnCode
       case 6      WScript.Echo "Glad to hear you feel alright."
       case 7      WScript.Echo "Hope you're feeling better soon."
       case -1     WScript.Echo "Is there anybody out there?"
    End Select
    [JScript]
    var WshShell = WScript.CreateObject("WScript.Shell");
    var BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32);
    switch(BtnCode) {
       case 6:
          WScript.Echo("Glad to hear you feel alright.");
          break;
       case 7:
          WScript.Echo("Hope you're feeling better soon.");
          break;
       case -1:
          WScript.Echo("Is there anybody out there?");
          break;
    }
    See Also
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    2015-3-12 14:20
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    14#
    发表于 2007-8-22 09:36:54 | 只看该作者
    原帖由 dyq 于 2007-8-17 10:23 发表
    用MSGBOX  习惯了。。。

    习惯是用来改变的
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    15#
    发表于 2007-8-22 14:24:08 | 只看该作者
    感谢
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-8 05:35 , Processed in 0.075712 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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