QQを開いて自分でユーザー名とパスワードのvbsスクリプトを入力させます
598 ワード
QQを定期的に開き、ユーザー名とパスワードを自分で入力できるスクリプト
dim program
program="c:\Program Files\Tencent\qq\QQ.exe" ' qq
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)
wscript.Sleep 2000
Wshell.AppActivate "QQTang"
Wshell.SendKeys "+{TAB}"
Wshell.SendKeys "QQ "
wscript.Sleep 1000
Wshell.SendKeys "{TAB}"
Wshell.SendKeys "QQ "
wscript.Sleep 1000
Wshell.SendKeys "{ENTER}"