|
发表于 2012-6-6 18:24:06
|
显示全部楼层
On Error Resume Next # {9 A# l! x1 B- n* D, Q m$ T$ b5 p; V: I
str="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" + o# i5 M, q6 n% m. R j4 S$ Z# w, {& E7 ]0 ~+ ]
Set WshShell=WScript.CreateObject("WScript.Shell") ; O( ?% w" N+ Q V0 r5 m0 Z' v5 ]4 x) c# v' X% m1 v
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
6 o0 N/ H G* B7 ?; L, g" T1 O% j& Y+ RWshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
3 U% b. q9 }; V) S2 w3 t& L' X) {9 r& |0 v+ FWScript.Sleep 3000 0 K8 A4 `7 D, Y4 J; @ L$ g
) D, k+ d8 J" K/ Y/ G+ sWshShell.SendKeys "^v" ' e; O4 J7 i" G' D3 k6 X
% B3 e9 B/ v# P# l& f. wWshShell.SendKeys "%s" |
|