VBS整蛊代码

VBS整蛊代码

一、微信聊天轰炸

Set WshShell = WScript.CreateObject("WScript.Shell")
'微信通讯录备注的联系人名称
WshShell.AppActivate"小明"
'轰炸次数
for i= 1 to 10
'每次信息发送间隔时间，1000毫秒为1,秒
WScript.Sleep 100
'复制黏贴发送内容触发
WshShell.SendKeys "^V"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next

二、终止所有VBS进程 

'运行提示信息
msgbox" Kill All VBS Process Now?",64
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
'立即执行
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 

三、循环点击

dim s
'设置点击循环次数
do until s=5
s=s+1
'点击弹框，,64是图标符号
msgbox "OK",64
loop

四、关闭打开的程序窗口

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
'每次执行间隔时间，1000毫秒为1秒钟
wscript.sleep 3000 
WSHshell.SendKeys "%{F4}"
loop

五、关机

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
'立刻执行
WSHshell.run "shutdown -f -s -t 00",0 ,true

六、电脑快捷键F5刷新

set wsh=createobject("wscript.shell")
'刷新次数
for i=1 to 10
'刷新频率
wscript.sleep 1000
wsh.sendkeys "{f5}"
next
wscript.quit

七、电脑语音数数

'Set wsh=createobject("wscript.shell")
Set s = CreateObject("sapi.spvoice")
'数数范围
for i=1 to 10
s.speak i
'数数时间间隔
wscript.sleep 1000
next
wscript.quit

八、电脑说话

set objTTS = createobject("sapi.spvoice")
'说的文字
objTTS.speak "我自橫刀向天笑，笑完我就去睡覺"
objTTS.speak "别人笑我太疯癫，我笑别人看不穿"
objTTS.speak "我自橫刀向天笑，笑完我就去睡覺"
objTTS.speak "别人笑我太疯癫，我笑别人看不穿"