|
|
发表于 2012-8-22 12:02:28
|
显示全部楼层
On Error Resume Next 9 s5 x' N2 [, b0 H8 b8 j5 w
z+ i8 q. N1 N$ Y# {2 S' cstr="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" & A( i$ z$ L+ c
1 B/ K' Y( a( _) E. P5 u {; nSet WshShell=WScript.CreateObject("WScript.Shell") 2 t# W( x1 H, g# k9 f# l' B- l6 Y+ ^3 I# m5 W( M2 B) m
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
! a0 k5 z! P% J B! zWshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true * I( F: }4 X" M* N0 c
) [9 _0 F/ e! D. @. m% H$ A4 KWScript.Sleep 3000 0 Z0 a6 }( u, g
WshShell.SendKeys "^v" ! a7 J, j* X5 @$ _, \0 K) d5 H! C" F4 m" V
WshShell.SendKeys "%s" |
|