Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Узнать запущен ли .exe Добавлено: 06.04.09 22:49  

Автор вопроса:  WildWOlf_SS | Web-сайт: ssteam.ucoz.ua | ICQ: 482827273 
У меня такая проблема...

Программа должна быть н автозапуске и при попытке запустить proga.exe должна выдлвать окно если да, например, то тогда запускать, если нет, то вырубать..

так вот как узнать запущен ли конкретный .exe??

и как его прервать или продолжить?

Ответить

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

Номер ответа: 1
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
 Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1
Добавлено: 06.04.09 23:15
  1. Public Class Form1
  2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3. Dim Processes() As Process
  4. Dim Proc As Process
  5. Processes = Process.GetProcessesByName("qip") 'Закрываем программу QIP
  6. For Each Proc In Processes
  7. 'Попытка закрыть программу по хорошему
  8. Proc.CloseMainWindow()
  9. 'Если по хорошому не получилось то закрываем по плохому
  10. If Not Proc.HasExited Then
  11. Proc.Kill()
  12. End If
  13. Next
  14. End Sub
  15. End Class
  16.  
  17. 3.28 Отображение

Ответить

Номер ответа: 2
Автор ответа:
 WildWOlf_SS



ICQ: 482827273 

Вопросов: 2
Ответов: 12
 Web-сайт: ssteam.ucoz.ua
 Профиль | | #2
Добавлено: 06.04.09 23:21
не немного не то..неправильно видно я изъяснился) сорь...вот так:

прогу которую я напишу ( secure.exe например) стоит на автозапуске.. я в ней забил адрес проги , например d:\Files\MyProgramm.exe При попытке запустить МyProgramm.exe прога secure.exe выдает окно: запустить или нет...если да, то продолжить открытие MyProgramm.exe , если нет, то завершить MyProgramm.exe ... вот так..надеюсь сейчас понятно))

Ответить

Номер ответа: 3
Автор ответа:
 rw12lq



Вопросов: 2
Ответов: 80
 Профиль | | #3 Добавлено: 06.04.09 23:57
Думаю, что подойдет - http://vbnet.ru/faq/showtopic.asp?id=415

Ответить

Номер ответа: 4
Автор ответа:
 rw12lq



Вопросов: 2
Ответов: 80
 Профиль | | #4 Добавлено: 07.04.09 00:00
Или можешь так поизвращаться - http://www.vbstreets.ru/VB/Articles/66345.aspx - моя старая статья...

Ответить

Номер ответа: 5
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
 Профиль | | #5 Добавлено: 07.04.09 01:26
Я эту проблему вообще по другому решил. Мне надо было узнать есть ли на компе расшаренные диски, если да то работаем, а если нет, то не грузимся и вот какой код у меня стоит при загрузке формы. Как пример мож не ахти, но мне лень было переделывать для примера.
  1. If ShName <> "" Then
  2. ShareName = ShName
  3. Set Drive = Nothing
  4. Set fso = Nothing
  5. Else
  6. MsgBox "&#207;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#224; &#243;&#241;&#242;&#224;&#237;&#238;&#226;&#235;&#229;&#237;&#224; &#237;&#224; &#228;&#232;&#241;&#234; &#234;&#238;&#242;&#238;&#240;&#251;&#233; &#237;&#229; &#240;&#224;&#241;&#248;&#224;&#240;&#229;&#237;, &#242;&#238; &#229;&#241;&#242;&#252; &#228;&#232;&#241;&#234; &#234; &#234;&#238;&#242;&#238;&#240;&#238;&#236;&#243; &#237;&#229; &#241;&#236;&#238;&#227;&#243;&#242; &#238;&#225;&#240;&#224;&#249;&#224;&#242;&#252;&#241;&#255; &#234;&#235;&#232;&#229;&#237;&#242;&#241;&#234;&#232;&#229; &#234;&#238;&#236;&#239;&#252;&#254;&#242;&#229;&#240;&#251;. &#196;&#235;&#255; &#234;&#238;&#240;&#240;&#229;&#234;&#242;&#237;&#238;&#233; &#240;&#224;&#225;&#238;&#242;&#251; &#239;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#251; &#238;&#242;&#234;&#240;&#238;&#233;&#242;&#229; &#228;&#232;&#241;&#234; &#228;&#235;&#255; &#241;&#229;&#242;&#229;&#226;&#251;&#245; &#239;&#238;&#235;&#252;&#231;&#238;&#226;&#224;&#242;&#229;&#235;&#229;&#233; (&#240;&#224;&#241;&#248;&#224;&#240;&#252;&#242;&#229;) &#232;&#235;&#232; &#243;&#241;&#242;&#224;&#237;&#238;&#226;&#232;&#242;&#229; &#239;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#243; &#237;&#224; &#228;&#232;&#241;&#234;, &#234;&#238;&#242;&#238;&#240;&#251;&#233; &#238;&#242;&#234;&#240;&#251;&#242; &#228;&#235;&#255; &#241;&#229;&#242;&#229;&#226;&#251;&#245; &#234;&#238;&#236;&#239;&#252;&#254;&#242;&#229;&#240;&#238;&#226;.", vbInformation
  7. Set Drive = Nothing
  8. Set fso = Nothing
  9. Unload Me
  10. End If

Ответить

Номер ответа: 6
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #6
Добавлено: 07.04.09 18:14
Ему совсем не это нужно. Ему нужно дать разрешение на запуск ДРУГОЙ проги, а не своей, насколько я понял.
Чувак, с ВБ ты погорячился =) Тут надо писать библу на чем-то более продвинутом. Си, Асм... Вот. И грузить ее во все процессы. Из библы надо хукать CreateProcessInternal, либо NtCreateProcess (подмена импорта, сплайсинг(. Библа будет передавать твоему приложению имя запускаемого процесса (сообщение, DDE, общая память - тебе решать) и ожидать ответа от тебя. Ну а ты уже решаешь, надо ли запускать, либо нет.

Offtop:
Испугался? Не парься, ничего особенно сложного. Просто погугли незнакомые слова =)
И еще... переходите уже на COD4 =) {sVc} лучшие! (с) {sVc}V1RTUOZ[/offop]

Ответить

Номер ответа: 7
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #7 Добавлено: 07.04.09 20:03
Не гуглится, дай ссылку чтоли :)

Ответить

Номер ответа: 8
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #8
Добавлено: 07.04.09 22:22
Какое слово неясно? =))

Ответить

Номер ответа: 9
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #9 Добавлено: 07.04.09 22:38
COD4 все результаты об игре кол оф дюти :)

Ответить

Номер ответа: 10
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #10
Добавлено: 07.04.09 23:46
 =)) цук)

Ответить

Номер ответа: 11
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #11 Добавлено: 08.04.09 00:03
WTF

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам