利用VBS加密VBS脚本文件

平时我喜欢用VB、VBS脚本、批处理及DELPHI做些小东西，感觉很有意思。比如有键盘模拟鼠标、屏锁、文件及文件夹加密解密、U盘拦截、电脑资料外泄破坏等等。可我每次用VBS做的程序总是被别人用记事本打开了，哎郁闷。没法，之后做的只好全部加密，并在此把加密脚本分享给大家！

On Error Resume Next
set arg=wscript.arguments
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
Set objDialog = CreateObject("UserAccounts.CommonDialog")