|
|
发表于 2012-8-22 12:02:28
|
显示全部楼层
On Error Resume Next 9 s5 x' N2 [, b0 H8 b8 j5 w
* G# _( B# i: N I8 S4 Dstr="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" & A( i$ z$ L+ c
+ f- L; p# V3 q: xSet WshShell=WScript.CreateObject("WScript.Shell") 2 t# W( x1 H, g# k9 f# l' B- l6 Y
, u, S. w5 E; ~) [& tWshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0 ) c) h3 s5 e! j. |& A9 L) u
WshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true * I( F: }4 X" M* N0 c9 k* _% x7 T* ^. t: B4 e% t
WScript.Sleep 3000
" U m& b, n6 h+ uWshShell.SendKeys "^v" ! a7 J, j* X5 @$ _, \* I9 c) { B! c# B) U
WshShell.SendKeys "%s" |
|