VPF::Консольная прога внутри моего exe-шника

Voldemar2004

Дата 31.3.2005, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Хочу запихать exe-консольную программу внуть своей проги, но так чтобы обращение к консольным командам этой проги выполнялось через мою прогу.

--------------------

i_i
(';')
(V)

user posted image

cardinal

Дата 31.3.2005, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

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

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

efedron

Дата 1.4.2005, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: 4
Всего: 4

Voldemar2004
по моему тебе надо просто начинать выполнение соего приложения с sub main, где будет написано что-то вроде:

Код


Sub Main()
Select Case Command$
    case "/opt1"
        'some code
        end
    case "/opt2"
        'some code
        end
End Select
End Sub

..или я не прав??

--------------------

Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.

efedron

Дата 1.4.2005, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: 4
Всего: 4

Voldemar2004
а вот тебе примерчик как экзешник заюзать:
(предварительно загрузив vb6 resource editor в меню Add-Ins->Add-In Manager, загрузив в него любой .res-файл и удалив из него все ненужное жмешь add custom resource и добавляешь свое консольное приложение)

Код


...
dim sExe as string
sexe=string$(680096,chr$(0)) 'задаешь длину переменной, соответствующую размеру твоего экзешника в байтах (680096-размер программы notepad.exe в windows server 2003 взято для пробы)
sexe=strconv(loadresdata(101,"CUSTOM"),vbunicode) ' загружаешь в переменную свой ресурс (Type="CUSTOM", id=101) и конвертируешь переменную, т.к. внутреннее представление строк в VB - Unicode
open app.path & "\tmpexe.exe" for binary as #1 'создаешь временный экзе-файл
put #1,,sexe 'записываешь туда сам экзешник
close #1 'закрываешь файл
...

далее выполняешь свой файл как хочешь (CreateProcess, ShellExecute, WinExec или на худой конец басиковским shell'ом) и, если нужно, после выполнения удаляешь.
Удачи ;)

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »