中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS 调用AutoItX3.Control过程（SUB）报错

piziliu2004
中级用户

过度热情

积分 321
发帖 139
注册 2006-3-21
状态离线

『楼主』: 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