中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-12 23:29
47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术(批处理室) » VBS 调用AutoItX3.Control过程(SUB)报错
可打印版本  837 / 1
第1楼 piziliu2004 发表于 2010-01-10 20:04
中级用户 发帖 139 积分 321
VBS 调用AutoItX3.Control过程(SUB)报错
在利用VBS 调用AutoItX3.Control的函数报错 提示:
编译错误 调用过程(SUB)时不能使用括号。就是oAutoIt.WinWait
oAutoIt.WinActive,oAutoIt.WinActive都不能接两个参数在括号里面。
真郁闷。希望高人指点。急。
如下是我的代码:


Dim strInstallPath
strInstallPath="D:\driver\10A_08222006\10A_08222006\WinXP\Audio\setup.exe"
call Install(strInstallPath)

Function Install(strInstallPath)
StrInstallTitle="Realtek High Definition Audio Driver Setup (1.91)"
StrInstallText="InstallShield(R) Wizard"
StrNextText="是,立即重新启动计算机"
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.Run(strInstallPath)
oAutoIt.WinWait(StrInstallTitle,StrInstallText)
If Not oAutoIt.WinActive(StrInstallTitle,StrInstallText) then oAutoIt.WinActivate(StrInstallTitle,StrInstallText)
oAutoIt.WinWaitActive(StrInstallTitle,StrInstallText)
oAutoIt.Send("!n")
oAutoIt.Sleep(1000)
oAutoIt.WinWait(StrInstallTitle,StrNextText)
If Not oAutoIt.WinActive(StrInstallTitle,StrNextText) then oAutoIt.WinActivate(StrInstallTitle,StrNextText)
oAutoIt.WinWaitActive("Realtek High Definition Audio Driver Setup (1.91)",StrNextText)
'oAutoIt.Sleep(45000)
oAutoIt.Send("{DOWN}")
oAutoIt.Send("{ENTER}")
End Function
第2楼 everest79 发表于 2010-01-10 23:26
金牌会员 发帖 1,127 积分 2,564
call sub(var1,var2)
sub var1,var2
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023