中国DOS联盟论坛

中国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)报错
作者:
标题: VBS 调用AutoItX3.Control过程(SUB)报错 上一主题 | 下一主题
piziliu2004
中级用户

过度热情


积分 321
发帖 139
注册 2006-3-21
状态 离线
『楼 主』:  VBS 调用AutoItX3.Control过程(SUB)报错 使用 LLM 解释/回答一下

在利用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




知识在于不断积累
2010-1-10 20:04
查看资料  发送邮件  发短消息  网志  OICQ (16750931)  编辑帖子  回复  引用回复
everest79
金牌会员

一叶枝头,万树皆春



积分 2564
发帖 1127
注册 2006-12-25
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下

call sub(var1,var2)
sub var1,var2




49206C6F766520796F752067757973 54656C3A3133383238343036373837
2010-1-10 23:26
查看资料  发短消息  网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: