Çalışmıyor All kick hack kodları ;)


Memory Mezarlığı    Forumda Gereksiz Bulanan veya Artık İşlevi Olmayan Konuların Taşındığı Kategori ( Bi Fatiha Okumadan Geçmeyiniz :) )

Yazar: Ufuk    45 Yorum    1589 Görüntüleme
  • 1 Oy - 5 Yüzde
Konu Kapalı

Paylaşım Tarihi: 31.01.2016, 22:34:11 #1
Ufuk #ЦFЦҚ BEY
*****
Moderatör
Status: Dışarıda Yorum Sayısı:965 Konu Sayısı:255 Üyelik Tarihi:30.12.2015 Rep Puanı: 528

[hide] 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


TİMER 1 GELECEK KOD;

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)

   Dim processArray1 As Process()

   Dim bool1 As Boolean



   processArray1 = Process.GetProcessesByName("Wolfteam.bin")

   bool1 = (Enumerable.Count(Of Process)(processArray1) = 1)

   If (bool1 = True) Then

       Me.Timer1.Stop()

       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)

       

   End If

   Return



End Sub




FORM1 E ÇİFT TIKLAYIN ARDINDAN ŞU KODLARI EKLEYİN;
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
   Dim process1 As Process

   Dim module1 As ProcessModule

   Dim enumerator1 As IEnumerator

   Dim ptr1 As IntPtr

   Dim bool1 As Boolean



   process1 = Process.GetProcessesByName("WolfTeam.bin")(0)

   Try

       enumerator1 = process1.Modules.GetEnumerator()

       GoTo Label_0067

       Do While (bool1 = True)

           module1 = DirectCast(enumerator1.Current, ProcessModule)

           bool1 = ((module1.FileName.IndexOf("bin") = -1) = False)

           If (bool1 = True) Then

               ptr1 = module1.BaseAddress

               Me.Label1.Text = ptr1.ToString()

           End If

Label_0067:

           bool1 = enumerator1.MoveNext()

       Loop

       GoTo Label_0096

   Finally

       bool1 = (((TryCast(enumerator1, IDisposable)) = Nothing) = False)

       If (bool1 = True) Then

           (TryCast(enumerator1, IDisposable)).Dispose()

       End If

   End Try

Label_0096:

   ReadWritingMemory.WriteLong("WolfTeam.bin", Math.Round((CDbl(Me.Label1.Text) + 63739)), CLng("3624157400"), 4)

   Return



End Sub
 [/hide]
Son Düzenleme: 31.01.2016, 22:39:12, Düzenleyen: Ufuk.
Paylaşım Tarihi: 31.01.2016, 22:35:45 #2
AlpBenjamins Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:270 Konu Sayısı:118 Üyelik Tarihi:28.11.2015

Dostum Hiç Birşey Yazmadan Hide Koyma Lütfen Smile Önce Bi Yaz Örnek : Merhaba Arkadaşlar Bugün sizeler şu şu şu Kodunu Söyliyeceğim Diye Yazarsan Seviniriz Smile
İYİ FORUMLAR DİLEĞİMİZLE
Paylaşım Tarihi: 31.01.2016, 23:48:17 #3
metrealx Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:16 Konu Sayısı:0 Üyelik Tarihi:31.01.2016

wolfteam ss
Paylaşım Tarihi: 31.01.2016, 23:49:37 #4
ferhatkurtcu1 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:46 Konu Sayısı:4 Üyelik Tarihi:03.01.2016 Rep Puanı: 5

yorum atak
Paylaşım Tarihi: 31.01.2016, 23:49:42 #5
Jakies Perfect
Süper Üye
Status: Çevrimdışı Yorum Sayısı:378 Konu Sayısı:77 Üyelik Tarihi:25.12.2015 Rep Puanı: 40

Bakalım Smile

Kullanıcı İmzası
İmage
Paylaşım Tarihi: 01.02.2016, 21:37:17 #6
BaskanTR Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:2 Konu Sayısı:0 Üyelik Tarihi:09.01.2016 Rep Puanı: 0

bakalımmmmm
Paylaşım Tarihi: 02.02.2016, 02:51:03 #7
blackstarahmet Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:20 Konu Sayısı:0 Üyelik Tarihi:01.02.2016 Rep Puanı: 0

Meraklıyız Big Grin
Paylaşım Tarihi: 02.02.2016, 02:52:56 #8
DARCMOON Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:25 Konu Sayısı:1 Üyelik Tarihi:27.12.2015 Rep Puanı: 0

bakalımm



Konu Kapalı






Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir