Emektar Üye
NOT: 1 ADET LABEL 1 ADET TİMER LAZIM PROJEYE.
MERHABA ARKADAŞLAR BUGÜN SİZLERE ALL KCK HACK KODUNU PAYLAŞICAM UMARIM İŞİNİZE YARAR
[font=Consolas, monospace]End Sub[/FONT]
MERHABA ARKADAŞLAR BUGÜN SİZLERE ALL KCK HACK KODUNU PAYLAŞICAM UMARIM İŞİNİZE YARAR
TİMER 1 GELECEK KOD;
[font=Consolas, monospace]Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)[/FONT]
[font=Consolas, monospace] Dim processArray1 As Process()[/FONT]
[font=Consolas, monospace] Dim bool1 As Boolean[/FONT]
[font=Consolas, monospace] processArray1 = Process.GetProcessesByName("wolftü.bin")[/FONT]
[font=Consolas, monospace] bool1 = (Enumerable.Count(Of Process)(processArray1) = 1)[/FONT]
[font=Consolas, monospace] If (bool1 = True) Then[/FONT]
[font=Consolas, monospace] Me.Timer1.Stop()[/FONT]
[font=Consolas, monospace] Interaction.MsgBox("Hack Loaded", MsgBoxStyle.OkOnly Or MsgBoxStyle.OkCancel Or MsgBoxStyle.AbortRetryIgnore Or MsgBoxStyle.YesNoCancel Or MsgBoxStyle.YesNo Or MsgBoxStyle.RetryCancel Or MsgBoxStyle.Critical Or MsgBoxStyle.Question Or MsgBoxStyle.Exclamation Or MsgBoxStyle.Information Or MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.DefaultButton3 Or MsgBoxStyle.ApplicationModal Or MsgBoxStyle.SystemModal Or MsgBoxStyle.MsgBoxHelp Or MsgBoxStyle.MsgBoxRight Or MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxSetForeground, Nothing)[/FONT]
[font=Consolas, monospace] [/FONT]
[font=Consolas, monospace] End If[/FONT]
[font=Consolas, monospace] Return[/FONT]
[font=Consolas, monospace]End Sub[/FONT]
FORM1 E ÇİFT TIKLAYIN ARDINDAN ŞU KODLARI EKLEYİN;
[font=Consolas, monospace]Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)[/FONT]
[font=Consolas, monospace] Dim process1 As Process[/FONT]
[font=Consolas, monospace] Dim module1 As ProcessModule[/FONT]
[font=Consolas, monospace] Dim enumerator1 As IEnumerator[/FONT]
[font=Consolas, monospace] Dim ptr1 As IntPtr[/FONT]
[font=Consolas, monospace] Dim bool1 As Boolean[/FONT]
[font=Consolas, monospace] process1 = Process.GetProcessesByName("wolftü.bin")(0)[/FONT]
[font=Consolas, monospace] Try[/FONT]
[font=Consolas, monospace] enumerator1 = process1.Modules.GetEnumerator()[/FONT]
[font=Consolas, monospace] GoTo Label_0067[/FONT]
[font=Consolas, monospace] Do While (bool1 = True)[/FONT]
[font=Consolas, monospace] module1 = DirectCast(enumerator1.Current, ProcessModule)[/FONT]
[font=Consolas, monospace] bool1 = ((module1.FileName.IndexOf("bin") = -1) = False)[/FONT]
[font=Consolas, monospace] If (bool1 = True) Then[/FONT]
[font=Consolas, monospace] ptr1 = module1.BaseAddress[/FONT]
[font=Consolas, monospace] Me.Label1.Text = ptr1.ToString()[/FONT]
[font=Consolas, monospace] End If[/FONT]
[font=Consolas, monospace]Label_0067:[/FONT]
[font=Consolas, monospace] bool1 = enumerator1.MoveNext()[/FONT]
[font=Consolas, monospace] Loop[/FONT]
[font=Consolas, monospace] GoTo Label_0096[/FONT]
[font=Consolas, monospace] Finally[/FONT]
[font=Consolas, monospace] bool1 = (((TryCast(enumerator1, IDisposable)) = Nothing) = False)[/FONT]
[font=Consolas, monospace] If (bool1 = True) Then[/FONT]
[font=Consolas, monospace] (TryCast(enumerator1, IDisposable)).Dispose()[/FONT]
[font=Consolas, monospace] End If[/FONT]
[font=Consolas, monospace] End Try[/FONT]
[font=Consolas, monospace]Label_0096:[/FONT]
[font=Consolas, monospace] ReadWritingMemory.WriteLong("wolftü.bin", Math.Round((CDbl(Me.Label1.Text) + 63739)), CLng("3624157400"), 4)[/FONT]
[font=Consolas, monospace] Return[/FONT]
[font=Consolas, monospace]End Sub[/FONT]
Önce Bi Yaz Örnek : Merhaba Arkadaşlar Bugün sizeler şu şu şu Kodunu Söyliyeceğim Diye Yazarsan Seviniriz 
