VBS团队请求一个VBS的问题 VBS如何实现暂停脚本?

2025-05-24 10:56:44
推荐回答(4个)
回答(1):

可以参考一下这个

Dim myIE
'建立IE对象
Set myIE=CreateObject("InternetExplorer.application")
'IE是否可视
myIE.Visible=True
'宽度
'myIE.Width =600
'高度
'myIE.Height=300
'X坐标
'myIE.Left=0
'Y坐标
'myIE.Top=0
'是否全屏
'myIE.FullScreen=True
'地址栏是否可见
'myIE.AddressBar=False
'是否显示菜单栏
'myIE.MenuBar=False
'是否显示工具栏
'myIE.ToolBar=False
'IE大小是否可以被改动
'myIE.Resizable=0

'打开网址
myIE.Navigate "www.baidu.com"

'等待IE打开网址完毕
Do While myIE.Busy Or (myIE.READYSTATE <> 4)
'休眠,单位毫秒
Wscript.Sleep 10
Loop

'脚本执行接口, 第二个参数为脚本类型,javascript、vbscript等
'有了脚本接口,其他的页面就都可以用javascript完成了~~
scriptStr = "alert(1)"
myIE.Document.parentWindow.execScript scriptStr, "javascript"

'IE关闭
myIE.quit

'释放对象,清理内存
Set myIE=Nothing

回答(2):

MsgBox后不能操作网页了吗?只要对话框不是模态的(没有用 vbSystemModal)就应该可以操作网页的吧?
必须找到一个方法用脚本判断下一页是否已完全打开,这样才是最可靠的。 单纯靠VBS恐怕难以做到了,像QTP工具里也是通过Web插件来完成的。
AutoIt里有不少IE Management相关的UDF函数,可以试试在VBS里通过COM object方法调用,如下形式:
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.IE方法

回答(3):

可以加个判断句 如果网页窗口句柄改变则暂停脚本 句柄恢复则继续!

回答(4):

加WScript.Sleep 1000 就可以了呀
吧时间延长一点点