关于vbs的tba不能激活输入框和输入框无光标指示的问题

[okok588]

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 "oexec"
Wshell.SendKeys "+{TAB}"
Wshell.SendKeys "193345671"
wscript.Sleep 1000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "234rrtt"
wscript.Sleep 1000
Wshell.SendKeys "{ENTER}"

就不好使了呢，该如何改，账号框和密码框一点反应也没有，好像tab不能激活输入框和密码框，现在可以启动51彩虹，还有就是，51彩虹界面刚弹出是没有光标的，qq是有的，这个是和qq有区别的，哪位大哥给改一下51彩虹可用的

[dbcontrols]

又是CreateObject，祸害了多少人，论坛表面上是热闹了，实际上水平急剧下降，来的全是某人QQ群里的

[okok588]

谁的qq群？大哥你给看看咋改

[okok588]

泰山大哥