VPF::как узнать запущен ли процесс - Форум программистов

gangsterovich

Дата 19.7.2012, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1

Код


  Public Function IsProcessRunning(ByVal name As String) As Boolean
      
        For Each clsProcess As Process In Process.GetProcesses()
            If clsProcess.ProcessName.StartsWith(name) Then
                             MsgBox("да")
                Return True
            End If
        Next
     
        Return False

так я узнаю запущен ли вообще процесс.а как узнать запущен ли процесс от юзеа "admin"?

diadiavova

Дата 22.7.2012, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(gangsterovich @ 19.7.2012, 15:22

)

а как узнать запущен ли процесс от юзеа "admin"?

Ну собственно, если процесс запускается от другого юзера и имя указывается при запуске, то получить его можно в том же самом месте, куда оно до этого вводилось

Код


        Dim si As New ProcessStartInfo("notepad.exe")
        With si
            .WorkingDirectory = "C:\Windows\System32\"
            .LoadUserProfile = False
            .UserName = "test"
            .Password = New Security.SecureString()
            .Password.AppendChar("t"c)
            .Password.AppendChar("e"c)
            .Password.AppendChar("s"c)
            .Password.AppendChar("t"c)
            .UseShellExecute = False
        End With
        Dim proc = Process.Start(si)

        Console.WriteLine(proc.StartInfo.UserName)
        ' Console.ReadKey()

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

gangsterovich

Дата 22.7.2012, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1

хмм.так не катит.нужен монитор процессов.тоесть нужно как в первом посте перебирать процессы .но только определенного юзера

diadiavova

Дата 22.7.2012, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(gangsterovich @ 22.7.2012, 23:16

)

тоесть нужно как в первом посте перебирать процессы .но только определенного юзера

А что мешает это сделать? Я тебе показал как узнать от чьего имени запущен процесс, а дальше уже делай что тебе нужно.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

gangsterovich

Дата 22.7.2012, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1

когда я перебираю коллекцию Process.GetProcesses() ,то у процессов не могу посмотреть юзер запуска.

не там копаю?

diadiavova

Дата 23.7.2012, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(gangsterovich @ 23.7.2012, 00:16

)

когда я перебираю коллекцию Process.GetProcesses() ,то у процессов не могу посмотреть юзер запуска.

Ну фиг знает, другого способа я не знаю.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

gangsterovich

Дата 23.7.2012, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1

Код


Public Function IsProcessRunning(ByVal name As String) As Boolean
        Dim Processes = GetObject("winmgmts:")
        Dim myProcEnum = Processes.ExecQuery("SELECT * FROM Win32_Process")
        For Each Proc In myProcEnum
            Proc.GetOwner(name)
            If Proc.Name = "proga.exe" Then
                MsgBox("да")
            End If
        Next
End Function

вот еще есть пример.но если строчку кода писать как Proc.GetOwner("admin"),то более-менее работает.но если передавать переменную - Proc.GetOwner(name) ,тогда бьет ошибку "Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена". ничего не понимаю(

gangsterovich

Дата 24.7.2012, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 22.10.2011

Репутация: 1
Всего: 1

на всякий пожарный выложу решение.на форуме мсдн решили)

Код



 Public Shared Function GetAllProcessOwners() As Dictionary(Of Integer, String)
        Dim d As New Dictionary(Of Integer, String)()
        'string DummyStr = String.Empty;
        Dim User As String = [String].Empty
        Dim ProcessStr As String = [String].Empty
        Try
            Dim WMIQuery As New ObjectQuery("Select * from Win32_Process")
            Dim WMIResult As New ManagementObjectSearcher(WMIQuery)
            If WMIResult.[Get]().Count = 0 Then
                Return d
            End If
            For Each oItem As ManagementObject In WMIResult.[Get]()
                Dim List As String() = New [String](1) {}
                oItem.InvokeMethod("GetOwner", DirectCast(List, Object()))
                ProcessStr = DirectCast(oItem("Name"), String)
                User = List(0)
                If User Is Nothing Then
                    User = [String].Empty
                End If
                'string[] StrSID = new String[1];
                'oItem.InvokeMethod("GetOwnerSid", (object[])StrSID);
                'DummyStr = StrSID[0];
                d.Add(Convert.ToInt32(oItem("ProcessId")), User)
            Next
        Catch E As Exception
            Console.WriteLine(E.Message)
            Return d
        End Try
        Return d
    End Function


    Private Shared Sub Main(ByVal args As String())
        Dim List As Dictionary(Of Integer, String) = GetAllProcessOwners()
        Dim processList As Process() = Process.GetProcesses()
        For Each p As Process In processList
            If List.ContainsKey(p.Id) Then
                Console.WriteLine(p.Id.ToString() & " "c & List(p.Id))
            End If
        Next
        Console.ReadLine()
    End Sub

Это сообщение отредактировал(а) gangsterovich - 24.7.2012, 11:50

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »