Страница: 1 |
Привет! Вот вопрос есть: нужно, чтобы прога открывала сама себя n-ое кол-во раз!
For i = 1 to n Shell App.Path & "\" & App.EXEName & ".exe" next i В смысле тебе нужно чтоб она после собственного запуска стартовала еще несколько раз? тогда... dim StartVar as byte form_Load() if StartVar = 10 then exit sub ' - если тебе нужно открывать ее 10 раз StartVar = StartVar + 1 shell "C:\YourProgram.exe" Или тебе нужно чтоб прога работала как Trial'ная версия , тогда открываи где-нибудь фаил и с каждым новым запуском прверяи и приписываи к числу в фаиле еденичку Страница: 1 |
Вопрос: -------------ЗАПУСКАЛКА-------------
Добавлено: 03.02.04 19:01
Автор вопроса: Mufasa | Web-сайт:
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
ZoomerSD
ICQ: 148640473
Вопросов: 135
Ответов: 270
Профиль | | #1
Добавлено: 03.02.04 19:11
Номер ответа: 2
Автор ответа:
dNW
Вопросов: 30
Ответов: 683
Профиль | | #2
Добавлено: 03.02.04 19:13
Номер ответа: 3
Автор ответа:
dNW
Вопросов: 30
Ответов: 683
Профиль | | #3
Добавлено: 04.02.04 12:35
ИМХО: я был слегка удивлен, когда заметил,что обладатель такого саита как www.webpricols.narod.ru не знает ответа на столь простои вопрос
Номер ответа: 4
Автор ответа:
Mufasa
Вопросов: 19
Ответов: 63
Web-сайт:
Профиль | | #4
Добавлено: 04.02.04 13:51
Ответ то я знаю! Тока код у меня больно длинный, а надо не более 70 символов. ВОТ!!!