VBS脚本病毒刷QQ聊天屏

VBS脚本病毒刷QQ聊天屏
2009年09月30日
　　sum=inputbox("请输入次数：")
　　set ws=createobject("wscript.shell")
　　for w=1 to sum
　　wscript.sleep 300 '定义发送信的所要的时间以ms毫秒为单位。如：1000为一秒发一次
　　Set WshShell= WScript.CreateObject("WScript.Shell")
　　WshShell.AppActivate ""
　　WshShell.SendKeys "^v"
　　WshShell.SendKeys "^{ENTER}" '按下键盘上的Alt+S发送信息
　　next
　　'把此代码保存为VBS格式
　　'把内容剪切到剪贴版上来
　　'把光标定位在输入栏
　　'运行此VBS文件
　　//****************************‘要按“允许访问”************************************************//
　　strdate=inputbox("请输入你要发送的话：")
　　Set objIE = CreateObject("InternetExplorer.Application")
　　objIE.Navigate("about:blank")
　　objIE.document.parentwindow.clipboardData.SetData "text", strdate
　　Set WshShell= WScript.CreateObject("WScript.Shell")
　　sum=inputbox("请输入次数：")
　　set ws=createobject("wscript.shell")
　　for w=1 to sum
　　wscript.sleep 300 '定义发送信的所要的时间以ms毫秒为单位。如：1000为一秒发一次
　　ws.AppActivate ""
　　ws.SendKeys "^v"
　　ws.SendKeys "%s" '按下键盘上的Alt+S发送信息
　　next ‘要按“允许访问”
　　//////**********************全自动************************************//
　　On Error Resume Next
　　str=inputbox("请输入你要发送的话：")
　　sum=inputbox("请输入你要发送的次数：")
　　Set WshShell=WScript.CreateObject("WScript.Shell")
　　WshShell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0
　　for w=1 to sum
　　ws.AppActivate ""
　　WScript.Sleep 300
　　WshShell.SendKeys "^v"
　　WshShell.SendKeys "%s"
　　next
　　////////////////////////////////////////自解压命令//////////////////////////////////////////////
　　Setup=wscript.exe 文件名.后缀名
　　TempMode
　　Silent=1
　　Overwrite=1
　　自解压换图标
　　高级----自解压选项----文本和图标--------从文件加载自解压文件图标---确定