Как сделать исполняемый файл с помощью 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
Сделайте шаг назад и опишите реальную проблему, которую вы пытаетесь решить, а не то, что вы считаете решением. Как вы думаете, почему вам нужно, чтобы VBScript создавал исполняемый файл? Какова цель этого файла? Откуда берется контент?
Есть инструменты, которые вы можете использовать для преобразования VBScript в исполняемый файл, если это то, что вам нужно. К сожалению, эта функция часто используется для создания вредоносных программ, поэтому получаемые в результате исполняемые файлы часто блокируются программным обеспечением безопасности.
Познакомьтесь с Заголовки PE. Короче говоря, это много двоичных данных, которые сообщают Windows, где что найти, когда он начинает выполнять ваш файл. Хотя vbs не был разработан для двоичной магии, простой текстовый способ поможет, если вы сохранили свои двоичные данные в переменной, по крайней мере, согласно это microsoft doc.
Какие именно данные вы хотите добавить в exe-файл? Вы можете назвать файл
foo.exe
вместоfoo.txt
, но это не делает его волшебным образом исполняемым файлом действительный.