запуск exe из res!

[Hawok]

помогите! есть res прицепленный к проекту... как допустим при нажати на кнопку запускался exe из этого *.res

Dim lang_Yes As (какой тип?)
lang_Yes = LoadResData(101, "CUSTOM")

[BV]

Dim lang_Yes As Byte

[Роман-вб]

Hawok

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

Dim exeArr() As Byte
  Dim f As Long
  ReDim exeArr(UBound(LoadResData(101, "CUSTOM")))
  exeArr() = LoadResData(101, "CUSTOM")
  f = FreeFile
  On Error Resume Next
  Open "C:\A.exe" For Binary Access Write As #f
  Put #f, , exeArr
  Close #f
  Shell ттт.ттт...ттт..

[Hawok]

Hawok

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

Dim exeArr() As Byte
  Dim f As Long
  ReDim exeArr(UBound(LoadResData(101, "CUSTOM")))
  exeArr() = LoadResData(101, "CUSTOM")
  f = FreeFile
  On Error Resume Next
  Open "C:\A.exe" For Binary Access Write As #f
  Put #f, , exeArr
  Close #f
  Shell ттт.ттт...ттт..

СпасибО! терь другая проблемка распаковывает он в (Open "C:\A.exe") но надо чтобы распаковывал в дерикторию с моей прогой т.к пути везде относительны! типа C:/папка_с_твоей_прогой/ непредлагать

[Amed]

App.Path

[Hawok]

App.Path

все я просто сделал Open "a.exe" чето сначало ступил

[GM]

App.Path

все я просто сделал Open "a.exe" чето сначало ступил

Действительно ступил, ибо "a.exe", указывает на файл в текущей директории. А app.path & "\a.exe" указывает на файл который находиться в папке с программой.

ЗЫ: Только нужно смотреть не лежит ли программа в корневой папки, тогда слеша добавлять не нужно.

[Роман-вб]

Hawok
К стати, потом, по завершении проги можешь кильнуть экзешник

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

KILL App.Path & "\a.exe"

[AjaxVS]

ЗЫ: Только нужно смотреть не лежит ли программа в корневой папки, тогда слеша добавлять не нужно.

В Win9X это не прокатит..

Лучше делать как делают все:

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

s = app.path
if right$(s)<>"\" then s = s & "\"
s = s & "a.exe"

[Wild VB Code for Food]

а меня интересует такой вопрос.....надо запустить байкод в текушем процессе....я себе так представляю.....

PowerBasic:

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

Dim bytecode() as byte
Dim size as long

size = LoadByteCode(ByRef bytecode) 'самописная функция, загружает в переменную байт код....

ReDim bytecode(size)

CallbyDword VarPtr(bytecode) Using Plugin_Ext(a,b,c) to lResult

.....


вот меня интересует, выполнение кода в дата сегменте прокатит?

[tyomitch]

вот меня интересует, выполнение кода в дата сегменте прокатит?

Что такое "дата сегмент" в виндовой проге?

[Wild VB Code for Food]

насколько я понимаю переменные хранятся в .data сегменте. те DS/

Есть различия в виндовой и досовской проге?

ЗЫ. Я имею ввиду прокатит если EIP в сегменте DS
при у словии что в последнем байте массива - retn

[tyomitch]

Есть различия в виндовой и досовской проге?

Есть различия. В винде нету сегментов.
Соответственно, не бывает и далёких вызовов. И далёких возвратов тоже нет.

[ANDLL]

Сегментов то нет, но вот страницы все-таки различаются по атрибутам... Хоть программная эмуляция DEP в WinXP SP2 и не работает(я проверял), все же не следует передавать управелние в код, находящийся в странице не помеченной для исполнения.
Это может привести к неработоспособности программы на более современных процессорах.

[Wild VB Code for Food]

Ок. спасибо, прояснил...

Где тогда хранятся переменные? Ясен хрен что виртуальная память и хранятся в свопе (pagefile.sys), но я имею ввиду откуда прога читает переменные?

ЗЫ. Тогда такой вопрос, как выполнить байткод, прочитаный извне, в пределах процеесса

[ANDLL]

Где тогда хранятся переменные?

Там же, где и все остальное

Ясен хрен что виртуальная память и хранятся в свопе (pagefile.sys)

Всегда интересовало, а вот если свопа нет, то и переменные не работают? Откуда вообще плодятся эти теории?

ЗЫ. Тогда такой вопрос, как выполнить байткод, прочитаный извне, в пределах процеесса

Посмотреть мои статьи. Там показательным образом создаются страницы с атрибутами выполнения.

[Wild VB Code for Food]

мне теории по низко уровневому программированию под вин32 не хватает.

ЗЫ. Интересно получилось........когда я постил товоего поста небыло.....

[tyomitch]

Wild VB Code, обязательно почитай про расширение часов в трее

[Wild VB Code for Food]

tyomitch
Предлагаешь записать в себячерез WirteMemory? сейчас попробую....

[ANDLL]

Нет, он предлогает восхитится своим гением Шутка.
Но если тебе требуется все делает в своем процессе, то и WriteProcessMemory не поможет

[Smert]

Лучше использовать OLE!!! Вставляешь EXE-шку в форму через OLE
и пишешь где-нибудь в обработчике кода:
OLE1.DoVerb 1

И всё!!

[Kovu]

Smert
Та ты шо ©