Ç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    1819 Görüntüleme
  • Derecelendirme: 5/5 - 1 oy
Konu Kapalı

Paylaşım Tarihi: 31.01.2016, 22:34:11 #1
Ufuk #BEY
Griffin Premium
Status: Dışarıda Yorumları:1,084 Konuları:270 Kayıt Tarihi:30.12.2015 Rep Puanı: 539

[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("Wolftü.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("Wolftü.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("Wolftü.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ışı Yorumları:269 Konuları:118 Kayıt 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ışı Yorumları:16 Konuları:0 Kayıt Tarihi:31.01.2016

Wolftü ss

Paylaşım Tarihi: 31.01.2016, 23:49:37 #4
ferhatkurtcu1 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:46 Konuları:4 Kayıt 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ışı Yorumları:376 Konuları:77 Kayıt Tarihi:25.12.2015 Rep Puanı: 40

Bakalım Smile

Kullanıcı İmzası
Resim http://49.media.tumblr.com/a410c087590891fc6b1a319ada18acba/tumblr_mwh8fc9NX81s0twoeo1_r3_400.gif

Paylaşım Tarihi: 01.02.2016, 21:37:17 #6
BaskanTR Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorumları:2 Konuları:0 Kayıt 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ışı Yorumları:18 Konuları:0 Kayıt 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ışı Yorumları:23 Konuları:1 Kayıt Tarihi:27.12.2015 Rep Puanı: 0

bakalımm




Konu Kapalı






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

Konuyu Okuyanlar:
1 Ziyaretçi