这是我用ＶＢＳ脚本写的一个安装加密批处理程序，压缩包中含有一个用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