Kendi Hack'imi kodlarken sorun ? yardım eder misiniz.

Private Sub VCheckBox19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VCheckBox19.Click
On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label3.Text = moz.BaseAddress.ToString
End If
Next
If VCheckBox19.Checked = True Then
antiahh.Start()
On Error Resume Next
WriteLong("wolftü.bin", Label1.Text + &H2B2F34, "17925391") 'envanter aktif
WriteLong("wolftü.bin", Label3.Text + &H218F6, "2251820148") 'aimbot on
WriteLong("wolftü.bin", Label3.Text + &HCA6D1, "3196063092") 'aimbot 2 on

End If
If VCheckBox19.Checked = False Then
antiahh.Stop()
On Error Resume Next
WriteLong("wolftü.bin", Label1.Text + &H2B2F34, "17925135") 'envanter pasif
WriteLong("wolftü.bin", Label3.Text + &H218F6, "2251820149") 'aimbot of
WriteLong("wolftü.bin", Label3.Text + &HCA6D1, "3196063093") 'aimbot 2 of
End If
End Sub

Private Sub antiahh_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles antiahh.Tick
WriteLong("wolftü.bin", Label1.Text + &H18EED0, "3102510019") 'Anti Ahh On
WritePointerInteger("wolftü.bin", Label2.Text + &H299A8C, "1", &H14, &H120, &H464)
WriteLong("wolftü.bin", Label3.Text + &H218F6, "2251820148") 'aimbot on
WriteLong("wolftü.bin", Label3.Text + &HCA6D1, "3196063092") 'aimbot 2 on
End Sub

Kodlar bu şekilde fakat ahh yasaklı eşya hatası vermekte 5 öldürmeden sonra yardımcı olursanız çok sevinirim.