Process Modules Project

Process Modules Project source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Process Modules and ProcessName Collecter - Form1.vb

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

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.