Speed Hack Yapımı

**Amorphis** · 05-01-2011, 18:06

BİLMEYENLER İÇİN SORUNSUZ SPEED HACK YAPIMINI ANLATACAĞIM ;

Check İçine

If Check[Check Adı].Value = 1 Then
If GetAsyncKeyState(VK_[Speed Hack İstediğiniz Tuş]) Then
SH
End If
End If

Modül İçine

Function SH()
Dim CurX As Integer, CurY As Integer, CurZ As Integer
Dim MovedXOk As Boolean, MovedYOk As Boolean
CurX = CInt(FloatOku(KO_ADR_CHR + KO_OFF_X))
CurY = CInt(FloatOku(KO_ADR_CHR + KO_OFF_Y))
CurZ = CInt(FloatOku(KO_ADR_CHR + KO_OFF_Z))
Dim FareX As Long, FareY As Long, FareZ As Long
FareX = FloatOku(KO_ADR_CHR + KO_OFF_MX)
FareY = FloatOku(KO_ADR_CHR + KO_OFF_MY)
FareZ = FloatOku(KO_ADR_CHR + KO_OFF_MZ)
If CurX > Val(FareX) Then
If CurX - Val(FareX) > 5 Then
FloatYaz (KO_ADR_CHR + KO_OFF_X), CSng(CurX - 2)
Else
MovedXOk = True
End If
ElseIf CurX < Val(FareX) Then
If Val(FareX) - CurX > 5 Then
FloatYaz (KO_ADR_CHR + KO_OFF_X), CSng(CurX + 2)
Else
MovedXOk = True
End If
End If
If CurY > Val(FareY) Then
If CurY - Val(FareY) > 5 Then
FloatYaz (KO_ADR_CHR + KO_OFF_Y), CSng(CurY - 2)
Else
MovedYOk = True
End If
ElseIf CurY < Val(FareY) Then
If Val(FareY) - CurY > 5 Then
FloatYaz (KO_ADR_CHR + KO_OFF_Y), CSng(CurY + 2)
Else
MovedYOk = True
End If
End If
Paket "06" & FormatHex(Hex(CInt(KarakterX) * 10), 4) & FormatHex(Hex(CInt(KarakterY) * 10), 4) & FormatHex(Hex(CInt(KarakterZ) * 10), 4) & "2D0003"
End Function

Timerin İçine

If Check[Check Adı].Value = 1 Then
If GetAsyncKeyState(VK_[Speed Hack İstediğiniz Tuş]) Then
SH
End If
End If

EVET ARKADAŞLAR ARTIK SPEED HACK SORUNSUZ OLARAK ÇALIŞACAKDIR.

EMEĞE SAYGI.İŞİNİZE YARARSA NE MUTLU BİZE.

Timer interval = 140

**ce'M oKaN** · 05-06-2011, 10:33

Kardeş bu Yükle Butonu Olmadanda Çalışırmı ?

**Amorphis** · 05-06-2011, 11:22

yukle butonu olmadan hiçbişe çalısmaz...

**DieChild** · 05-06-2011, 14:06

Alıntı:

ce'M oKaN´isimli üyeden Alıntı

Kardeş bu Yükle Butonu Olmadanda Çalışırmı ?

onu inject etmeden nasıl paket göndermeyi düşünüyorsun

**ce'M oKaN** · 05-06-2011, 18:48

Alıntı:

DieChild´isimli üyeden Alıntı

onu inject etmeden nasıl paket göndermeyi düşünüyorsun

Bunu Öğrendiğim İyi Oldu Şimdi Ben yaptım Lükle butonu Bunu Eklersem çalışırmı Yeni Pach qelse bile ?

CurX = CInt(FloatOku(KO_ADR_CHR + KO_OFF_X))
CurY = CInt(FloatOku(KO_ADR_CHR + KO_OFF_Y))
CurZ = CInt(FloatOku(KO_ADR_CHR + KO_OFF_Z))

FloatOku hata verıo :s

**Amorphis** · 05-07-2011, 05:19

FloatOku = ReadFloat
LongYaz = WriteLong
FloatYaz = WriteFloat
LongOku = ReadLong

Senin Modul İngilizce o zaman

Hata verenleri Karşılarına Yazdığım Kırmızı Kelimelerle Değiştir.

**ce'M oKaN** · 05-07-2011, 07:23

Çok ty

FormatHex(Hex(CInt(KarakterZ) * 10), 4) & "2D0003"
FormatHex de Hata verıo Kardeş Bunun İngilizcesini Paylaşırmısın :S
Çok Hata çıko bende :S

**mrfofi** · 07-09-2011, 19:15

Kod:

Public Function FormatHex(strHex As String, inLength As Integer)
Dim newHex As String
Dim ZeroSpaces As Integer
ZeroSpaces = inLength - Len(strHex) '1
newHex = String(ZeroSpaces, "0") + strHex
Select Case Len(newHex)
Case 2
newHex = Left(newHex, 2)
Case 4
newHex = Right(newHex, 2) & Left(newHex, 2)
Case 6
newHex = Right(newHex, 2) & Mid(newHex, 3, 2) & Left(newHex, 2)
Case 8
newHex = Right(newHex, 2) & Mid(newHex, 5, 2) & Mid(newHex, 3, 2) & Left(newHex, 2)
Case Else
End Select
FormatHex = newHex
End Functio

Format Hex Buyur

**fiasco128** · 09-19-2011, 08:34

Aynen o balık tutmayı öğretti bizde balığı verdik

05-01-2011, 18:06	#1 (permalink)
Amorphis Usta Oyuncu Kişisel Bulunduğu yer: Dünya Forum Üye No: 42670 Üyelik tarihi: May 2011 Mesajlar: 49 Teşekkürler + Puan Verdi: 9 + Puan Aldı: 22 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	Speed Hack Yapımı BİLMEYENLER İÇİN SORUNSUZ SPEED HACK YAPIMINI ANLATACAĞIM ; Check İçine If Check[Check Adı].Value = 1 Then If GetAsyncKeyState(VK_[Speed Hack İstediğiniz Tuş]) Then SH End If End If Modül İçine Function SH() Dim CurX As Integer, CurY As Integer, CurZ As Integer Dim MovedXOk As Boolean, MovedYOk As Boolean CurX = CInt(FloatOku(KO_ADR_CHR + KO_OFF_X)) CurY = CInt(FloatOku(KO_ADR_CHR + KO_OFF_Y)) CurZ = CInt(FloatOku(KO_ADR_CHR + KO_OFF_Z)) Dim FareX As Long, FareY As Long, FareZ As Long FareX = FloatOku(KO_ADR_CHR + KO_OFF_MX) FareY = FloatOku(KO_ADR_CHR + KO_OFF_MY) FareZ = FloatOku(KO_ADR_CHR + KO_OFF_MZ) If CurX > Val(FareX) Then If CurX - Val(FareX) > 5 Then FloatYaz (KO_ADR_CHR + KO_OFF_X), CSng(CurX - 2) Else MovedXOk = True End If ElseIf CurX < Val(FareX) Then If Val(FareX) - CurX > 5 Then FloatYaz (KO_ADR_CHR + KO_OFF_X), CSng(CurX + 2) Else MovedXOk = True End If End If If CurY > Val(FareY) Then If CurY - Val(FareY) > 5 Then FloatYaz (KO_ADR_CHR + KO_OFF_Y), CSng(CurY - 2) Else MovedYOk = True End If ElseIf CurY < Val(FareY) Then If Val(FareY) - CurY > 5 Then FloatYaz (KO_ADR_CHR + KO_OFF_Y), CSng(CurY + 2) Else MovedYOk = True End If End If Paket "06" & FormatHex(Hex(CInt(KarakterX) * 10), 4) & FormatHex(Hex(CInt(KarakterY) * 10), 4) & FormatHex(Hex(CInt(KarakterZ) * 10), 4) & "2D0003" End Function Timerin İçine If Check[Check Adı].Value = 1 Then If GetAsyncKeyState(VK_[Speed Hack İstediğiniz Tuş]) Then SH End If End If EVET ARKADAŞLAR ARTIK SPEED HACK SORUNSUZ OLARAK ÇALIŞACAKDIR. EMEĞE SAYGI.İŞİNİZE YARARSA NE MUTLU BİZE. Timer interval = 140 Konu Amorphis tarafından (05-01-2011 Saat 18:31 ) değiştirilmiştir. Sebep: Automerged Doublepost

05-06-2011, 10:33	#2 (permalink)
ce'M oKaN Kral Kişisel Bulunduğu yer: 'in ne önemi var yeterki gönüller bir olsun :D Forum Üye No: 25361 Üyelik tarihi: May 2010 Mesajlar: 474 Teşekkürler + Puan Verdi: 52 + Puan Aldı: 99 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	Kardeş bu Yükle Butonu Olmadanda Çalışırmı ? ___[ ce'M oKaN adlı kişinin İmzası]_______________ [b] Teşekkürüde Esirgeme Artık.. GALATASARAY... Dağda üç Beş Koyun Sürüsü Tutturmuş Bir Kürdistan Türküsü Eline Almış Bayrak Diye Bir Masa örtüsü Satsan Beş Para Etmez Ne Dirisi Ne De ölüsü Soyu Soysuz Olan Sensin Toprak Senin Neyine İte Itlik Yapıp Kafa Tutma Beyine Anlasa Dediğimi Sokaktaki Köpek Ağlar Haline Duy Ulan Soysuz Ne Mutlu Türk'üm Diyene

05-06-2011, 11:22	#3 (permalink)
Amorphis Usta Oyuncu Kişisel Bulunduğu yer: Dünya Forum Üye No: 42670 Üyelik tarihi: May 2011 Mesajlar: 49 Teşekkürler + Puan Verdi: 9 + Puan Aldı: 22 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	yukle butonu olmadan hiçbişe çalısmaz... ___[ Amorphis adlı kişinin İmzası]_______________ ''Aptalca Sorular Sormaya Devam Edin, Eğer Sormassanız Hep Öyle Kalırsınız.'' Oh Gurban Olurum O Teşekküre Basan Ellerine xD EMEĞE SAYGI Scream Koxp Gitmek İçin Tıklayın !

05-07-2011, 05:19	#6 (permalink)
Amorphis Usta Oyuncu Kişisel Bulunduğu yer: Dünya Forum Üye No: 42670 Üyelik tarihi: May 2011 Mesajlar: 49 Teşekkürler + Puan Verdi: 9 + Puan Aldı: 22 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	FloatOku = ReadFloat LongYaz = WriteLong FloatYaz = WriteFloat LongOku = ReadLong Senin Modul İngilizce o zaman Hata verenleri Karşılarına Yazdığım Kırmızı Kelimelerle Değiştir. ___[ Amorphis adlı kişinin İmzası]_______________ ''Aptalca Sorular Sormaya Devam Edin, Eğer Sormassanız Hep Öyle Kalırsınız.'' Oh Gurban Olurum O Teşekküre Basan Ellerine xD EMEĞE SAYGI Scream Koxp Gitmek İçin Tıklayın !

05-07-2011, 07:23	#7 (permalink)
ce'M oKaN Kral Kişisel Bulunduğu yer: 'in ne önemi var yeterki gönüller bir olsun :D Forum Üye No: 25361 Üyelik tarihi: May 2010 Mesajlar: 474 Teşekkürler + Puan Verdi: 52 + Puan Aldı: 99 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	Çok ty FormatHex(Hex(CInt(KarakterZ) * 10), 4) & "2D0003" FormatHex de Hata verıo Kardeş Bunun İngilizcesini Paylaşırmısın :S Çok Hata çıko bende :S ___[ ce'M oKaN adlı kişinin İmzası]_______________ [b] Teşekkürüde Esirgeme Artık.. GALATASARAY... Dağda üç Beş Koyun Sürüsü Tutturmuş Bir Kürdistan Türküsü Eline Almış Bayrak Diye Bir Masa örtüsü Satsan Beş Para Etmez Ne Dirisi Ne De ölüsü Soyu Soysuz Olan Sensin Toprak Senin Neyine İte Itlik Yapıp Kafa Tutma Beyine Anlasa Dediğimi Sokaktaki Köpek Ağlar Haline Duy Ulan Soysuz Ne Mutlu Türk'üm Diyene Konu ce'M oKaN tarafından (05-07-2011 Saat 08:02 ) değiştirilmiştir. Sebep: Automerged Doublepost

09-19-2011, 08:34	#9 (permalink)
fiasco128 Acemi Oyuncu Forum Üye No: 43000 Üyelik tarihi: Sep 2011 Mesajlar: 3 Teşekkürler + Puan Verdi: 0 + Puan Aldı: 0 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	Aynen o balık tutmayı öğretti bizde balığı verdik ___[ fiasco128 adlı kişinin İmzası]_______________ florensia gold, florensia gelt, buy florensia gelt

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç