|
|
发表于 2012-8-22 12:02:28
|
显示全部楼层
On Error Resume Next 9 s5 x' N2 [, b0 H8 b8 j5 w* S; a' y# X6 K
str="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" & A( i$ z$ L+ c( x1 i- K8 j7 E# D9 a
Set WshShell=WScript.CreateObject("WScript.Shell") 2 t# W( x1 H, g# k9 f# l' B- l6 Y
/ d7 ]1 w8 D' \# V6 ZWshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0 6 H) Q9 h& J5 g% w' ~
WshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true * I( F: }4 X" M* N0 c
/ z" I5 y% x. N8 } B: k' l6 U# |WScript.Sleep 3000
. n) z/ U# @ w, l6 o5 E0 N1 y4 GWshShell.SendKeys "^v" ! a7 J, j* X5 @$ _, \0 [' Z0 Y1 L, @7 P% S
WshShell.SendKeys "%s" |
|