|
|
Dim Program1
: j$ U5 u. j9 [) M J) VProgram1= "qq所在的目录"% o8 e3 H8 a4 B% L0 G! i
Set WshShell=createobject("wscript.shell")7 k/ e( E2 j; J; ^- v# P
Set oExec=WshShell.Exec(Program1)
+ S, Q: _+ ]6 u5 ^( tWScript.Sleep 2000! J, q6 Q# k% a, B6 b' A Y
WshShell.AppActivate "Q登录"" G+ V) X# O' V- S" M1 P# T( j
WshShell.SendKeys "+{TAB}"
# Y' a6 U% a" u- B4 n4 PWshShell.SendKeys "你的qq号"( ` o# B9 O7 ]
WScript.Sleep 200
7 ]! v# {* h3 U( P# c% z/ WWshShell.SendKeys "{TAB}"$ B/ {' _3 `- H% ?
WshShell.SendKeys "你的qq密码"3 J( G! r/ ~$ m6 ~
WScript.Sleep 200
* }2 o# M2 F* O! S' O* zWshShell.SendKeys "{ENTER}"$ t0 _/ \! T. S! i$ r* X
- n0 f4 F. ]+ |5 c
& Z6 O, ?2 m1 i' B4 x" [
把上面的写到写字版上．保存为XX.vbs的格式' Q) \- W0 i, |- x8 ~, M; O* ]9 @
登陆的时候点下这个XX.vbs就好了｀呵呵｀ |
|
IP卡
狗仔卡
发表于 2008-2-21 18:58:27
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡