QTP 怎么支持Wscript.Sleep

Posted 2023-04-04

在QTP 检测IE加载状态时，其中我写到 Wscript.Sleep 1 (我就是要等1毫秒)
但是执行的时候总是说： 缺少对象："Wscript"
有人说是浏览器解析脚本的时候，由于安全原因不会调用Wscript对象。。。
我想知道怎么解决

参考技术A 是你没有创建对象
例：
Set WshShell=WScript.CreateObject("WScript.Shell")

WScript.Sleep 500 参考技术B wait 0 , 1
后面参数是毫秒，前面是秒，但实际上毫秒不太精确 参考技术C 这个脚本不好用，您要实现什么功能 参考技术D 可以用 wait(1)

VBS小脚本_ 玩坏键盘的指示灯

代码简单，功能好玩，富有趣味

1 set ws=wscript.createobject("wscript.shell")
2 do
3 wscript.sleep 50
4 ws.sendkeys"{NUMLOCK}"
5 wscript.sleep 50
6 ws.sendkeys"{CAPSLOCK}"
7 wscript.sleep 50
8 ws.sendkeys"{SCROLLLOCK}"
9 Loop

效果吗，发挥想象

简单介绍：

1，set  ws创建对象

2，do...Loop 为无限循环

3，ws.sendkeys 为按键模拟

4，wscript.sleep 50  为暂停的时间

其他补充：

sendkeys    用于输入键盘按键    appactivate 用于聚焦程序

on error resume next

set ws = createObject("wscript.shell")

appactiveate可以指定title 或者 pid

如下

(1)指定标题

ws.run "notepad.exe"

wscript.sleep 1000

ws.appactivate("无标题-记事本")

ws.sendkeys "abc"

wscript quit

因为脚本运行速度 大于 记事本打开速度 ，因此需要延迟1秒

(2)指定pid

ws.run "calc"

wscript.sleep 1000

ws.appactivate("2936")

ws.sendkeys "35"

wscript.quit

在记事本上写内容

ws.run "notepad.exe"

wscript.sleep 1000

ws.appactivate "无标题-记事本"

ws.sendkeys "{capslock}abc{enter}"

ws.sendkeys "{capslock}+ab+c{enter}"

ws.sendkeys "+(abc)"

在记事本上指定按键数量

ws.run "notepad.exe"

wscript.sleep 1000

ws.sendkeys "{tab 6} {H 3}"

ws.sendkeys "{ }"  ‘发送空格