|
发表于 2012-8-22 12:02:28
|
显示全部楼层
On Error Resume Next 9 s5 x' N2 [, b0 H8 b8 j5 w
% }1 s7 D' u5 R! ystr="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" & A( i$ z$ L+ c
; M& ]5 u2 w* \- _- f2 g$ LSet WshShell=WScript.CreateObject("WScript.Shell") 2 t# W( x1 H, g# k9 f# l' B- l6 Y3 }# T# O% ]' q3 l
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0 . P: S. l! Q7 S- r7 Q" a" T: C
WshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true * I( F: }4 X" M* N0 c
. M6 ^% T" q5 i0 ]9 s4 ]; z& v# R: iWScript.Sleep 3000 5 T+ F- `2 [7 G+ r5 D9 Y- y
WshShell.SendKeys "^v" ! a7 J, j* X5 @$ _, \
9 `7 n+ J1 k! F& c% O J) q8 bWshShell.SendKeys "%s" |
|