VBS信息轰炸

Msg=Inputbox(“请输入你要发送的消息”)
num=Inputbox(“请输入重复发送多少次”)
a=1
b=num
set wshshell=CreateObject(“wscript.shell”)
wscript.sleep 1000
for i=a to b
str = Msg
wshshell.Run “cmd.exe /c echo " & str & " | clip.exe”,0,True
wshshell.sendKeys “^v”
wscript.sleep 100
wshshell.sendKeys “{ENTER}”
next
wscript.quit