DIR Return Create A Forum - Home
       ---------------------------------------------------------
       Hack Community
  HTML https://roshacks.createaforum.com
       ---------------------------------------------------------
       *****************************************************
   DIR Return to: VB.NET
       *****************************************************
       #Post#: 629--------------------------------------------------
       [VB.NET] GetProcessId
   DIR By: pipo1337
       Date: May 21, 2018, 9:18 pm
       ---------------------------------------------------------
       Definitions:
       --- Code ---
       Public Declare Function OpenProcess Lib "KERNEL32" (ByVal
       DesiredAccess As Int32, ByVal InheritHandle As Boolean, ByVal
       ProcessId As Int32) As Int32
       
       Public PROCESS_VM_OPERATION As Int32 = 8
       Public PROCESS_VM_READ As Int32 = 16
       Public PROCESS_VM_WRITE As Int32 = 32
       
       Private process_id As Int32 = 0
       Public pHandle As Integer = 0
       --- End Code ---
       Function:
       --- Code ---
       Public Function GetProcessId(ByVal game_name As String) As
       Boolean
       Dim Processes() As Process = Process.GetProcesses
       Dim process_name As String
       Dim i As Byte
       For i = LBound(Processes) To UBound(Processes)
       process_name = Processes(i).ProcessName
       If process_name = game_name Then
       process_id = Processes(i).Id
       pHandle = OpenProcess(PROCESS_VM_OPERATION +
       PROCESS_VM_WRITE + PROCESS_VM_READ, False, process_id)
       Return True
       End If
       Next
       If process_id = 0 Then
       Return False
       End If
       Return False
       End Function
       --- End Code ---
       Usage Example:
       --- Code ---
       If GetProcessId("ros") Then
       Label1.Text = "ROS opened"
       Else
       Label1.text = "ROS closed"
       End If
       --- End Code ---
       *****************************************************
       Page 1 of 1