Process Modules and ProcessName Collecter - Form1.vb

Process Modules and ProcessName Collecter / Form1.vb

Process Modules and ProcessName Collecter - Form1.vb

Form1.vb

1. Public Class Form1
2.     Dim ProNum As Integer = 0
3.     Private Sub GetBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetBTN.Click
4.         On Error Resume Next
5.         LB.Items.Clear()
6.         Dim Myprocesses() As Process
7.         Dim Myprocess As Process
8.         Myprocesses = Process.GetProcesses
9.         For Each Myprocess In Myprocesses
10.             If Myprocess.ProcessName.ToLower = NameTXT.Text.ToLower Then
11.                 LB.Items.Add(Myprocess.ProcessName & " - " & Myprocess.MainWindowTitle)
12.                 For Addad As Integer = 0 To Myprocess.Modules.Count - 1
13.                     ProNum = ProNum + 1
14.                     LB.Items.Add(Myprocess.Modules.Item(Addad).FileName)
15.                 Next
16.             End If
17.         Next
18.         If LB.Items.Count <= 0 Then MsgBox("لم يتم التعرف على برنامج الطلب", MsgBoxStyle.OkOnly, "خطأ")
19.         ProNum = 0
20.     End Sub
21.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
22.         Me.Left = 0
23.     End Sub
24.     Private Sub NameTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles NameTXT.KeyDown
25.         If e.KeyCode = Keys.Enter Then
26.             GetBTN_Click(sender, e)
27.         End If
28.     End Sub
29.     Private Sub LB_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LB.MouseDoubleClick
30.         'Call Shell("devenv.exe" & " " & LB.SelectedItem.ToString, AppWinStyle.MaximizedFocus, False)
31.         System.Diagnostics.Process.Start("devenv.exe", LB.SelectedItem.ToString)
32.     End Sub
33. End Class