小小技巧

dyq

在调试过程中，经常要用到msgbox 弹出一个值
但每次都要点击后才能继续运行脚本，的确有点不爽
下面两行代码可以解决这点不爽
       Set WshShell = CreateObject("WScript.Shell")
       WshShell.Popup "123456789", 2, "标题"
2:表示，停顿两秒
小小技巧与大家分享。

bobile

不错哈

bobile

顶起

bobile

谢谢楼主哈，我试了下，可以也

marco

那为什么不用print？

dyq

用MSGBOX  习惯了。。。

lgs0508

恩 不错啊  sdlkfj2

syang0517

学习了

coletan

的确是个解决不爽的好方法！！

gzj_06

不错，的确是爽，不过2秒太短了，我还想多看她一眼呢，5秒吧

gzj_06

原帖由 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

谢谢楼主

wasd2615

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

原帖由 dyq 于 2007-8-17 10:23 发表
用MSGBOX  习惯了。。。

习惯是用来改变的

yuandjing

感谢