Как создать ехе файл при нажатии кнопки?

[Vadim_n]

Здравствуйте. Подскажите пожалуйста как скомпилировать ехе фаил из другова ехе на VB
Примерно так тока чтоб ехе работал нормально.
Private Sub Command1_Click()
Dim F As Long
F = FreeFile
Open App.Path & "\programka.exe" For Output As #F
Write #F, "Private Sub Command1_Click()"
Write #F, "MsgBox ""Выберите exe"""
Write #F, "End Sub"
Close #F
End Sub

[Хакер]

В EXE-файл нужно записывать не бредовый текст, а структуры, соответствующие PE-формату и содержимое секций, в частности, машинный код для целевой платформы.

Дерзай.

[VVitafresh]

Здравствуйте. Подскажите пожалуйста как скомпилировать ехе фаил из другова ехе на VB

Может быть для твоих целей лучше подойдет vbscript?

Его не надо компилировать, достаточно сгенерировать содержимое и можно запускать на выполнение.

[SLIM]

В EXE-файл нужно записывать не бредовый текст, а структуры, соответствующие PE-формату и содержимое секций, в частности, машинный код для целевой платформы.

Дерзай.

А файлы с кодом нельзя скармливать линковщику, компилятору и т.д.?

[Хакер]

А файлы с кодом нельзя скармливать линковщику, компилятору и т.д.?

Линковщику (любому) нужно скармливать obj-файлы, компилятор VB не принимает на вход VB-код в виде текста.

[Vadim_n]

На другом форуме подсказали ссылку, при нажатии на кнобку теперь можно создать ехе фаил.

http://www.vbnet.ru/forum/show.aspx?id=216331

Код: Выделить всё

Option Explicit
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000

Private Sub Command1_Click()
    Dim sfile As String
    Dim frmstr As String
     
    sfile = "D:\myform.frm"
     
    frmstr = "VERSION 5.00" & vbCrLf & _
            "Begin VB.Form Form1" & vbCrLf & _
            "Begin VB.TextBox Text1 End" & vbCrLf & _
            "End" & vbCrLf & _
            "Attribute VB_Name = ""Form1""" & vbCrLf & _
            "Attribute VB_GlobalNameSpace = False" & vbCrLf & _
            "Attribute VB_Creatable = False" & vbCrLf & _
            "Attribute VB_PredeclaredId = True" & vbCrLf & _
            "Attribute VB_Exposed = False" & vbCrLf & _
            "Option Explicit"
     

' создать времянку
    Open sfile For Binary As #1
     Put 1, , frmstr
    Close #1
     
    Dim pid As Long, hProc As Long
    pid = Shell("vb6.exe /make " & sfile & " /d const=1 D:\myform.exe") 'построение
     
    hProc = OpenProcess(SYNCHRONIZE, False, pid)
    WaitForSingleObject hProc, &HFFFF    'дождаться завершения построения
    CloseHandle hProc
     
    Kill "D:\myform.frm" 'удалить времянку
    Shell "D:\myform.exe", vbNormalFocus ' запустить созданный exe
End Sub

Тока как иконку сделать ему при компелировании незнаю может кто разберается подскажите плиз?
такие варианты не работают
'"Begin VB.Form1.Icon = ""D:\ico.ico""" & vbCrLf & _
'"Attribute VB_Form1.Icon = ""D:\ico.ico""" & vbCrLf & _

[Diamock]

Тока как иконку сделать ему при компелировании незнаю может кто разберается подскажите плиз?
такие варианты не работают
'"Begin VB.Form1.Icon = ""D:\ico.ico""" & vbCrLf & _
'"Attribute VB_Form1.Icon = ""D:\ico.ico""" & vbCrLf & _

КомпИляция.

Если иконка присваивается форме в процессе разработки, то она хранится в двоичном файле ИмяФормы.frx. В процессе работы программы (загрузки формы), можно воспользоваться функцией LoadPicture.
Большинство исходных файлов Visual Basic - это текстовые файлы со своим расширением: *.frm - форма; *.bas - модуль; *.vbp - проект. Открой с помощью текстового редактора и изучи их структуру.

[ger_kar]

Да там и изучать то особо нечего, для иконки есть соответсвующее свойство Icon.
Только смысл делать голую форму и потом ее компилировать? А если на форме нужны контролы, то их тоже прийдется описывать и тогда быстрое визуальное программирование превратится в извращение (ИМХО). Но если форма как таковая не нужна, то тогда уж лучше сконструировать модуль и отправить его на компиляцию. А вообще, самое удобное в этом случае это использовать не VB а VBS, как предложил VVitafresh.
Во первых будет работать на любом компьютере, а не только там, где установлен VB. А во вторых простота реализации.
Кроме VBS можно еще и Autoit Script для этих целей приспособить.

КомпИляция.

[Vadim_n]

КомпИляция.

Извините за ошибки.

Но если форма как таковая не нужна

Форма как раз нужна! Программа такая – пользователь запускает ехе№1 выбирает несколько параметров, в том числе и иконку (иконки все лежать будут в папочке рядом с ехе№1) и нажав кнопку создаёт свой нужный ехе№2. Всё, создать могу ехе№2, и все нужные параметры можно прописать в форм лоад.

Код: Выделить всё

'код создаваемой формы
frmstr = "VERSION 5.00" & vbCrLf & _
            "Begin VB.Form Form1" & vbCrLf & _
            "Begin VB.CommandButton Command1 End" & vbCrLf & _
            "Begin VB.TextBox Text1 End" & vbCrLf & _
            "End" & vbCrLf & _
            "Attribute VB_Name = ""Form1""" & vbCrLf & _
            "Attribute VB_GlobalNameSpace = False" & vbCrLf & _
            "Attribute VB_Creatable = False" & vbCrLf & _
            "Attribute VB_PredeclaredId = True" & vbCrLf & _
            "Attribute VB_Exposed = False" & vbCrLf & _
            "Option Explicit" & vbCrLf & _
            "Dim F As Long" & vbCrLf & _
            "Private Sub Form_Load()" & vbCrLf & _
            "Command1.Left = ""840""" & vbCrLf & _
            "Command1.Top = ""0""" & vbCrLf & _
            "End Sub" & vbCrLf & _
            "Private Sub Command1_Click()" & vbCrLf & _
            "MsgBox ""работает exe""" & vbCrLf & _
            "F = FreeFile" & vbCrLf & _
            "Open ""D:\seve.txt"" For Output As #F" & vbCrLf & _
            "Write #F, ""даже сохраняет""" & vbCrLf & _
            "Close #F" & vbCrLf & _
            "End Sub"

А вот иконку не могу прописать никак.

Кроме VBS можно еще и Autoit Script

Я не обладаю особо высокими знаниями программирования, еле еле в готовых исходниках разбираюсь.
А программку для работы нужно написать, облегчит она мне и коллегам работу, и время может появиться больше программированию уделить.

[ger_kar]

Если открыть форму в простом текстовом редакторе, например в блокноте, то в описании формы можно увидеть такую запись:
Icon = "Form1.frx":0000
Но проблема в том, что это свойство ссылается не на файл с иконкой, а на бинарный файл Form1.frx, который создается, если установить у формы свойство Icon и затем эту форму сохранить. Этот файл создает среда VB автоматически. Как это свойство установить, не имея такого бинарного файла, или как в твоём приложении самому создать такой файл я не знаю. Можно конечно изучить бинарную структуру такого файла и воссоздать подобное своими силами, но (ИМХО) имеет смысл разве, что для самообучения. А можно наделать бинарных шаблонов по колличеству иконок и использовать их.

[ger_kar]

Я не обладаю особо высокими знаниями программирования, еле еле в готовых исходниках разбираюсь.А программку для работы нужно написать, облегчит она мне и коллегам работу, и время может появиться больше программированию уделить.

Программировать на AutoIt Script - можно за 2-3 вечера используя прилагаемую справку. Это самое простое и достаточно мощное средство для всяческих автоматизаций.

[Vadim_n]

Ура! Метод тыка как всегда выручил. Всем спасибо! Отдельное спасибо за подсказку ger_kar ! Действительно вставил иконку в ехе№1 и появился фаил Form1.frx, открыл в тхт фаил Form1.frm и скопировал оттуда
Caption = "Form1"
ClientHeight = 6555
ClientLeft = 60
ClientTop = 450
ClientWidth = 8250
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6555
ScaleWidth = 8250
Вставил в исходник.

Код: Выделить всё

'код создаваемой формы
frmstr = "VERSION 5.00" & vbCrLf & _
            "Begin VB.Form Form1" & vbCrLf & _
   "Caption = ""Form1""" & vbCrLf & _
   "ClientHeight = 6555" & vbCrLf & _
   "ClientLeft = 60" & vbCrLf & _
   "ClientTop = 450" & vbCrLf & _
   "ClientWidth = 8250" & vbCrLf & _
   "Icon            =   ""Form1.frx"":0000" & vbCrLf & _
   "LinkTopic = ""Form1""" & vbCrLf & _
   "ScaleHeight = 6555" & vbCrLf & _
   "ScaleWidth = 8250" & vbCrLf & _
            "Begin VB.CommandButton Command1 End" & vbCrLf & _
            "Begin VB.TextBox Text1 End" & vbCrLf & _
            "End" & vbCrLf & _
            "Attribute VB_Name = ""Form1""" & vbCrLf & _
            "Attribute VB_GlobalNameSpace = False" & vbCrLf & _
            "Attribute VB_Creatable = False" & vbCrLf & _
            "Attribute VB_PredeclaredId = True" & vbCrLf & _
            "Attribute VB_Exposed = False" & vbCrLf & _
            "Option Explicit" & vbCrLf & _
            "Dim F As Long" & vbCrLf & _
            "Private Sub Command1_Click()" & vbCrLf & _
            "MsgBox ""работает exe""" & vbCrLf & _
            "End Sub"

И положил место ико картинки файлик Form1.frx и скомпелировался ехе№2 с иконкой.

[EUGY]

Я, стыдно признаться, предложил это на vbnet под ником каддафи и теперь маюсь вопросом. А зачем бы это надо? Какой практический смысл нашел Vadim_n от такой проги, с которой придется таскать vb6.exe с окружением. Кстати, иконку, как вариант, можно установить и в form_load, все равно это порождение ада не будет запускаться из под IDE, а позже ее запихать в ресурсы уже скомпилированного exe.

[Vadim_n]

с которой придется таскать vb6.exe с окружением.

Со своими программами я делаю так – запускаю на компе где голая винда и смотрю какие ошибки при запуске, копирую все не хватающие библиотеки в папку с прогой пока она не станет запускаться нормально. А потом запаковываю любым инсталлятором, чтобы при установке установилась прога со всеми нужными длл файликами, даже есть инсталляторы типа Inno Setup позволяющие при установке кидать некоторые файлы в сустем32 и т.д. Пока не пробовал но думаю может с этой прогой так прокатит.

Кстати, иконку, как вариант, можно установить и в form_load

Есле несложно подскажите как? Желательно коротеньким примером.

не будет запускаться из под IDE

Не сталкивался ещё с таким, или просто не знаю что это такое.

[Хакер]

Не сталкивался ещё с таким, или просто не знаю что это такое.

Лол. Это означает, что чтобы твой генератор EXE-файлов работал, на компьютер нужно установить «Microsoft Visual Basic 6.0». Не файлы какие-то там жалкие скопировать, а весь инструмент, в котором ты работаешь, установить.

[Vadim_n]

Код: Выделить всё

pid = Shell("vb6.exe /make " & sfile & " /d const=1 D:\exe2.exe")

Можно ли обойтись без установки или установить только ту часть которая нужна для компиляции? Может в реестр добавить запись, или портабле добавить в проект?

[Хакер]

Можно ли обойтись без установки или установить только ту часть которая нужна для компиляции?

Нет.

[Денис]

Ахаха! Давно так не смеялся!
Конпелятор решил конпелировать фаелы в сустем32 вместе с коллегами!

Все разумные посты типа vb script, autoit тщательно игнорировались.

[Smitis-R]

Можно ли обойтись без установки или установить только ту часть которая нужна для компиляции?

Для работы VB6 в минимальной конфигурации (IDE, компилятор) достаточно нескольких файлов из дистрибутива объёмом около 11 мегабайт, скинутых в одну папку:
C2.EXE
LINK.EXE
VB6.EXE
MRT7ENU.DLL
MSDIS110.DLL
MSO97RT.DLL
MSOBJ10.DLL
MSPDB41.DLL
MSPDB60.DLL
VB6DEBUG.DLL
VB6IDE.DLL
VBA6.DLL
VBAEXE6.LIB
VB6.OLB
VB6EXT.OLB
Установка сводится к импорту рег файла (несколько килобайт), заносящего информацию с лицензиями в реестр.
Ну, можно ещё olb и dll зарегистрировать, но должно работать и без этого.
Естественно, это должна быть нормальная винда, имеющая msvbvm60.dll в системной папке, зарегистрированные контролы, dao350.dll и пр.
А если разобраться с компилятором c2.exe, компилировать и линковать вручную, можно, наверное, и IDE выкинуть...

[Хакер]

А если разобраться с компилятором c2.exe, компилировать и линковать вручную, можно, наверное, и IDE выкинуть...

С2 не компилятор, а преобразователь P-код→Native-код. P-код генерируется абсолютнов всегда, преобразование в Native-код делается только если в опциях компиляции выбран «Native-код». Само же ядро компиляции — это vba6.dll

[FaKk2]

Распостранять компилятор вместе с программой это феерический бред. Надо показательно выжигать калёным железом такую идиотию.

[ger_kar]

Надо показательно выжигать калёным железом такую идиотию.

Это интересно как так показательно?

[FireFenix]

Распостранять компилятор вместе с программой это феерический бред. Надо показательно выжигать калёным железом такую идиотию.

MS .NET
не, не слышал

[Smitis-R]

Распостранять компилятор вместе с программой это феерический бред. Надо показательно выжигать калёным железом такую идиотию.

NIX системы пора объявить вне закона.

[FaKk2]

MS .NET
не, не слышал

Лолшто? У вас на почве прееедания видимо конфуз случился. Я говорю распостранять компилятор с программой это идиотизм. Ещё раз: распостранять компилятор для того чтобы "скомпилировать ехе фаил из другова ехе на VB" это идиотизм.

NIX системы пора объявить вне закона.

Это вы про gcc? Смею заверить, что ОС это не та программа, о которой идет речь в топике, так что слив засчитан.

[Хакер]

NIX системы пора объявить вне закона.

Какая связь? В никс-системах часто распространяется код, но уж не компилятор.

Я ещё понимаю, когда с программой несут что-то мелкое и/или специальное созданное для того, чтобы носить с собой. Но носить VB6 — это и технически нелепо, и против лицензии.

[FireFenix]

MS .NET
не, не слышал

Лолшто? У вас на почве прееедания видимо конфуз случился. Я говорю распостранять компилятор с программой это идиотизм. Ещё раз: распостранять компилятор для того чтобы "скомпилировать ехе фаил из другова ехе на VB" это идиотизм.

MS распространяет .NET, в который входит компилятор. Следовательно весь софт .NET распространяется с компилятором.
Конечно софт может и не юзать полностью рефлексию, System.CodeDom и компилятор, но как бэ факт, что это есть

[Vi]

Сходи на http://cs.usu.edu.ru/home/abv/, может, пригодится. Мой коллега прикольные диалоги пишет на VBScript-е с помощью предлагаемой WSO-библиотеки.

[FaKk2]

MS распространяет .NET, в который входит компилятор. Следовательно весь софт .NET распространяется с компилятором.

Я бы не позорился, и приглушил этот фонтан остроумия.

[Хакер]

Надо же, не видел, чтобы прежде дотнетчики ругались с другими дотнетчиками...