|
|
发表于 2012-6-6 18:24:06
|
显示全部楼层
On Error Resume Next # {9 A# l! x1 B+ s6 g5 _; n0 [4 v, s7 H7 r
str="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" + o# i5 M, q6 n% m. R j4 S$ Z
# X9 Y" N+ A9 Y% n) aSet WshShell=WScript.CreateObject("WScript.Shell") ; O( ?% w" N+ Q V0 r5 m0 Z' v
% k0 P( \% c7 x0 S0 M5 E. ~% hWshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0 + L5 X" \- G. L+ t0 U& J: v) t& x
, g" T1 O% j& Y+ RWshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
& _% P" {0 l- @. Q9 Q! O& L' X) {9 r& |0 v+ FWScript.Sleep 3000 0 K8 A4 `7 D, Y4 J; @ L$ g
* Z4 u2 y/ h, h8 ^$ `! O1 D: H. W! {% lWshShell.SendKeys "^v"
/ `3 q; D- E# @( a8 L$ }4 M5 h% B3 e9 B/ v# P# l& f. wWshShell.SendKeys "%s" |
|