![]() |
中国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 |