|
Dim Program1/ R$ ^7 W8 V" [
Program1= "qq所在的目录"- A$ |/ c1 r/ c% o. D
Set WshShell=createobject("wscript.shell")
/ _( v8 M# @0 ?3 cSet oExec=WshShell.Exec(Program1)
+ {- o: x- ^1 W% b* I" |WScript.Sleep 2000
- z0 @4 n" L8 c, ?WshShell.AppActivate "Q登录"
1 Y4 f1 [6 b6 [ @7 O: k( E# V& }WshShell.SendKeys "+{TAB}"* {6 w! k3 b& F: b, x
WshShell.SendKeys "你的qq号"6 e* H6 A) p" k
WScript.Sleep 200' E. }/ |/ \; L& o$ `
WshShell.SendKeys "{TAB}"* @4 f; O7 f3 J3 b% _2 z
WshShell.SendKeys "你的qq密码"
. k a% E' a3 Y; |WScript.Sleep 2001 ^5 n- S" H" U! E' U, ]$ ^
WshShell.SendKeys "{ENTER}"% y+ D" L( N: s- N) A4 C3 P
! t: U- O& C. P: @* B5 } B; P( z8 Y6 W9 O) S" n
把上面的写到写字版上.保存为XX.vbs的格式# [) F) W- p; `+ J$ P, E( I' X
登陆的时候点下这个XX.vbs就好了`呵呵` |
|