如何做一个不停往别人qq上发相同信息的vbs

Set WshShell= WScript.CreateObject("WScript.Shell")

WshShell.AppActivate ""

for i=1 to 99

WScript.Sleep 500

WshShell.SendKeys "^v"

WshShell.SendKeys "%s"

next

后缀改为vbs，ctrl c 你要发绝弊察斗送的内容 然后运行脚本 光标反正发送并没族对象的输入框里

你是希望在vbs中重复执行二十次，还是希望执行该vbs程序二十举哪肆次？

在vbs中重复执行二缓亮十次：

egao.vbs

FOR I = 1 TO 20

msgbox "hey,man"

NEXT

在vbs外重复执行二正轿十次：

repeat.bat

@for /L %%i in (1,1,20) do cscript XXX.vbs

sendkeys实现的歼敬就是按G键的效果，扰如你把光标定位到打字的地方当然就是打出G的字符了

###############################################################3

set WshShell = WScript.CreateObject("WScript.Shell")

do

WScript.Sleep 1000*110 '单位为毫秒，1000毫秒=1秒，延时110秒即1000*110

WshShell.SendKeys "G" '发氏李慎送G键

loop

---