安裝加密批處理VBS指令碼原始碼

 

 

         這是我用ＶＢＳ指令碼寫的一個安裝加密批次程式，壓縮包中含有一個用winrar製作的安裝程式和一個壓縮包，安裝程式和壓縮包中的內容是一樣的，不過是為了方便使用。壓縮包中的內容：一個表徵圖檔案、一個vbs指令碼源檔案、一個批次檔，這三個檔案是主要檔案。
運行vbs檔案後，會在C:/Documents and Settings/user/Application Data檔案夾創立一個加密批處理的檔案夾，並把發紅處位置寫的三個檔案複製其中，然後在send檔案夾建立捷徑，這樣一個發送到菜單中的加密批處理就做成了。用時，只需在批次檔上點擊右鍵，發送到加密批次檔，然後你用記事本開啟批次檔，你發現了什麼，是不是裡面的內容變成亂碼了。順便說一句，因為豪傑超級解霸強注了vbs副檔名，所以我為了程式的通用性，用vbe做為vbs指令檔的副檔名。此程式暫不分析批次檔是如何變成亂碼，主要是讓大家瞭解用vbs指令碼照樣可以編寫出實用的程式來。
這個程式花費了我兩天的時間，今天調試成功，發上來供網友研磨。
以下是vbs指令檔中的內容，典型的vb代碼：

'**************************************************************************
'**模 塊 名：加密批處理VBS指令碼
'**說 明：魔靈聖域 著作權2008 - 2009(C) by  icecept(郭衛)
'**創 建 人：icecept(魔靈)
'**日 期：2008-09-10 01:44:14
'**修 改 人：icecept(魔靈)
'**日 期：
'**描 述：icecept(魔靈)製作              QQ:543375508
'**版 本：V1.0.0 http://icecept.blog.sohu.com http://hi.baidu.com/icecept
'*************************************************************************
Dim ret,path1,path2
Set iw1 = wscript.CreateObject("WSCript.Shell")
Set fso = wscript.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(iw1.SpecialFolders("AppData") & "/加密批處理") Then   '查看檔案夾是否存在
      fso.DeleteFolder (iw1.SpecialFolders("AppData") & "/加密批處理")
end if
fso.CreateFolder(iw1.SpecialFolders("AppData") & "/加密批處理")   '獲得發送到目錄
fso.moveFile fso.GetFile(wscript.scriptfullname).ParentFolder & "/加密批次檔.cmd",iw1.SpecialFolders("AppData") & "/加密批處理/加密批次檔.cmd"
fso.moveFile fso.GetFile(wscript.scriptfullname).ParentFolder & "/1.ico",iw1.SpecialFolders("AppData") & "/加密批處理/1.ico"
    Set iwSC = iw1.CreateShortcut(iw1.SpecialFolders("SENDTO") & "/加密批次檔.lnk")
'設定捷徑指向的對象
iwSC.TargetPath = iw1.SpecialFolders("AppData") & "/加密批處理/加密批次檔.cmd"
'設定對象運行時的工作目錄
iwSC.WorkingDirectory = iw1.SpecialFolders("AppData") & "/加密批處理/"
'設定程式表徵圖
iwSC.IconLocation = iw1.SpecialFolders("AppData") & "/加密批處理/1.ico"
'建立運行程式的快速鍵
iwSC.Hotkey = "F10"
'建立捷徑的備忘
iwSC.Description = "加密批次檔"
'儲存捷徑到檔案
iwSC.Save
'指定捷徑的運行方式
'iwSC.WindowStyle = 7    最小化 Minimized=7
'iwSC.WindowStyle = 0    最大化 Maximized=0
'iwSC.WindowStyle = 4    常規視窗   Normal=4