Code:
Dim PH As New ProcessHandle 'Checked if a process is running
Dim HSI As New HackSetInt 'Hack into a Process, ("iw5mp") = MW3 - Multiplayer
Dim Level As Integer = &H1DC02B8 'Level-Offset for 1.9.461
Dim Prestige As Integer = &H1DC04C8 'Prestige-Offset for 1.9.461
Code:
Dim Second As Integer = 0
Code:
Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button.Click
Second = 0 'If the Button is clicked again, then the Second goes back to 0
Application.DoEvents()
Timer1.Start()
If PH.Process_Handle("iw5mp") Then
HSI.Hack("iw5mp")
HSI.SetInt(Prestige_Offset, Second)
Else
MsgBox("Game is not running!", , "Warning!")
End If
End Sub
Code:
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Second += 1 'If Timer1.Interval = 1000 then is "Second" every Second +1 Number up
Second = CStr(Second)
If Second = 21 Then
Second = 21 'If "Second" is 21, then it goes back to 0 and it's start it new again
End If
End Sub