ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / самоуничтожение
25 сообщений из 29, страница 1 из 2
  1  все
самоуничтожение
    #37371848
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Open App.Path + "\Delself.bat" For Append As # 1 
    Print # 1 , "@echo off"
    Print # 1 , ":try"
    Print # 1 , "del " + App.EXEName + ".exe"
    Print # 1 , "if exist " + App.EXEName + ".exe goto try"
    Print # 1 , "del " + App.Path + "\Delself.bat"
    Close
    Shell App.Path + "\Delself.bat", vbHide
выше код с этого форума, создающий бат файл, который должен удалить запустившую его прогу. испробовал - бат файл не может убить прогу, т.к. она запущена. как прописать в бате, чтобы он подождал пару секунд, пока прога закроется? или проблема в другом?
...
Рейтинг: 0 / 0
28.07.2011, 22:52
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371870
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ву-первых строках письма... этать... как уже советовали - давайте обзывать файлы "*.cmd"
Ву-вторых - парент VBA всё равно будет дожидаться исполнения процесса, запущенного "из-под себя" напрямую.
Ву-третьих - достаточно сформировать текстовый файл для VBScrips/JScrips и повесить его при выходе на Shell.Execute с параметром /nowait
...
Рейтинг: 0 / 0
28.07.2011, 23:16
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371886
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
AndreTM,

простите, но не догоняю, в чём суть. что нуно дописать в вывешенном выше коде? желательно простой таймер в бат, если возможно
...
Рейтинг: 0 / 0
28.07.2011, 23:33
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371898
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
BelowZeroнуно
кто такой нуно?
...
Рейтинг: 0 / 0
28.07.2011, 23:47
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371902
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Я имел ввиду... в виду...
Ну _какой_ таймер в батнике?
1) Формируете, скажем, .vbs и запускаете его на ожидание закрытия приложения | конкретного действия приложения
2) Действуете уже из скрипта, анализируя состояние нужного вам приложения/окна....

Вообще, я бы это писАл через AutoIt... Впрочем, я где-то выше об этом уже заикАлся.
...
Рейтинг: 0 / 0
28.07.2011, 23:50
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371903
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BelowZeroпока прога закроется?А с чего прога должна закрыться? Полностью можно код?
...
Рейтинг: 0 / 0
28.07.2011, 23:51
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371905
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AndreTM, ты меня удивляешь уже второй раз за сегодня. Код вполне рабочий, просто автор не понимает, как его применить.
...
Рейтинг: 0 / 0
28.07.2011, 23:52
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371907
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.ProBelowZeroпока прога закроется?А с чего прога должна закрыться? Полностью можно код?
полный код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Private Sub Form_Load()
'прога поработала поработала поработала поработала захотела самоуничтожиться:
    Open App.Path + "\Delself.bat" For Append As # 1 
    Print # 1 , "@echo off"
    Print # 1 , ":try"
    Print # 1 , "del " + App.EXEName + ".exe"
    Print # 1 , "if exist " + App.EXEName + ".exe goto try"
    Print # 1 , "del " + App.Path + "\Delself.bat"
    Close
    Shell App.Path + "\Delself.bat", vbHide
    end sub
варианты с скриптами и тд пока что сложны lzk понимания, пытаюсь разобраться с бат файлами, пока что не догоняю, как. *нуно(задротский онлайн язык флудерастов) = нужно
...
Рейтинг: 0 / 0
28.07.2011, 23:56
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371909
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Тебе нужно не с бат-файлами разбираться, а в VB

Что и требовалось доказать. Собственно, хоть ты две секунды ставь задержку, хоть десять - ты чего дождаться-то то хочешь?
...
Рейтинг: 0 / 0
28.07.2011, 23:59
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371912
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

запустить бат файл на исполнение, быстренько завершится. бат файл должен удалить прогу и самоуничтожиться. или принцип другой?)
...
Рейтинг: 0 / 0
29.07.2011, 00:01
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371914
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BelowZeroзапустить бат файл на исполнение, быстренько завершится. бат файл должен удалить прогу и самоуничтожиться. или принцип другой?)
Shocker.ProBelowZeroпока прога закроется?А с чего прога должна закрыться?
...
Рейтинг: 0 / 0
29.07.2011, 00:02
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371917
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Open App.Path + "\Delself.bat" For Append As # 1 
    Print # 1 , "@echo off"
    Print # 1 , ":try"
    Print # 1 , "del " + App.EXEName + ".exe"
    Print # 1 , "if exist " + App.EXEName + ".exe goto try"
    Print # 1 , "del " + App.Path + "\Delself.bat"
    Close
    Shell App.Path + "\Delself.bat", vbHide
    Unload Me
...
Рейтинг: 0 / 0
29.07.2011, 00:07
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371923
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
так как запихать таймер или задержку в бат?
...
Рейтинг: 0 / 0
29.07.2011, 00:14
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371924
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BelowZeroтак как запихать таймер или задержку в бат? а теперь-то зачем?
...
Рейтинг: 0 / 0
29.07.2011, 00:18
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371925
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

у меня прога выключается, одновременно бат файл самоудаляется, не убив программу. в итоге остаётся одна выключенная некикнутая прога)
...
Рейтинг: 0 / 0
29.07.2011, 00:19
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371928
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
поэтому, я думал, может дело в фальтстарте батника...
...
Рейтинг: 0 / 0
29.07.2011, 00:23
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371930
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Если ты удосужишься посмотреть в сам батник, то увидишь, что он не может удалить себя, пока не удалит прогу.
...
Рейтинг: 0 / 0
29.07.2011, 00:34
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371932
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

тем не менее, всё так, как написал. а то бы не стал писать на форум) был ехе файл. в него запихал приведённый выше код. прога создаёт батник и выключается. батник самоудаляется. остаётся выключенная прога
...
Рейтинг: 0 / 0
29.07.2011, 00:36
| Ответить | Цитировать | Написать  
самоуничтожение
    #37371938
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
пишет run-time error '52' Bad file name or number. и что оно от меня хочет?..
...
Рейтинг: 0 / 0
29.07.2011, 00:55
| Ответить | Цитировать | Написать  
самоуничтожение
    #37372057
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Поэкспериментировал
проект не удаляется, если в его имени есть пробелы
а если в пути есть пробелы, то не удаляется и батник

экспериментируй с кавычками или "короткими" именами
...
Рейтинг: 0 / 0
29.07.2011, 08:57
| Ответить | Цитировать | Написать  
самоуничтожение
    #37372063
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Shocker.ProЕсли ты удосужишься посмотреть в сам батник, то увидишь, что он не может удалить себя, пока не удалит прогу.... если имя "проги" не содержит пробелов и знаков "не латинницы"

BelowZero,
не гадайте на кофэйной гуще. Посмотрите, что делает Ваш батник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Open App.Path + "\Delself.bat" For Append As # 1 
'    Print #1, "@echo off"
    Print # 1 , ":try"
    Print # 1 , "del " + App.EXEName + ".exe"
    Print # 1 , "if exist " + App.EXEName + ".exe goto try"
    Print # 1 , "del " + App.Path + "\Delself.bat"
    Print # 1 , "pause"
    Close
    Shell App.Path + "\Delself.bat", vbNormalFocus
    Unload Me
Запихнуть задержку в бат можно командой
Код: plaintext
ping  127 . 0 . 0 . 1  -n примерная_задержка_в_секундах
...
Рейтинг: 0 / 0
29.07.2011, 09:01
| Ответить | Цитировать | Написать  
самоуничтожение
    #37372343
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
скукотища,

после вставки Pause в батник он также самоудалился, не тронув ехе, тока на этот раз без ошибки 52)))
...
Рейтинг: 0 / 0
29.07.2011, 11:36
| Ответить | Цитировать | Написать  
самоуничтожение
    #37372524
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
проверил код отдельно - работает правильно. в пооолном коде(около тысячи строк) что-то работать не хочет. с именами, пробелами, латиницей проблем нет
...
Рейтинг: 0 / 0
29.07.2011, 12:28
| Ответить | Цитировать | Написать  
самоуничтожение
    #37372533
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
BelowZero,

Код в студию!
...
Рейтинг: 0 / 0
29.07.2011, 12:31
| Ответить | Цитировать | Написать  
самоуничтожение
    #37373008
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
timtim,

код, к сожалению, выложить никак, т.к. это готовый работоспособный проект. прикол в том, что один и тот же бат файл, созданный из одной программы, работает, а из другой - нет...
...
Рейтинг: 0 / 0
29.07.2011, 15:12
| Ответить | Цитировать | Написать  
25 сообщений из 29, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / самоуничтожение
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=Tashkentskiy&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 8ms
get forum list:
 12ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 442ms
total:  599ms
созд. / загр.: 599ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]