|
|
发表于 2012-6-6 18:24:06
|
显示全部楼层
On Error Resume Next # {9 A# l! x1 B
% K; T& _; s3 u" \8 bstr="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" + o# i5 M, q6 n% m. R j4 S$ Z; C* v; r& v! w3 G4 T
Set WshShell=WScript.CreateObject("WScript.Shell") ; O( ?% w" N+ Q V0 r5 m0 Z' v
% r* ]3 z% f, a# {# o5 Y6 cWshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0 ) p' K: D8 s" G8 g
, g" T1 O% j& Y+ RWshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true 7 P/ {0 \4 V$ h- |3 C
& L' X) {9 r& |0 v+ FWScript.Sleep 3000 0 K8 A4 `7 D, Y4 J; @ L$ g4 M: G% ?1 v* _! }" G
WshShell.SendKeys "^v" 6 k; |: [4 g: x
% B3 e9 B/ v# P# l& f. wWshShell.SendKeys "%s" |
|