Код отлавливает запуск процессов
Есть код:
- Код: Выделить всё
Public Class Form1
Dim OLD_processes() As String
Dim NEW_processes() As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OLD_processes = Me.GetProcesses
Me.Mytimer.Interval = 1000
Me.Mytimer.Start()
End Sub
Private Function GetProcesses() As String()
Dim i As Integer
Dim OneProcess As Process
Dim Processes() As Process
Processes = Process.GetProcesses
Dim temparr(Processes.Length - 1) As String
Try
i = 0
For Each OneProcess In Processes
temparr(i) = OneProcess.ProcessName.ToString
i = i + 1
Next
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Return temparr
End Function
Private Sub Mytimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Mytimer.Tick
Dim pn As String
NEW_processes = Me.GetProcesses
For Each pn In NEW_processes
If OLD_processes.Contains(pn) = False Then
Me.ListBox1.Items.Add(pn)
End If
Next
OLD_processes = NEW_processes
End Sub
End Class
Все работает но: При запуске какого либа процесса, Например "notepad.exe" код выводит только название процесса т.e "notepad" а не полный путь к файлу с расширением. Подскажите как получить полный путь к запущенному процессу?
