标题: VBS 调用AutoItX3.Control过程（SUB）报错 [打印本页]

---

作者: piziliu2004     时间: 2010-1-10 20:04    标题: 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

---

作者: everest79     时间: 2010-1-10 23:26
call sub(var1,var2)
sub var1,var2