脚本 一键登陆ＱＱ

゛.餖漿﹏.o

Dim Program1
Program1= "qq所在的目录"
2 S( Y2 z- j4 ^& _  WSet WshShell=createobject("wscript.shell")
$ y4 Q+ J0 l7 O# Z' d+ L1 R# sSet oExec=WshShell.Exec(Program1)
3 P& T% F/ L3 c4 p; \8 dWScript.Sleep 2000
0 I+ V3 W7 m/ M" c* m  lWshShell.AppActivate "Q登录"
  n( R: S. h9 y+ LWshShell.SendKeys "+{TAB}"
) H1 v! t2 ^0 e- [" B; x( Q  sWshShell.SendKeys "你的qq号"
# Z; v) g, Q, l* ^+ vWScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "你的qq密码"
, n; C" X+ w9 @* ^WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

2 u/ Y( X6 R& W1 e. D
# Y" c- y9 P9 M7 h- u; \把上面的写到写字版上．保存为XX.vbs的格式
& w* n% @5 @0 |. w+ F; Q( W登陆的时候点下这个XX.vbs就好了｀呵呵｀