vbs代码改vb代码

显示全部楼层 · 2010-11-26 13:06:35

以下代码为登陆qq的vbs代码
dim program
program="D:\QQ\Bin\QQ.exe" '你的qq路径
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)
wscript.Sleep 2000
Wshell.AppActivate "QQTang"
Wshell.SendKeys "+{TAB}"
Wshell.SendKeys "3456443"
wscript.Sleep 1000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "6784332r"
wscript.Sleep 1000
Wshell.SendKeys "{ENTER}"
这一段代码用在qq上好使，但我如果改用在51彩虹
dim program
program="D:\Program Files\CaiHong\CaiHong.exe" '你的qq路径
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)
wscript.Sleep 2000
Wshell.AppActivate "QQTang"
Wshell.SendKeys "+{TAB}"
Wshell.SendKeys "193345671"
wscript.Sleep 1000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "234rrtt"
wscript.Sleep 1000
Wshell.SendKeys "{ENTER}"
就不好使了呢，该如何改
要是改成51彩虹的vb代码又该如何改呢

千问 · 2010-11-26 13:06:35

我没有用过51彩虹所以界面不知道我大致给你讲讲程序的意思你自己修改吧Wshell.AppActivate "QQTang"激活窗口把按键信息发送给这个wscript.Sleep 2000延时2秒Wshell.SendKeys "+{TAB}"注意这个是把光标移动到下一个TEXT框比如光标在QQ 号就会移动到密码框内Wshell.SendKeys "{ENTER}"
发送按键回车你自己看看51 几个框还有激活窗口那个需要改看看删除可以不