脚本 一键登陆ＱＱ

゛.餖漿﹏.o

Dim Program1
% O, B% q  q. H$ o6 RProgram1= "qq所在的目录"
Set WshShell=createobject("wscript.shell")
7 g* o! h* S! M6 l$ A& gSet oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
( S9 z; k* `/ P1 r( CWshShell.AppActivate "Q登录"
% W3 b- W2 d) z3 \1 v) [WshShell.SendKeys "+{TAB}"
1 S/ m  \  r2 c# w0 h0 GWshShell.SendKeys "你的qq号"
WScript.Sleep 200
: J7 p7 b# T% Z: I% v2 SWshShell.SendKeys "{TAB}"
8 C/ @3 M1 |: ?4 o# u9 YWshShell.SendKeys "你的qq密码"
' t! h, Q+ a1 F) U. _* @3 cWScript.Sleep 200
5 Q0 y5 ~2 ^( E; X+ U" GWshShell.SendKeys "{ENTER}"


把上面的写到写字版上．保存为XX.vbs的格式
5 W! _; _3 y  G% e. ^登陆的时候点下这个XX.vbs就好了｀呵呵｀