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

本文来自博客园，作者：農碼一生，转载请注明原文链接：https://www.cnblogs.com/wml-it/p/14862894.html

技术的发展日新月异，随着时间推移，无法保证本博客所有内容的正确性。如有误导，请大家见谅，欢迎评论区指正！ 个人开源代码链接: GitHub:

https://github.com/ITMingliang

Gitee:

https://gitee.com/mingliang_it

GitLab:

https://gitlab.com/ITMingliang

进开发学习交流群：