Hack Community


Useful links: Invite your friends | Recover Password | Advertising in HC





March 03, 2019, 01:26:57 am Hintchy says: any Pubg Lite hax?

February 25, 2019, 08:31:26 am THE_G says: hi

February 20, 2019, 03:34:12 am OP-HACK says: https://www.youtube.com/watch?v=opgkDO-QAQo&t=7s

February 14, 2019, 02:33:50 am _pipo_ says: Hi wassup abuali :D

February 13, 2019, 09:21:43 pm abuali121 says: hi :D

February 12, 2019, 01:33:28 am _pipo_ says: hello

February 08, 2019, 10:42:11 am luziferk says: Hello everyone :D

December 06, 2018, 07:15:46 am _pipo_ says: Yea thats good idea can you upload random pubg mobile hacks to bring more traffic first?

December 06, 2018, 01:10:35 am THE_G says: you guys Should do some PUBG MOBILE cheats as it will bring in more traffic!  : D

December 06, 2018, 01:08:06 am THE_G says: Just Do it!

View Shout History

Author Topic: [VB.NET] GetProcessId  (Read 6713 times)

0 Members and 0 Guests are viewing this topic.

Offline _pipo_

  • Administrator
  • 1337
  • *
  • Posts: 393
  • ❤️
  • Referrals: 2
    • View Profile
[VB.NET] GetProcessId
« on: May 21, 2018, 09:18:48 pm »
Code: [Select]
    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: [Select]
    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
        If process_id = 0 Then
            Return False
        End If
        Return False
    End Function

Usage Example:
Code: [Select]
If GetProcessId("ros") Then
            Label1.Text = "ROS opened"
            Label1.text = "ROS closed"
        End If

Share on Facebook Share on Twitter



android, best android apps, top apps, top applications, google, games, customization, top android apps, best android applications, tools, productivity, pixel 3, playstore, sam beckman, essential phone, note 9, pixel 3 xl, 2018, oneplus 6t, oneplus 6, september, galaxy s9, galaxy note 9, october, notch, oreo, pie, ios, best applications, icon pack, wallpaper, top android applications, november, november 2018, apps, december 2018, nougat, october 2018, oneplus 5t, pixel 2 xl, modded apps, hacked games, best android apps, modded android apps, mods, hacks, mod, android mods, no jailbreak, no computer, iphone, ipad, ipod touch, top android, without jailbreak, without computer, ios 9.3, ios 9.3.5, ios 9, ios 10.3, ios 10.2, ios 10.1, ios 10.0.2, ios 10, get paid apps for free, get paid apps free, install paid apps free, how to, how to install paid apps free, dinozambas2, best, cydia alternatives, install hacked apps free, get hacked apps free, install, tweaked ++ apps ios 12, best free apps ios 12, best free games ios 12, get tweaked apps, tweaked apps ios 12