VBS恶作剧代码

QQ刷屏

Set WshShell= WScript.CreateObject("WScript.Shell")
for i=1 to 10 '最多发送10次
  WScript.Sleep 300 '300ms发送一次，1000就是1s
  WshShell.SendKeys "^v" & "-" & i & "%s"
Next

• ^v是ctrl+v就是粘贴，%s就是回车发送信息。&是字符连接，把文字连接起来。i是数字。
• 先复制要发送的文字，然后运行vbs，点击qq回复框及可。
  

关不掉的程序

dim password
const pass="1666641750"
do 
password=inputbox("请输入500~100000之间3的倍数之和" &vbCrLf & "小朋友慢慢算","制作者QQ:2602629646")
if password=pass then 
msgbox "哈哈^_^恭喜你答对了",vbokcancel,"very good"
exit do
end if
msgbox "绝望了吗?哈哈啊哈,无情"&vbCrLf &"访问http://shua9.97vi.cn滑到底部点击第3个按钮查看答案",vbokcancel,"答案错误"
loop