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