51Testing软件测试论坛

标题: 小小技巧 [打印本页]

作者: dyq    时间: 2007-8-17 09:33
标题: 小小技巧
在调试过程中,经常要用到msgbox 弹出一个值
但每次都要点击后才能继续运行脚本,的确有点不爽
下面两行代码可以解决这点不爽
       Set WshShell = CreateObject("WScript.Shell")
       WshShell.Popup "123456789", 2, "标题"
2:表示,停顿两秒
小小技巧与大家分享。
作者: bobile    时间: 2007-8-17 09:39
不错哈
作者: bobile    时间: 2007-8-17 09:39
顶起
作者: bobile    时间: 2007-8-17 09:43
谢谢楼主哈,我试了下,可以也
作者: marco    时间: 2007-8-17 10:05
那为什么不用print?
作者: dyq    时间: 2007-8-17 10:23
用MSGBOX  习惯了。。。
作者: lgs0508    时间: 2007-8-21 08:37
恩 不错啊  sdlkfj2
作者: syang0517    时间: 2007-8-21 09:32
学习了
作者: coletan    时间: 2007-8-21 10:54
的确是个解决不爽的好方法!!
作者: gzj_06    时间: 2007-8-21 15:54
标题: 回复 #1 dyq 的帖子
不错,的确是爽,不过2秒太短了,我还想多看她一眼呢,5秒吧
作者: gzj_06    时间: 2007-8-21 16:14
原帖由 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
复制代码

作者: jiangdanyang    时间: 2007-8-21 17:54
谢谢楼主
作者: wasd2615    时间: 2007-8-21 22:55
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
作者: marco    时间: 2007-8-22 09:36
原帖由 dyq 于 2007-8-17 10:23 发表
用MSGBOX  习惯了。。。

习惯是用来改变的
作者: yuandjing    时间: 2007-8-22 14:24
感谢




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2