批处理或VBS怎样在QQ聊天框中自动发送已复制的内容?
代码如下是一段VB编写的,这个也是类似网络流传的;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
请问怎么用Bat编写?怎么用Bat或者Vbs编写的程序,在QQ聊天框中自动发送已复制的内容 |