Code:
Public Class Form1
'ingame
Dim ingame As Integer
'mapname
Dim ui_mapname As String
'Client Primary Weapons
Dim Client0 As Integer
Dim Client1 As Integer
Dim Client2 As Integer
Dim Client3 As Integer
Dim Client4 As Integer
Dim Client5 As Integer
Dim Client6 As Integer
Dim Client7 As Integer
Dim Client8 As Integer
Dim Client9 As Integer
Dim Client10 As Integer
Dim Client11 As Integer
Dim Client12 As Integer
Dim Client13 As Integer
Dim Client14 As Integer
Dim Client15 As Integer
Dim Client16 As Integer
Dim Client17 As Integer
'Client Secondary Weapons
Dim Client0S As Integer
Dim Client1S As Integer
Dim Client2S As Integer
Dim Client3S As Integer
Dim Client4S As Integer
Dim Client5S As Integer
Dim Client6S As Integer
Dim Client7S As Integer
Dim Client8S As Integer
Dim Client9S As Integer
Dim Client10S As Integer
Dim Client11S As Integer
Dim Client12S As Integer
Dim Client13S As Integer
Dim Client14S As Integer
Dim Client15S As Integer
Dim Client16S As Integer
Dim Client17S As Integer
'Client Tactical Equipment
Dim Eclient0 As Integer
Dim Eclient1 As Integer
Dim Eclient2 As Integer
Dim Eclient3 As Integer
Dim Eclient4 As Integer
Dim Eclient5 As Integer
Dim Eclient6 As Integer
Dim Eclient7 As Integer
Dim Eclient8 As Integer
Dim Eclient9 As Integer
Dim Eclient10 As Integer
Dim Eclient11 As Integer
Dim Eclient12 As Integer
Dim Eclient13 As Integer
Dim Eclient14 As Integer
Dim Eclient15 As Integer
Dim Eclient16 As Integer
Dim Eclient17 As Integer
'Client Lethal Equipment
Dim Lclient0 As Integer
Dim Lclient1 As Integer
Dim Lclient2 As Integer
Dim Lclient3 As Integer
Dim Lclient4 As Integer
Dim Lclient5 As Integer
Dim Lclient6 As Integer
Dim Lclient7 As Integer
Dim Lclient8 As Integer
Dim Lclient9 As Integer
Dim Lclient10 As Integer
Dim Lclient11 As Integer
Dim Lclient12 As Integer
Dim Lclient13 As Integer
Dim Lclient14 As Integer
Dim Lclient15 As Integer
Dim Lclient16 As Integer
Dim Lclient17 As Integer
'open my clickbate lol
Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
System.Diagnostics.Process.Start("https://www.youtube.com/watch?v=ViNgC3RBCT4")
End Sub
Private Sub Form2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
System.Diagnostics.Process.Start("https://www.youtube.com/user/AdobeBridge?sub_confirmation=1")
End Sub
'ingamecheck
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
ingame = ReadMemory(Of Byte)(&H90C82D)
ui_mapname = ReadMemory(Of String)(&HA01870)
'ui_mapname text
mapname.Text = ui_mapname
Status.ForeColor = Color.OrangeRed
'ingame text. Also stops timer when not ingame to save cpu/not crash your game
If ingame = 0 Then
Status.Text = "No"
Status.ForeColor = Color.Red
Timer1.Enabled = 0
Else
Status.Text = "Yes"
Status.ForeColor = Color.Green
Timer1.Enabled = 1
End If
End Sub
'Forced Classes
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'Primary Weapons Read
Client0 = ReadMemory(Of Byte)(&H1C296BC)
Client1 = ReadMemory(Of Byte)(&H1C2CFA8)
Client2 = ReadMemory(Of Byte)(&H1C30894)
Client3 = ReadMemory(Of Byte)(&H1C34180)
Client4 = ReadMemory(Of Byte)(&H1C37A6C)
Client5 = ReadMemory(Of Byte)(&H1C3B358)
Client6 = ReadMemory(Of Byte)(&H1C3EC44)
Client7 = ReadMemory(Of Byte)(&H1C42530)
Client8 = ReadMemory(Of Byte)(&H1C45E1C)
Client9 = ReadMemory(Of Byte)(&H1C49708)
Client10 = ReadMemory(Of Byte)(&H1C4CFF4)
Client11 = ReadMemory(Of Byte)(&H1C508E0)
Client12 = ReadMemory(Of Byte)(&H1C541CC)
Client13 = ReadMemory(Of Byte)(&H1C57AB8)
Client14 = ReadMemory(Of Byte)(&H1C5B3A4)
Client15 = ReadMemory(Of Byte)(&H1C5EC90)
Client16 = ReadMemory(Of Byte)(&H1C6257C)
Client17 = ReadMemory(Of Byte)(&H1C65E68)
'Secondary Weapons Read
Client0S = ReadMemory(Of Byte)(&H1C296B4)
Client1S = ReadMemory(Of Byte)(&H1C2CFA0)
Client2S = ReadMemory(Of Byte)(&H1C3088C)
Client3S = ReadMemory(Of Byte)(&H1C34178)
Client4S = ReadMemory(Of Byte)(&H1C37A64)
Client5S = ReadMemory(Of Byte)(&H1C3B350)
Client6S = ReadMemory(Of Byte)(&H1C3EC3C)
Client7S = ReadMemory(Of Byte)(&H1C42528)
Client8S = ReadMemory(Of Byte)(&H1C45E14)
Client9S = ReadMemory(Of Byte)(&H1C49700)
Client10S = ReadMemory(Of Byte)(&H1C4CFEC)
Client11S = ReadMemory(Of Byte)(&H1C508D8)
Client12S = ReadMemory(Of Byte)(&H1C541C4)
Client13S = ReadMemory(Of Byte)(&H1C57AB0)
Client14S = ReadMemory(Of Byte)(&H1C5B39C)
Client15S = ReadMemory(Of Byte)(&H1C5EC88)
Client16S = ReadMemory(Of Byte)(&H1C62574)
Client17S = ReadMemory(Of Byte)(&H1C65E60)
'Tactical Equipment Read
Eclient0 = ReadMemory(Of Byte)(&H1C296C0)
Eclient1 = ReadMemory(Of Byte)(&H1C2CFAC)
Eclient2 = ReadMemory(Of Byte)(&H1C30898)
Eclient3 = ReadMemory(Of Byte)(&H1C34184)
Eclient4 = ReadMemory(Of Byte)(&H1C37A70)
Eclient5 = ReadMemory(Of Byte)(&H1C3B35C)
Eclient6 = ReadMemory(Of Byte)(&H1C3EC48)
Eclient7 = ReadMemory(Of Byte)(&H1C42534)
Eclient8 = ReadMemory(Of Byte)(&H1C45E20)
Eclient9 = ReadMemory(Of Byte)(&H1C4970C)
Eclient10 = ReadMemory(Of Byte)(&H1C4CFF8)
Eclient11 = ReadMemory(Of Byte)(&H1C508E4)
Eclient12 = ReadMemory(Of Byte)(&H1C541D0)
Eclient13 = ReadMemory(Of Byte)(&H1C57ABC)
Eclient14 = ReadMemory(Of Byte)(&H1C5B3A8)
Eclient15 = ReadMemory(Of Byte)(&H1C5EC94)
Eclient16 = ReadMemory(Of Byte)(&H1C62580)
Eclient17 = ReadMemory(Of Byte)(&H1C65E6C)
'Letal Equipment Read
Lclient0 = ReadMemory(Of Byte)(&H1C296B8)
Lclient1 = ReadMemory(Of Byte)(&H1C2CFA4)
Lclient2 = ReadMemory(Of Byte)(&H1C30890)
Lclient3 = ReadMemory(Of Byte)(&H1C3417C)
Lclient4 = ReadMemory(Of Byte)(&H1C37A68)
Lclient5 = ReadMemory(Of Byte)(&H1C3B354)
Lclient6 = ReadMemory(Of Byte)(&H1C3EC40)
Lclient7 = ReadMemory(Of Byte)(&H1C4252C)
Lclient8 = ReadMemory(Of Byte)(&H1C45E18)
Lclient9 = ReadMemory(Of Byte)(&H1C49704)
Lclient10 = ReadMemory(Of Byte)(&H1C4CFF0)
Lclient11 = ReadMemory(Of Byte)(&H1C508DC)
Lclient12 = ReadMemory(Of Byte)(&H1C541C8)
Lclient13 = ReadMemory(Of Byte)(&H1C57AB4)
Lclient14 = ReadMemory(Of Byte)(&H1C5B3A0)
Lclient15 = ReadMemory(Of Byte)(&H1C5EC8C)
Lclient16 = ReadMemory(Of Byte)(&H1C62578)
Lclient17 = ReadMemory(Of Byte)(&H1C65E64)
'PRIMARY WEAPONS
'Client 0
If Client0 = 42 Then
ElseIf Client0 = 43 Then
ElseIf Client0 = 46 Then
Else WriteMemory(&H1C296BC, 1.44295849393813E-312)
WriteMemory(&H1C297E4, 1.44295849393813E-312)
End If
'Client 1
If Client1 = 42 Then
ElseIf Client1 = 43 Then
ElseIf Client1 = 46 Then
Else WriteMemory(&H1C2CFA8, 1.44295849393813E-312)
WriteMemory(&H1C2D0D0, 1.44295849393813E-312)
End If
'Client 2
If Client2 = 42 Then
ElseIf Client2 = 43 Then
ElseIf Client2 = 46 Then
Else WriteMemory(&H1C30894, 1.44295849393813E-312)
WriteMemory(&H1C309BC, 1.44295849393813E-312)
End If
'Client 3
If Client3 = 42 Then
ElseIf Client3 = 43 Then
ElseIf Client3 = 46 Then
Else WriteMemory(&H1C34180, 1.44295849393813E-312)
WriteMemory(&H1C342A8, 1.44295849393813E-312)
End If
'Client 4
If Client4 = 42 Then
ElseIf Client4 = 43 Then
ElseIf Client4 = 46 Then
Else WriteMemory(&H1C37A6C, 1.44295849393813E-312)
WriteMemory(&H1C37B94, 1.44295849393813E-312)
End If
'Client 5
If Client5 = 42 Then
ElseIf Client5 = 43 Then
ElseIf Client5 = 46 Then
Else WriteMemory(&H1C3B358, 1.44295849393813E-312)
WriteMemory(&H1C3B480, 1.44295849393813E-312)
End If
'Client 6
If Client6 = 42 Then
ElseIf Client6 = 43 Then
ElseIf Client6 = 46 Then
Else WriteMemory(&H1C3EC44, 1.44295849393813E-312)
WriteMemory(&H1C3ED6C, 1.44295849393813E-312)
End If
'Client 7
If Client7 = 42 Then
ElseIf Client7 = 43 Then
ElseIf Client7 = 46 Then
Else WriteMemory(&H1C42530, 1.44295849393813E-312)
WriteMemory(&H1C42658, 1.44295849393813E-312)
End If
'Client 8
If Client8 = 42 Then
ElseIf Client8 = 43 Then
ElseIf Client8 = 46 Then
Else WriteMemory(&H1C45E1C, 1.44295849393813E-312)
WriteMemory(&H1C45F44, 1.44295849393813E-312)
End If
'Client 9
If Client9 = 42 Then
ElseIf Client9 = 43 Then
ElseIf Client9 = 46 Then
Else WriteMemory(&H1C49708, 1.44295849393813E-312)
WriteMemory(&H1C49830, 1.44295849393813E-312)
End If
'Client 10
If Client10 = 42 Then
ElseIf Client10 = 43 Then
ElseIf Client10 = 46 Then
Else WriteMemory(&H1C4CFF4, 1.44295849393813E-312)
WriteMemory(&H1C4D11C, 1.44295849393813E-312)
End If
'Client 11
If Client11 = 42 Then
ElseIf Client11 = 43 Then
ElseIf Client11 = 46 Then
Else WriteMemory(&H1C508E0, 1.44295849393813E-312)
WriteMemory(&H1C50A08, 1.44295849393813E-312)
End If
'Client 12
If Client12 = 42 Then
ElseIf Client12 = 43 Then
ElseIf Client12 = 46 Then
Else WriteMemory(&H1C541CC, 1.44295849393813E-312)
WriteMemory(&H1C542F4, 1.44295849393813E-312)
End If
'Client 13
If Client13 = 42 Then
ElseIf Client13 = 43 Then
ElseIf Client13 = 46 Then
Else WriteMemory(&H1C57AB8, 1.44295849393813E-312)
WriteMemory(&H1C57BE0, 1.44295849393813E-312)
End If
'Client 14
If Client14 = 42 Then
ElseIf Client14 = 43 Then
ElseIf Client14 = 46 Then
Else WriteMemory(&H1C5B3A4, 1.44295849393813E-312)
WriteMemory(&H1C5B4CC, 1.44295849393813E-312)
End If
'Client 15
If Client15 = 42 Then
ElseIf Client15 = 43 Then
ElseIf Client15 = 46 Then
Else WriteMemory(&H1C5EC90, 1.44295849393813E-312)
WriteMemory(&H1C5EDB8, 1.44295849393813E-312)
End If
'Client 16
If Client16 = 42 Then
ElseIf Client16 = 43 Then
ElseIf Client16 = 46 Then
Else WriteMemory(&H1C6257C, 1.44295849393813E-312)
WriteMemory(&H1C626A4, 1.44295849393813E-312)
End If
'Client 17
If Client17 = 42 Then
ElseIf Client17 = 43 Then
ElseIf Client17 = 46 Then
Else WriteMemory(&H1C65E68, 1.44295849393813E-312)
WriteMemory(&H1C65F90, 1.44295849393813E-312)
End If
'Disable Secondary Weapons
If Client0S = 0 Then
Else WriteMemory(&H1C296B4, 0)
End If
If Client1S = 0 Then
Else WriteMemory(&H1C2CFA0, 0)
End If
If Client2S = 0 Then
Else WriteMemory(&H1C3088C, 0)
End If
If Client3S = 0 Then
Else WriteMemory(&H1C34178, 0)
End If
If Client4S = 0 Then
Else WriteMemory(&H1C37A64, 0)
End If
If Client5S = 0 Then
Else WriteMemory(&H1C3B350, 0)
End If
If Client6S = 0 Then
Else WriteMemory(&H1C3EC3C, 0)
End If
If Client7S = 0 Then
Else WriteMemory(&H1C42528, 0)
End If
If Client8S = 0 Then
Else WriteMemory(&H1C45E14, 0)
End If
If Client9S = 0 Then
Else WriteMemory(&H1C49700, 0)
End If
If Client10S = 0 Then
Else WriteMemory(&H1C4CFEC, 0)
End If
If Client11S = 0 Then
Else WriteMemory(&H1C508D8, 0)
End If
If Client12S = 0 Then
Else WriteMemory(&H1C541C4, 0)
End If
If Client13S = 0 Then
Else WriteMemory(&H1C57AB0, 0)
End If
If Client14S = 0 Then
Else WriteMemory(&H1C5B39C, 0)
End If
If Client15S = 0 Then
Else WriteMemory(&H1C5EC88, 0)
End If
If Client16S = 0 Then
Else WriteMemory(&H1C62574, 0)
End If
If Client17S = 0 Then
Else WriteMemory(&H1C65E60, 0)
End If
'Tactical Equipment
'Client0
If Eclient0 = 0 Then
ElseIf Eclient0 = 74 Then
Else
WriteMemory(&H1C296C0, 0)
End If
'Client1
If Eclient1 = 0 Then
ElseIf Eclient1 = 74 Then
Else
WriteMemory(&H1C2CFAC, 0)
End If
'Client2
If Eclient2 = 0 Then
ElseIf Eclient2 = 74 Then
Else
WriteMemory(&H1C30898, 0)
End If
'Client3
If Eclient3 = 0 Then
ElseIf Eclient3 = 74 Then
Else
WriteMemory(&H1C34184, 0)
End If
'Client4
If Eclient4 = 0 Then
ElseIf Eclient4 = 74 Then
Else
WriteMemory(&H1C37A70, 0)
End If
'Client5
If Eclient5 = 0 Then
ElseIf Eclient5 = 74 Then
Else
WriteMemory(&H1C3B35C, 0)
End If
'Client6
If Eclient6 = 0 Then
ElseIf Eclient6 = 74 Then
Else
WriteMemory(&H1C3EC48, 0)
End If
'Client7
If Eclient7 = 0 Then
ElseIf Eclient7 = 74 Then
Else
WriteMemory(&H1C42534, 0)
End If
'Client8
If Eclient8 = 0 Then
ElseIf Eclient8 = 74 Then
Else
WriteMemory(&H1C45E20, 0)
End If
'Client9
If Eclient9 = 0 Then
ElseIf Eclient9 = 74 Then
Else
WriteMemory(&H1C4970C, 0)
End If
'Client10
If Eclient10 = 0 Then
ElseIf Eclient10 = 74 Then
Else
WriteMemory(&H1C4CFF8, 0)
End If
'Client11
If Eclient11 = 0 Then
ElseIf Eclient11 = 74 Then
Else
WriteMemory(&H1C508E4, 0)
End If
'Client12
If Eclient12 = 0 Then
ElseIf Eclient12 = 74 Then
Else
WriteMemory(&H1C541D0, 0)
End If
'Client13
If Eclient13 = 0 Then
ElseIf Eclient13 = 74 Then
Else
WriteMemory(&H1C57ABC, 0)
End If
'Client14
If Eclient14 = 0 Then
ElseIf Eclient14 = 74 Then
Else
WriteMemory(&H1C5B3A8, 0)
End If
'Client15
If Eclient15 = 0 Then
ElseIf Eclient15 = 74 Then
Else
WriteMemory(&H1C5EC94, 0)
End If
'Client16
If Eclient16 = 0 Then
ElseIf Eclient16 = 74 Then
Else
WriteMemory(&H1C62580, 0)
End If
'Client17
If Eclient17 = 0 Then
ElseIf Eclient17 = 74 Then
Else
WriteMemory(&H1C65E6C, 0)
End If
'Lethal Equipment
'Client0
If Lclient0 = 0 Then
Else
WriteMemory(&H1C296B8, 0)
End If
'Client1
If Lclient1 = 0 Then
Else
WriteMemory(&H1C2CFA4, 0)
End If
'Client2
If Lclient2 = 0 Then
Else
WriteMemory(&H1C30890, 0)
End If
'Client3
If Lclient3 = 0 Then
Else
WriteMemory(&H1C3417C, 0)
End If
'Client4
If Lclient4 = 0 Then
Else
WriteMemory(&H1C37A68, 0)
End If
'Client5
If Lclient5 = 0 Then
Else
WriteMemory(&H1C3B354, 0)
End If
'Client6
If Lclient6 = 0 Then
Else
WriteMemory(&H1C3EC40, 0)
End If
'Client7
If Lclient7 = 0 Then
Else
WriteMemory(&H1C4252C, 0)
End If
'Client8
If Lclient8 = 0 Then
Else
WriteMemory(&H1C45E18, 0)
End If
'Client9
If Lclient9 = 0 Then
Else
WriteMemory(&H1C49704, 0)
End If
'Client10
If Lclient10 = 0 Then
Else
WriteMemory(&H1C4CFF0, 0)
End If
'Client11
If Lclient11 = 0 Then
Else
WriteMemory(&H1C508DC, 0)
End If
'Client12
If Lclient12 = 0 Then
Else
WriteMemory(&H1C541C8, 0)
End If
'Client13
If Lclient13 = 0 Then
Else
WriteMemory(&H1C57AB4, 0)
End If
'Client14
If Lclient14 = 0 Then
Else
WriteMemory(&H1C5B3A0, 0)
End If
'Client15
If Lclient15 = 0 Then
Else
WriteMemory(&H1C5EC8C, 0)
End If
'Client16
If Lclient16 = 0 Then
Else
WriteMemory(&H1C62578, 0)
End If
'Client17
If Lclient17 = 0 Then
Else
WriteMemory(&H1C65E64, 0)
End If
End Sub
'Timer For Classes
Private Sub MetroCheckBox1_CheckedChanged_1(sender As Object, e As EventArgs) Handles MetroCheckBox1.CheckedChanged
If MetroCheckBox1.CheckState = CheckState.Checked Then
Timer1.Enabled = True
ElseIf MetroCheckBox1.CheckState = CheckState.Unchecked Then
Timer1.Enabled = False
End If
End Sub
End Class