自动发QQ消息脚本
$ U" V" u4 B/ H4 p3 C
! M+ |$ [9 p) y: j9 OSet WshShell= WScript.Createobject("WScript.Shell")
! s( m( T+ Y0 ?/ {! R7 bfor i=1 to 50
/ d9 @! b2 [% W% x7 I0 nWScript.Sleep 1000
3 \" r# D6 g& Z, X, [! DWshShell.SendKeys"^v". f, m5 s0 S: j6 e; ^* c! k: f
WshShell.SendKeys i
# b2 `) e# z3 b1 [( o7 R/ tWshShell.SendKeys "%s"0 `: B+ f6 c% K0 j; d) e
next
* t: O( ?/ r7 n5 D; u1 g) b, V M! h4 }8 V: O% A
2 G; `/ q. K! g$ g; h

; ^. e- v, Q b* E. P+ t保存为 *.vbs
/ A" |1 o( B( K q; T y. j9 {4 u0 X) T, B$ o" N* _
50代表发送次数* Y$ T q! R( @+ N4 U$ M
1000(发送间隔时间)
6 j; j9 i/ W& h U* R0 e- S^v(快捷键)
# f, t: Y* H# W l0 d& h0 d
8 T) r3 q) r q# I5 \5 X" u8 H$ p1 G: D" N2 a
用法：
' P. F. F5 x; E1 ~先随便打开一个qq的对话框' b8 m" ^ \" B
然后切换到英文输入法
2 V6 ~, ] g0 H8 A( W复制你需要copy的文字
8 |5 g. l) F4 s: s* c然后双击vbs脚本* [3 S" Q7 n0 L+ x8 `0 M
可以看到每隔一秒中发送一个消息7 `6 G ~1 S* D7 H3 i) g7 \: y: f

) c) X: x' G0 i- I4 r如果想结束脚本，打开进程管理器 结束Wscript.exe进程

; ?( r9 l: ?& o9 z1 h7 P1 G很淘气呀！你!

呵呵　楼主原来是淘气小帅哥啊　
1 u% D: A6 @4 m0 R# v8 t0 ^+ V一会我也试试　　

哈哈，最好不要用这东西搞破坏，和恶化

不错哦，省事多了，呵呵！/ c/ C G: ~. p: c
群发消息就可以用了

哈哈,太狠了.隔一秒哦

引用:

原帖由 cwal 于 2007-5-14 22:04 发表 7 F- J$ O9 H3 V1 O1 W6 P
自动发QQ消息脚本
) |. i4 @" V+ o' M9 P, E' }: }" G
) Y, w/ t$ j6 s0 S+ VSet WshShell= WScript.Createobject("WScript.Shell")' k7 _% _' Y. t% @4 o0 }
for i=1 to 50
5 u2 p1 F4 {, L0 g6 B( oWScript.Sleep 1000
( l) ?* J2 @, n$ V6 |2 vWshShell.SendKeys"^v"
2 H7 Q3 F# q2 A+ L+ VWshShell.SendKeys i8 e! [' ]4 Q0 l7 z) f, p& L
WshShell.SendKeys "%s"8 I; ]: n' i. I6 ]
next
6 u6 R. r' v" w) @+ K- ^1 Q2 e
6 g4 f+ m g3 Q0 O F& W7 x9 h, [ I6 a

: Y1 z4 a6 c# q保存为 ...

% F% x2 D* p! V$ P0 H) H& ^我复制下来怎么时乱码？？

引用:

原帖由 ihanbing 于 2007-5-31 08:38 发表
$ {) z4 g6 i5 s8 Z& L6 P b
- a: E; j L; d( \/ o; `) q我复制下来怎么时乱码？？

$ r) F- Q7 ] y; e恩，我传个上来。省得大家在编辑。

可惜一定要在前台运行。