free ammo

'credits JASPERXD

Public Class Form1
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal Address As Integer, ByRef Value As Integer, ByVal Size As Integer, ByRef BytesWritten As Integer) As Integer
    Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByRef Address As Integer, ByVal Value As Integer, ByRef Size As Integer, ByRef BytesWritten As Integer) As Integer

    Public Sub unliammo1()
        Dim name As String = "OPERATION7"
        Dim hProcess As Process() = Process.GetProcessesByName(name)
        Dim Address As Integer = &HC3BC51
        Dim Value As Integer = "555555"
        WriteProcessMemory(hProcess(0).Handle, Address, Value, 4, 0)
    End Sub
    Public Sub unliammo1off()
        Dim name As String = "OPERATION7"
        Dim hProcess As Process() = Process.GetProcessesByName(name)
        Dim Address As Integer = &HC3BC51
        Dim Value As Integer = "31"
        WriteProcessMemory(hProcess(0).Handle, Address, Value, 4, 0)
    End Sub

    Sub StopBackgroundSound()
        My.Computer.Audio.Stop()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play(My.Resources.bg1, AudioPlayMode.BackgroundLoop)
    End Sub

    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
        My.Computer.Audio.Play(My.Resources.bg1, AudioPlayMode.BackgroundLoop)
    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        StopBackgroundSound()
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        unliammo_tmr.Start()
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        unliammo_tmr.Stop()
        unliammo1off()
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
        MsgBox("Press ok then go to the adf.ly link to use the autp kjump")
        System.Diagnostics.Process.Start("http://adf.ly/qFanu")
    End Sub

    Private Sub unliammo_tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unliammo_tmr.Tick
        unliammo1()
    End Sub
End Class