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 "別人笑我太瘋癲，我笑別人看不穿"