ok pottsy, Im pretty sure you will get banned for posting this shit about my hack.
Source:
Form1:
Code:
Public Class Form1
Dim nextwpnID As Integer = 88
Dim Web As New Net.WebClient
Dim p() As Process
Dim b As Boolean = True
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Timer2.Enabled = True Then
Button1.Text = "Superman"
Else
Button1.Text = "ON"
End If
Timer2.Enabled = Not Timer2.Enabled
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If UpdateProcessHandle() Then
Label1.Text = "Black Cops running..."
Timer1.Interval = 5000
Else
Label1.Text = "Waiting for Black Ops..."
Timer1.Interval = 1000
Timer2.Enabled = False
Button2.Text = "Inf Ammo"
Button1.Text = "Superman"
Timer3.Enabled = False
End If
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
WriteMemory(Of Integer)(&H147958B28, 250)
WriteMemory(Of Integer)(&H14803B9F8, 250)
WriteMemory(Of Integer)(&H154F95790, 390)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer3.Enabled = Not Timer3.Enabled
If Button2.Text = "Inf Ammo" Then
Button2.Text = "ON"
WriteMemory(Of Integer)(&H14802548C, 322)
WriteMemory(Of Integer)(&H148025494, 322)
WriteMemory(Of Integer)(&H1480254D4, 322)
WriteMemory(Of Single)(&H148024E94, 0)
Else
Button2.Text = "Inf Ammo"
End If
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
WriteMemory(Of Integer)(&H1480254D0, 228)
WriteMemory(Of Integer)(&H1480254C8, 228)
WriteMemory(Of Single)(&H148024E94, 0)
WriteMemory(Of Integer)(&H1480254CC, 4)
WriteMemory(Of Integer)(&H1480254D4, 4)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
nextwpnID = Convert.ToInt32(ComboBox1.SelectedItem.ToString().Split(" ")(0))
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
WriteMemory(Of Integer)(&H1480251E8, nextwpnID)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
WriteMemory(Of Integer)(&H14803BCA4, 999999)
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
WriteMemory(Of Integer)(&H148025248, nextwpnID)
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("https://steamcommunity.com/id/MilfHunter322/")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Process.Start("https://www.mpgh.net/forum/member.php?u=1826400")
Button6.Text = "Thanks!"
Button6.Enabled = False
End Sub
Public Function FromBase64(ByVal sText As String) As String
Dim nBytes() As Byte = System.Convert.FromBase64String(sText)
Return System.Text.Encoding.Default.GetString(nBytes)
End Function
Private Function isRunning(ByVal pName As String) As Boolean
p = Process.GetProcessesByName(pName)
If p.Count > 0 Then
Return True
Else
Return False
End If
End Function
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "This will cause a bug if you dont have mule kick!" & vbNewLine & "Do you want to continue?"
style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
title = "GET MULEKICK"
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then
WriteMemory(Of Integer)(&H01480252A8, nextwpnID)
End If
End Sub
End Class
Mb you want me to add Designer Code or my MemoryClass ?