Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ...
Sitemize Üye Değilseniz Lütfen Üye Olunuz. Eğer Üye İseniz Giriş Yapınız... Sitemizdeki Linkleri Görebilmeniz ve Konulara Cevap Yazabilmek İçin İçin Üye Olmanız Gerekmektedir...



 
AnasayfaTakvimAramaKayıt OlGiriş yap

Paylaş | 
 

 CTRL + Mause Duvar Hack Yapımı

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145788826
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: CTRL + Mause Duvar Hack Yapımı   Perş. Mart 04, 2010 5:33 pm

S.a beyler Burada Size Duvar Hack yapımını anlatıcam.

Gerekenler :

1 Adet CheckBox
1 Adet Timer


Yapılışı :

Formun Üst kısmına bu kodu ekleyin

Kod:
Private Const VK_CONTROL  As Long = &H11

Check1 Captionu " Duvar Hack " Yapın Kod kısmına bunu yazın.

Kod:
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End If

Timer1 Interval = 100, Enabled = False Yapın. Kod Kısmına bunu yazın.

Kod:
On Error Resume Next
Dim pptr As Long
Dim XFark As Long
Dim YFark As Long
Dim FareX As Long, FareY As Long, FareZ As Long

If GetAsyncKeyState(VK_CONTROL) Then
FareX = ReadFloat(KO_ADR_CHR + KO_OFF_MX)
FareY = ReadFloat(KO_ADR_CHR + KO_OFF_MY)
FareZ = ReadFloat(KO_ADR_CHR + KO_OFF_MZ)

pptr = ReadLong(KO_PTR_CHR)
XFark = FareX - CharXOku
YFark = FareY - CharYOku
YFark = FareZ - CharZOku

If XFark <> 0 Or YFark <> 0 Or ZFark <> 0 Then
If XFark < 0 Then
WriteFloat pptr + KO_OFF_X, CharXOku - 1
ElseIf XFark > 0 Then
WriteFloat pptr + KO_OFF_X, CharXOku + 1
End If

If YFark < 0 Then
WriteFloat pptr + KO_OFF_Y, CharYOku - 1
ElseIf YFark > 0 Then
WriteFloat pptr + KO_OFF_Y, CharYOku + 1
End If

If ZFark < 0 Then
WriteFloat pptr + KO_OFF_Z, CharZOku - 1
ElseIf YFark > 0 Then
WriteFloat pptr + KO_OFF_Z, CharZOku + 1
End If

End If
End If

Yeni Modülünüzün LoadOffsets Kısmına Bu Kodları Ekleyin.

Kod:
KO_OFF_MX = &HD44
KO_OFF_MY = &HD4C
KO_OFF_MZ = &HD48

Yeni Modülünüzün Üst Kısmına Tanımlamaların olduğu yere Bu Kodları Ekleyin.

Kod:

Public KO_OFF_MX As Long
Public KO_OFF_MY As Long
Public KO_OFF_MZ As Long

Aşağıdaki fonksiyonlar olmayanlarda eklesin.

Kod:
Public Function CharXOku()
pptr = ReadLong(KO_PTR_CHR)
YeniAdres = ReadFloat(pptr + KO_OFF_X)
CharXOku = YeniAdres
End Function
Public Function CharYOku()
pptr = ReadLong(KO_PTR_CHR)
YeniAdres = ReadFloat(pptr + KO_OFF_Y)
CharYOku = YeniAdres
End Function
Public Function CharZOku()
pptr = ReadLong(KO_PTR_CHR)
YeniAdres = ReadFloat(pptr + KO_OFF_Z)
CharZOku = YeniAdres
End Function

_________________

ByLetsFeeL !! [ ByCeM ]
Hak EdiYoRSaM Bir TeŞeKKüR YeteR !!


İletişim [Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]

Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
burak
Moderator
Moderator
avatar

Mesaj Sayısı : 26
Puanlar : 13592
REP : 0
Kayıt tarihi : 08/02/10
Yaş : 21
Nerden : Konya

MesajKonu: Geri: CTRL + Mause Duvar Hack Yapımı   Cuma Mart 05, 2010 7:32 pm

exe formatına çevirirken pptr yazısı hata veriyor onu nasıl düzelticez? Question
Sayfa başına dön Aşağa gitmek
http://www.forumkat.com
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145788826
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Geri: CTRL + Mause Duvar Hack Yapımı   Cuma Mart 05, 2010 11:09 pm

packet modulündeki bilgilerinin doğruluğundan emin ol. Very Happy

_________________

ByLetsFeeL !! [ ByCeM ]
Hak EdiYoRSaM Bir TeŞeKKüR YeteR !!


İletişim [Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]

Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
burak
Moderator
Moderator
avatar

Mesaj Sayısı : 26
Puanlar : 13592
REP : 0
Kayıt tarihi : 08/02/10
Yaş : 21
Nerden : Konya

MesajKonu: Geri: CTRL + Mause Duvar Hack Yapımı   Cuma Mart 05, 2010 11:10 pm

Tamam deniyorum Very Happy
Sayfa başına dön Aşağa gitmek
http://www.forumkat.com
Sponsored content




MesajKonu: Geri: CTRL + Mause Duvar Hack Yapımı   

Sayfa başına dön Aşağa gitmek
 
CTRL + Mause Duvar Hack Yapımı
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB 6 ile Basit Koxp Yapımı
» Primeval Tanrıça; nasıl dünyayı yarattı Nil Nehri kökeni
» İnsan Yapımı UFO'lar ve Dünya Dışı Teknolojinin Ele Geçirilişi
» Kart satarken bug yapılıomu ????

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ... :: Knight OnLine Koxp - TBL & Bug - Hile :: Koxp Yapımı - Programlama :: ByLetsFeeL - Özel Dersler-
Buraya geçin: