|
发表于 2012-6-6 18:24:06
|
显示全部楼层
On Error Resume Next # {9 A# l! x1 B; c D1 ~" A9 A
str="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" + o# i5 M, q6 n% m. R j4 S$ Z
1 P# u5 W: r, Y' A/ p+ ^: [Set WshShell=WScript.CreateObject("WScript.Shell") ; O( ?% w" N+ Q V0 r5 m0 Z' v X5 W/ C; d, v2 p2 Q$ a
WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
# Z3 s% @5 }& a- w$ B+ _- {, g" T1 O% j& Y+ RWshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true 7 d4 \. a0 O$ s0 t2 o, U& g: X" V1 u+ j
& L' X) {9 r& |0 v+ FWScript.Sleep 3000 0 K8 A4 `7 D, Y4 J; @ L$ g# V1 v! S) m% L) J- ~
WshShell.SendKeys "^v" , v% X6 E- {7 U6 {7 F
% B3 e9 B/ v# P# l& f. wWshShell.SendKeys "%s" |
|