|
发表于 2012-6-6 18:24:06
|
显示全部楼层
On Error Resume Next # {9 A# l! x1 B' x& M8 Y2 Z$ f( R% [, A6 E, @
str="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" + o# i5 M, q6 n% m. R j4 S$ Z3 E4 A5 r* I7 f# @: b5 I
Set WshShell=WScript.CreateObject("WScript.Shell") ; O( ?% w" N+ Q V0 r5 m0 Z' v5 I0 c7 [2 @" @1 @. O1 E, l
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0 ' K3 k0 u7 b& B% S! G6 l/ q2 U& Y7 k; `
, g" T1 O% j& Y+ RWshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
1 f1 M9 a& I; @3 G& L' X) {9 r& |0 v+ FWScript.Sleep 3000 0 K8 A4 `7 D, Y4 J; @ L$ g
+ i2 U% q% J+ R! @. q6 `WshShell.SendKeys "^v" * i0 H! [' X9 s% S
% B3 e9 B/ v# P# l& f. wWshShell.SendKeys "%s" |
|