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
自解压换图标
高级----自解压选项----文本和图标--------从文件加载自解压文件图标---确定
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
自解压换图标
高级----自解压选项----文本和图标--------从文件加载自解压文件图标---确定