Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница: 1 | 2 |

 

  Вопрос: Как определить наличие процесса? Добавлено: 04.07.10 13:10  

Автор вопроса:  griha09

Ответить

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

Номер ответа: 16
Автор ответа:
 Станислав



Вопросов: 0
Ответов: 9
  Профиль | | #16 Добавлено: 14.08.10 14:42
Я по-разному пробовал, но без результата. А внутри Public Sub WaitForExit что пишется, процесс, который необходимо ждать или команда на запуск процесса?

Ответить

Номер ответа: 17
Автор ответа:
 Станислав



Вопросов: 0
Ответов: 9
  Профиль | | #17 Добавлено: 14.08.10 15:01
Спасибо за помощь! Все решил, в Class ApplicationEvents вставил следующее:
  1. Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs ) Handles Me.Startup
  2.             
  3.             Dim info As ProcessStartInfo = New ProcessStartInfo("Partner")
  4.             Dim process As New Process()
  5.             process.StartInfo = info
  6.             AddHandler process.Exited, AddressOf OnProcessExit
  7.             process.Start()
  8.             process.WaitForExit()
  9.  
  10.         End Sub

Ответить

Номер ответа: 18
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #18 Добавлено: 15.08.10 13:15
клево :)

Ответить

Номер ответа: 19
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #19 Добавлено: 15.08.10 14:06
А зачем AddHandler, если ты все равно ждешь завершения процеса в MyApplication_Startup?

Ответить

Номер ответа: 20
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #20 Добавлено: 15.08.10 14:09
А зачем AddHandler, если ты все равно ждешь завершения процеса в MyApplication_Startup?

а ты думаешь он знает? Он скопипастил и всего делов )))))

Ответить

Номер ответа: 21
Автор ответа:
 Seva



Вопросов: 0
Ответов: 2
  Профиль | | #21 Добавлено: 23.01.11 14:56
Народ а как добавить функцию чтоб он искал не название файла целиком а лишь его часть.Допустим чтоюб если к Artmoney добавились цифры (тоесть Artmoney732.exe)он всеровно его находил по части слова Artmo.Буду признателен.Вот ваш скрипт
  1. Dim strComputer, strProcess
  2.  
  3. strComputer = "."
  4. strProcess = "Artmoney.exe"
  5.  
  6. Dim wmiQuery: wmiQuery = "Select * From Win32_Process Where Name='" & strProcess & "'"
  7. Dim objWMIService: Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  8. Dim colItems: Set colItems = objWMIService.ExecQuery(wmiQuery)
  9. Dim intProcCount: intProcCount = colItems.Count
  10. Set colItems = objWMIService.ExecQuery(wmiQuery)
  11. intProcCount = colItems.Count
  12. If intProcCount > 0 Then
  13.   MsgBox "Start"
  14. Else
  15. MsgBox "wailt@@"
  16. End If

ТАк вот поясню еще раз.Допустим он открыл приложение Ar

Ответить

Номер ответа: 22
Автор ответа:
 Seva



Вопросов: 0
Ответов: 2
  Профиль | | #22 Добавлено: 26.01.11 11:38
проблема решена

Ответить

Страница: 1 | 2 |

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



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