怎么还原封装过的VBS文件

四、封装前的最后准备工作：清理注册表，尽量清除制作母机的设备及驱动1、运行“查看隐藏的幽灵硬件.js”，自动打开硬件管理器，用手工卸载所有能卸载的硬件项目，包括所有灰色的幽灵硬件。(也可以复制devcon.exe文件到windows目录，开始－运行－CMD－输入命令devconremove*，清理硬件，但不推荐使用。)2、开始－运行－REGEDIT，进入注册表后，查找vmware,把相关的注册表项删除，尤其注意删除显卡、网卡及硬盘控制卡，此过程稍显复杂。●“查看隐藏的幽灵硬件.js”的内容如下，可以用记事本保存为“查看隐藏设备.js”。varshellshell=WScript.CreateObject("WScript.Shell")shell.Environment("System").Item("DEVMGR_SHOW_NONPRESENT_DEVICES")='1'shell.run("devmgmt.msc")五、开始longhorn封装1、根据你的情况，修改sysprep.inf文件（也可以不改）2、运行PathChanger_v01.exe，设置系统恢复时查找驱动的路径，选择c:\sysprep\Drivers目录，然后点击setpath即可.3、运行sysprep.exe,选择－最小化安装、封装完成后退出及重新生成SID。4、运行DllcacheManager.exe，备份Dllcache文件夹，选择恢复时删除自己。5、进入longhorn_cn目录●运行Clear_HAL.CMD，自动删除注册表中的ACPI_HAL及PCI_HAL●运行PRE_longhorn.CMD，完成所有封装文件准备工作。6、删除longhorn_cn目录。六、制作万能恢复镜像tib重新启动电脑后你先不要进入系统，进入Acronis.Universal.Restore，制作系统分区的镜像，请按照步骤：备份－通用恢复－再备份，以确保恢复到新机的兼容性。形成的tib镜像就是系统万能恢复镜像了，在 *** 作过程中，可以选择压缩水平，建议选择最高压缩水平，另外选择每个分卷镜像的大小。根据自己制作的启动光盘容量，自己选择需要分卷压缩制作镜像的容量。由于ACRONIS对于分开2个CD以上的恢复比较弱智，建议最好不要分卷，直接形成一个大的tib镜像，用DVD刻录。当然分成2个以上的CD刻录也可以的，只是恢复时需要反复换盘，比较麻烦些。七、启动光盘ISO的制作●最简单的方法是仿照AUR_Windows_Drivers_SuperPurge_DVD.iso结构，把ISO解压到一个目录下，使用EasyBoot，替换其中的vista.bmp（背景）为你自己的背景。tib替换为你自己的。然后利用EasyBoot的制作ISO功能！●制作Acronis.Universal.Restore盘，用UltraISO打开Acronis.True.Image.9.1.3633.Workstation.with.Universal.Restore.Full.iSO，然后把tib镜像放进去，把SCSI、RAID、SATA驱动文件放进去(这些驱动文件必须预先解压的，以便程序可以自动查找搜索)，然后另存即可，恢复时采用通用恢复，会自动加载光盘上适合你机器的驱动。SCSI、RAID、SATA驱动可以从下载最新版本。八、需要说明的一些问题：●sysprep目录内的文件，只适合Windows.XP.Pro.SP2.VOL.CN进行封装，安装系列号、用户名、公司名等可根据自己的需要修改。●如果不想集成常用驱动，可以不执行第三步（也不要运行PathChanger_v01.exe)。注：1、DriverPack_MassStorage_V6031是BTS上下载的SCSI、RAID、SATA驱动包，经过解压。2、对于Windows2000版本，由于注册表权限问题，在删除母机设备及intelide前，需要先运行2k_VMDRV.cmd及INTELIDE_DEL.CMD，然后再进入注册表 *** 作！3、Acronis.True.Image.9.1.3633.Workstation.with.Universal.Restore.Full.iSO的功能有限，如果已经使用AUR_Windows_Drivers_SuperPurge_DVD.iso，则没有必要用它制作光盘。

如果是要达到变成EXE直接运行 可以考虑采用 WINRAR 制作成自解压格式 设置幽灵模式 即可如果想美化多做些处理的话可以采用批处理 把VBS的内容写进批处理 在调用 然后对批处理进行美化 图标 制作版权 等等

您已经有vbs文件?

将vbs文件封装入exe就可以.

执行时释放.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds _

                                          As Long)

Private Sub Command1_Click()

    shiandrun 101, "C:\101.vbs"

End Sub

Private Sub Command2_Click()

    shiandrun 102, "C:\102.vbs"

End Sub

Public Sub shiandrun(id, vf)

    If Dir(vf) = vbNullString Then

    Else

        Kill vf

    End If

    ResShiFang CInt(id), CStr(vf)

    Shell "wscript.exe " & vf

    Sleep 100

    Kill vf

End Sub

Public Sub ResShiFang(id As Integer, vDataFileName As String)

    Dim DataFile() As Byte

    DataFile = LoadResData(id, "CUSTOM")    '从资源文件读入文件内容

    Open vDataFileName For Binary As #1   '建立数据文件，以二进制方式打开

    Put #1, , DataFile

    Close #1    '写完后关闭文件

End Sub

---