Henüz Üye Olmadıysan, Hemen Üye Olabilirsin !
Kayıt OL!  

  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
 
Knight Online Fake Kanat

#1
+CheckBox
Kod:
Private Sub KanatTakCheck_Click()
If KanatTakCheck.Value = 1 Then
KanatTak
Else
KanatTak
End If
End Sub

+ComboBox

-List

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-ItemData

Kod:
900177000
900178000
900179000
900180000
900181000
900182000
900183000
900028000
900030000
508220000
910248000
810179000
810178000
810213000
900767000

+Modül

Kod:
Function KanatTak()
Dim pCode() As Byte
If Form1.KanatTakCombo.Text = 1 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(0)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 2 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(1)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 3 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(2)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 4 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(3)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 5 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(4)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 6 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(5)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 7 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(6)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 8 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(7)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 9 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(8)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 10 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(9)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 11 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(10)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 12 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(11)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 13 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(12)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 14 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(13)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
If Form1.KanatTakCombo.Text = 15 Then
ConvHEX2ByteArray ("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0068" + AlignDWORD(Form1.KanatTakCombo.ItemData(14)) + "B8" + AlignDWORD(KO_PERI_TAK) + "FFD061C3"), pCode
End If
ExecuteRemoteCode pCode, True
End Function

+Pointer

Kod:
KO_PERI_TAK = &H579F30
Ara
Cevapla

#2
Paylaşım için teşekkürler...
Ara
Cevapla

#3
teşekkürler
Ara
Cevapla

#4
görüntü isteyen arkadaşların işine yarar
Kod:
"Controlling complexity is the essence of computer programming." - Brian Kernighan

≧◔◡◔≦ FORUMDC ≧◔◡◔≦

Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...


giphy.gif

Cevapla

#5
@XignCode diğer oyuncular da görünüyor mu? genie gibi sadece biz mi görebiliyoruz
Ara
Cevapla

#6
(12-03-2018, Saat: 02:05)StarwarsW Adlı Kullanıcıdan Alıntı: Linkleri Görüntüleyebilmek için BURAYA TIKLAYIN Veya Kayıt Olun eğer kayıtlı iseniz Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...@XignCode diğer oyuncular da görünüyor mu? genie gibi sadece biz mi görebiliyoruz

bizde
Ara
Cevapla



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Knight OnLine Pointer Bulucu Cyber 14 4,617 12-09-2018, Saat: 21:00
Son Yorum: waLeska
Brick Deathko,Kingdom Online Bot Source tolmin67 14 1,454 16-05-2018, Saat: 19:28
Son Yorum: darkguita2
  KingDom Online Oto Kutu Kodları tolmin67 3 560 29-04-2018, Saat: 11:05
Son Yorum: tolmin67
  # Knight Kingdom Proje !! # SaruH4N 4 430 21-04-2018, Saat: 22:32
Son Yorum: tolmin67
  Knight Online Chaos Paketleri XignCode 1 303 02-03-2018, Saat: 13:50
Son Yorum: scalare

Hızlı Menü:


Konuyu Okuyanlar:
1 Ziyaretçi


Forumdc.org Since 2016