中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-12 22:27
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » VBS 调用AutoItX3.Control过程(SUB)报错 查看 834 回复 1
楼 主 VBS 调用AutoItX3.Control过程(SUB)报错 发表于 2010-01-10 20:04 ·  中国 江苏 苏州 电信
中级用户
★★
过度热情
积分 321
发帖 139
注册 2006-03-21 17:19
20年会员
UID 52521
性别 男
状态 离线
在利用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 发表于 2010-01-10 23:26 ·  中国 广东 广州 天河区 电信
金牌会员
★★★★
一叶枝头,万树皆春
积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别 男
状态 离线
call sub(var1,var2)
sub var1,var2
49206C6F766520796F752067757973 54656C3A3133383238343036373837
论坛跳转: