Envanter kodlama

Öncelikle konuyu yanlış yerde açtıysam çok özür dilerim daha yeni üyeyim.sizden bir konu hakkında yardımcı olmanızı istiyorum yaklaşık hemen hemen 1 haftadır envanter hack kodlamaya çalışıyorum herşeyi düzgün yaptıgıma eminim ama bir türlü başaramadım. xigncode dolarken csh ve bini aktif ediyorum burda bir sıkıntı yok daha sonra tam dolmadan anti ahh ve aimbotu işaretlediğimde işlem başarılamadı wolftü.bin gibi bir  hata açılıyor acaba anti ahh aim bot pointerinde bir hatamı yaptım (aimbot bine anti  ahh yi csh ye bağladım )  bu şekilde kodladım lütfen yardımcı olun
----------------------------------- 
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
        For Each moz As System.Diagnostics.ProcessModule In p.Modules
            If moz.FileName.IndexOf("csh") <> -1 Then
                Label1.Text = moz.BaseAddress.ToString
            End If
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
        For Each moz As System.Diagnostics.ProcessModule In p.Modules
            If moz.FileName.IndexOf("csh") <> -1 Then
                Label2.Text = moz.BaseAddress.ToString
            End If
        Next
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Timer1.Start()
        ElseIf CheckBox1.Checked = False Then
            Timer1.Stop()
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Timer2.Start()
        ElseIf CheckBox2.Checked = False Then
            Timer2.Stop()
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            Timer3.Start()
        ElseIf CheckBox3.Checked = False Then
            Timer3.Stop()
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            Timer4.Start()
        ElseIf CheckBox4.Checked = False Then
            Timer4.Stop()
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            Timer5.Start()
        ElseIf CheckBox5.Checked = False Then
            Timer5.Stop()
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            Timer6.Start()
        ElseIf CheckBox6.Checked = False Then
            Timer6.Stop()
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox7.Checked = True Then
            Timer7.Start()
        ElseIf CheckBox7.Checked = False Then
            Timer7.Stop()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hack As Integer = Label1.Text + &H614D64
        WriteLong("wolftü.bin", hack, TextBox1.Text)
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim hack As Integer = Label1.Text + &H614EE0
        WriteLong("wolftü.bin", hack, TextBox2.Text)
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim hack As Integer = Label1.Text + &H614F2C
        WriteLong("wolftü.bin", hack, TextBox3.Text)
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Dim hack As Integer = Label1.Text + &H614F78
        WriteLong("wolftü.bin", hack, TextBox4.Text)
    End Sub

    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        WriteLong("wolftü.bin", Label1.Text + &H192FD0, "3102510019")
    End Sub

    Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
        WritePointerInteger("wolftü.bin", Label2.Text + &H28A474, "1", 20, &H120, &H464)
    End Sub

 Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
        WriteLong("wolftü.bin", Label1.Text + &H277D14, "17925391")
    End Sub
End Class

beyler bir yardımcı olun lütfen kafayı yiyecem 1 haftadır