- 帖子
- 35
- 积分
- 44
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2010-9-21
|
VBS编写的程序,怎么自动发送?
代码如下,这个也是类似网络流传的;QQ复仇器----之类的,先复制一段文字然后打开该VBs文件即可不断粘贴之前复制的文字内容,但是缺点是不可以自动发送,哪位大哥可以帮我修改下,打开QQ聊天框可以自己发送的,而不用手工发送。
Set WshShell= WScript.createobject("WScript.Shell")
WshShell.AppActivate "QQ信息攻击脚本"
for i=1 to 20
WScript.Sleep 1000
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next |
|