VBS整蛊代码

Posted 2021-06-08 農碼一生

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 "别人笑我太疯癫，我笑别人看不穿"