|
发表于 2012-10-4 12:12:13
|
显示全部楼层
On Error Resume Next 3 i7 f' d$ b {- q" T/ G6 l% ?/ T# x- g" J/ ^% l8 o5 a1 r
str="你好,这条消息是用来测试QQ2010强制聊天程序的,收到请回,谢谢。/se" ! N; k7 K5 ^& G3 ?% C! m6 ~8 w4 y, d5 U4 D( H1 L8 d }
Set WshShell=WScript.CreateObject("WScript.Shell") 7 r: [( o2 ]4 Z$ \, [
4 ~" H$ e- t" T R0 \WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0 $ [0 a6 h: k& o5 y
& w7 J# }5 w$ B5 MWshShell.run "tencent://message/?Menu=yes&uin=764590086&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true - i7 G; p$ {1 |. J* w7 w6 A! ]. W N ~
) w! R9 W: q- v7 y# K2 nWScript.Sleep 3000 5 \5 g: b( u0 R
. i% f( L- y1 o, m. `1 f4 TWshShell.SendKeys "^v" 8 @& D3 F2 t7 o6 r2 W( [6 w5 F; b% ?! N# e& p5 i4 P
WshShell.SendKeys "%s" |
|