VBNet - Форум - Закрыть прогу и окрыть новую

Вопрос: Закрыть прогу и окрыть новую Добавлено: 14.11.04 20:06

Автор вопроса: StrikeR | Web-сайт: www.highlight.ee | ICQ: 151819

давно я не нуждался в помощи и вот теперь, она нужна=)
И так...есть у меня фаил (exe1.exe), он загружает фаил exe2.exe и закрываеться... в exe2.exe есть буттон, при нажатии которого должно происходить следующее:
закрываеться exe2.exe и загружаеться exe1.exe, что бы заного загрузить exe2.exe... что-то типа рестарта проги...но у меня ничего неполучаеться=(
кесли напишу:
s=shell("exe1.exe")
end
выскакивает нечто, а так писать бесполезно:
end 'или unload me
s= shell("exe1.exe")

... чё мне делать??
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #1	Добавлено: 14.11.04 21:28
	выскакивает нечто Что выскакивает??? Откуда выскакивает??? Если надо сделать рестарт программы, то: Private Sub Command1_Click() Shell App.Path & "\" & App.EXEName & ".exe" End End Sub Ответить

Номер ответа: 2 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #2	Добавлено: 14.11.04 21:29
	Чтобы не путаться: это^^^ код в ехе1. Exe2 для рестарта не нужен Ответить

Номер ответа: 3 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330	Профиль \| \| #3	Добавлено: 15.11.04 02:32
	Попробуй перед выгрузкой exe2 создать такой батник Sub CreateBat() If Dir(App.Path & "\Run.bat", vbHidden + vbSystem) <> "Run.bat" Then Open App.Path + "\Run.bat" For Output As #1 Print #1, "@echo off" Print #1, ":try" Print #1, App.EXEName + ".exe" Print #1, "if Not exist " + App.EXEName + ".exe" + " goto try" Print #1, "del Run.bat" 'не уверен что последняя строчка сработает... Close End If SetAttr App.Path & "\Run.bat", vbHidden + vbSystem Shell App.Path + "\Run.bat" End End Sub Ответить

Номер ответа: 4 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860	Web-сайт: mc-black.narod.ru/dzp.htm Профиль \| \| #4	Добавлено: 15.11.04 11:30
	Из exe2.exe вызови exe1.exe с параметром командной строки, чтобы exe1.exe поняла, что на этот раз ей требуется только загрузиться, а не пытаться снва запустьить exe2.exe и потом закрыться. Параметр командной строки возвращает функция Command, если что... Надеюсь, что я правильно тебя понял. Удачи! Ответить

Страница: 1 |