如何使用VBS创建exe文件

Question

如何使用VBS制作可执行文件。有一个用于txt的代码，但是如何将其更改为从该exe制作

    Dim objFSO 
Set objFSO = CreateObject("Scripting.FileSystemObject")

Const Append = 8 
Dim FDir
FDir = ("Area where file will be saved") 
Const FName_Ext = "Title of document.txt"
Dim Final 
Final = FDir + FName_Ext

Dim objtxt 
set objtxt = objFSO.CreateTextFile(Final, True)
Set objtxt = Nothing

Dim FWrite 
Set FWrite = objFSO.OpenTextFile(Final, Append)

FWrite.WriteLine("this is the text in the file.!!! hahaha lol wohoo yada yada yada. okay done!")  
FWrite.Close()
Set FWrite = Nothing
Set objFSO = Nothing

Answer 1

熟悉PE Headers。简而言之，这是许多二进制数据，它们告诉Windows在开始执行文件时在哪里找到什么。尽管vbs并非为二进制魔术而设计，但至少根据this微软文档，如果您已将二进制数据保存到变量中，则简单文本方式就能解决问题。