Char Sektirme ( Wall Hack )

Konu: Char Sektirme ( Wall Hack ) C.tesi Şub. 20, 2010 11:13 am

S.a Arkadaşlar

Aklıma gelmişken deniyim dedim GamerTurk 'ün Rpr projesinden esinledi anlicanız işinize yariyabilir diye paylaşıyorum neyse az laf çok iş

Check Kodu:

Kod:

Kod:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Timer Kodu : Enable False ve İnterval 100 yapın

Kod:

Kod:
If GetAsyncKeyState(vbKeyUp) Then
Dim VVA As Single
VVA = ReadFloat(KO_ADR_CHR + &HB4)
WriteFloat KO_ADR_CHR + &HB4, VVA - 1
End If

If GetAsyncKeyState(vbKeyDown) Then
Dim vva2 As Single
vva2 = ReadFloat(KO_ADR_CHR + &HB4)
WriteFloat KO_ADR_CHR + &HB4, vva2 + 1
End If

If GetAsyncKeyState(vbKeyLeft) Then
Dim vva3 As Single
vva3 = ReadFloat(KO_ADR_CHR + &HBC)
WriteFloat KO_ADR_CHR + &HBC, vva3 - 1
End If

If GetAsyncKeyState(vbKeyRight) Then
Dim vva4 As Single
vva4 = ReadFloat(KO_ADR_CHR + &HBC)
WriteFloat KO_ADR_CHR + &HBC, vva4 + 1
End If

Modulünüzde ReadFloat ve WriteFloat yoksa bunları da ekleyin

Kod:

Kod:

Public Function ReadFloat(Addr As Long) As Long
Dim Value As Single
ReadProcessMem KO_HANDLE, Addr, Value, 4, 0&
ReadFloat = Value
End Function

Kod:
Public Function WriteFloat(Addr As Long, Val As Single)
WriteProcessMem KO_HANDLE, Addr, Val, 4, 0&
End Function

Öyle ahım şahım bi kod yada wall hack değildir dağ lara giriyor ama yidene kullanmak isteyen olur diye düşündüm. bilmeyenler için yön tuşlarıyla wall hack çalışır daha doğrusu char sektirme

İşine yarayanlar teşekkür et butonuna basmayı unutmasınlar

Konu: Geri: Char Sektirme ( Wall Hack ) C.tesi Şub. 20, 2010 3:05 pm

Char sektirme derken ?

Konu: Geri: Char Sektirme ( Wall Hack ) C.tesi Şub. 20, 2010 3:06 pm

Wall hack işte... Very Happy

Konu: Geri: Char Sektirme ( Wall Hack ) C.tesi Şub. 20, 2010 4:07 pm

Ben bunu ekledim ama duvarlara çıkmıyor Ctrl sol tık denedim olmadı :S

Konu: Geri: Char Sektirme ( Wall Hack ) C.tesi Şub. 20, 2010 4:45 pm

Hmm... Kontrol edicem...