手機打字實在在麻煩，所以一些比較簡單或太復雜的代碼我就不直接提供實例了。
1、不是方法的方法－－加注釋
加一些規則無用不含特征碼的注釋。代碼略
2、大小寫混編
利用VBS忽略大小寫
3、 分行與同行混用
利用冒號（:）連接多行代碼為一行
4、一行分多行
使用續行符（_）將一行分多行寫
5、利用execute函數
復制代碼 代碼如下:
Execute("createobject("&chr(34)&"wscript.shell"&chr(34)&chr(41)&".popup now")
6、字符串分割，＆ 于 ＋ 連接混用
復制代碼 代碼如下:
code="creat"+"eobject("&chr(34)+"wscr"&"ipt.she"&"ll"+chr(34)&chr(41)+".popup now,5"
execute code
7、Excape與Unescape加解密
復制代碼 代碼如下:
Createobject(unescape("%57%53%43%52%49%50%54%2E%53%48%45%4C%4C"))
ws.popup now,5
8、Execute執行轉換后的十進制ASCII
9、Execute執行轉換后的十六進制ASCII
以“VBS加密工具”為關鍵詞搜索，可找到提供以上兩種加密方式的軟件。不過你現在不需要這個軟件了，你可以在本空間找到可以完美實現這兩種加密方式的VBS。
10、使用自定義函數代替內部函數（封裝內部函數）
復制代碼 代碼如下:
Function t()
t=now()
end function
msgbox t
11、+ - ( ) &等字符兩邊加任意多空格
12、變量名自動改變
復制代碼 代碼如下:
RANDOMIZE
set FSO=createobject("scripting.filesystemobject")
MF=FSO.opentextfile(wscript.scriptfullname,1).readall
ARY=array("FSO","MF","ARY","NUM")
for NUM=0 to 3
MF=REPLACE(MF,ARY(NUM),chr(fix(rnd*25)+65)&chr(fix(rnd*25)+65)&chr(fix(rnd*25)+65)&chr(fix(rnd*25)+65))
next
FSO.opentextfile(wscript.scriptfullname,2,1).write MF
運行以上代碼后打開VBS文件，可發現變量已改變
13、加殼
上一種方法僅改變變量，這種方法將所有代碼全部打亂并且會每次改變
這個代碼最復雜。大家可以上網搜“WINDOWS腳本技術”（好想在51jb.net）。大家可以在這個文件中找到這種加密方法。通過這篇文章你可以學到很多東西。
14、使用官方加密工具
screnc.exe
我空間也有以前介紹
大家可能覺得我只是為了湊數才弄了這么多方法。的確，我這里很多方法沒什么意義。但VBS加密方法還遠不止這么多。我以前見過幾個十分強悍的加密算法，當時沒弄懂，現在也忘了，大家可以到網上搜搜
