|
|
Dim Program1
$ T d' L# Z0 J! s+ @Program1= "qq所在的目录"
9 l e8 \3 n" v2 N! Y. W+ H2 C$ ~Set WshShell=createobject("wscript.shell")" Q' W' A; f7 |. W( t* b
Set oExec=WshShell.Exec(Program1)
4 p7 H4 j: b2 ^7 s3 v- f( x. r/ F* D! oWScript.Sleep 2000
8 \5 p2 i2 p3 c. SWshShell.AppActivate "Q登录"
& {4 T' E% o/ q( z- hWshShell.SendKeys "+{TAB}") s# k) K/ K* p6 [* r4 }
WshShell.SendKeys "你的qq号". A1 H1 a' f* n6 v2 d& N7 c9 D! J
WScript.Sleep 200
$ ~2 ~; H* ]+ ]. z3 RWshShell.SendKeys "{TAB}" Y; Q3 p( Z; Q3 |% [
WshShell.SendKeys "你的qq密码"8 S2 b3 X# s, \! [, U- c5 R/ j" v
WScript.Sleep 200
7 n9 D6 A' Q/ C" @WshShell.SendKeys "{ENTER}"* x$ X6 Q% o8 ^' _! M
2 U' b# K/ L8 }9 _; q
5 K" d+ [) Q+ }1 u8 E把上面的写到写字版上．保存为XX.vbs的格式* d2 I% S3 F7 ?" Z
登陆的时候点下这个XX.vbs就好了｀呵呵｀ |
|
IP卡
狗仔卡
发表于 2008-2-21 18:58:27
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡