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:vi.cn滑到底部点击第3个按钮查看答案",vbokcancel,"答案错误"
loop
