DIR Return Create A Forum - Home
       ---------------------------------------------------------
       Hack Community
  HTML https://roshacks.createaforum.com
       ---------------------------------------------------------
       *****************************************************
   DIR Return to: VB.NET
       *****************************************************
       #Post#: 629--------------------------------------------------
       [VB.NET] GetProcessId
       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[/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[/code]
       Usage Example:
       [code]If GetProcessId("ros") Then
       Label1.Text = "ROS opened"
       Else
       Label1.text = "ROS closed"
       End If[/code]
       *****************************************************