Knigth Online Otu Kutu Peri loot

Pointerlar (30.03.2019)
Kod:

Steam için;
KO_PTR_CHR = 0xE54460;
KO_PERI_TAK = 0x5790A0;
KO_PERI_MLOOT = 0xCE3E64;
KO_PERI_CLOOT = 0xCE3E60;

Kod:
Usko için;
KO_PTR_CHR = 0xE65C18;
KO_PERI_TAK = 0x57A760;
KO_PERI_MLOOT = 0xCF5E08;
KO_PERI_CLOOT = 0xCF5E04;


Kod:
Lazım Olan Pointerlar
Public Const KO_PTR_CHR as Long
Public Const KO_PERI_TAK as Long
Public Const KO_PERI_MLOOT as Long
Public Const KO_PERI_CLOOT as Long

VB.Net için...

Kod:
Sub PeriBasButton_Click()
PeriLootLe(PeriTipi.Mor)
PeriLootAyarla(10000,True)
End Sub

Enum PeriTipi As Long
Sarı = 700038000
Mor = 700039000 ' Loot
Turuncu = 700042000 ' Exp
End Enum

Dim PeriLootAdress As Long=0

.
Kod:
Sub PeriLootLe(kPTipi as Long)
On Error Resume Next
Dim PeriXCode() As Byte = HexByte("608B0D" & AlignDWORD(KO_PTR_CHR) & "6A0168" & AlignDWORD(kPTipi) & "BF" & AlignDWORD(KO_PERI_TAK) & "FFD761C3")
Dim PSize As Byte=UBound(PeriXCode)-LBound(PeriXCode)+1
If PeriLootAdress=0 Then PeriLootAdress = VirtualAllocEx(proc.Handle, 0, PSize, MEM_COMMIT Or MEM_RESERVE, PAGE_EXECUTE_READWRITE)

Dim PeriXUnCode As IntPtr = Marshal.AllocCoTaskMem(PSize)
Marshal.Copy(PeriXCode, 0, PeriXUnCode, PSize)
WriteProcessMemory(proc.Handle, PeriLootAdress, PeriXUnCode, PSize, 4)

Dim PerihThread As IntPtr = CreateRemoteThread(proc.Handle, 0, PSize, PeriLootAdress, 0, 0, 0)
If PerihThread Then
WaitForSingleObject(PerihThread, INFINITE)
CloseHandle(PerihThread)
End If
End Sub


.
Kod:
Sub PeriLootAyarla(MinPara as Long, AdetliTopla as Boolean)

'Peri Loot Minimum Toplama Değeri Ayarlama(10k üstü değerli itemler..v.b)
LongYaz(KO_PERI_MLOOT, MinPara)

'Peri Loot Adetli İtem Toplatma(Asga Fruit, Apple Maradon..v.b)
If AdetliTopla=True Then LongYaz(KO_PERI_CLOOT,256) Else LongYaz(KO_PERI_CLOOT,0)
End Sub

.



VB6 için...

Kod:
Sub PeriBasButton_Click()
PeriLootLe(PeriTipi.Mor)
PeriLootAyarla(10000,True)
End Sub

Enum PeriTipi As Long
Sarı = 700038000
Mor = 700039000 ' Loot
Turuncu = 700042000 ' Exp
End Enum

Dim PeriLootAdress As Long=0

.
Kod:
Sub PeriLootLe(kPTipi As Long)
On Error Resume Next
Dim PeriXCode() As Byte

PeriXCode = ConvHEX2ByteArray("608B0D" + AlignDWORD(KO_PTR_CHR) + "6A0168" & AlignDWORD(kPTipi) + "BF" + AlignDWORD(KO_PERI_TAK) + "FFD761C3", PeriXCode)
Dim PSize As Byte
PSize = UBound(PeriXCode) - LBound(PeriXCode) + 1
If PeriLootAdress = 0 Then
PeriLootAdress = VirtualAllocEx(KO_HANDLE, 0, PSize, MEM_COMMIT, PAGE_READWRITE)
End If

WriteByteArray PeriLootAdress, PeriXCode, UBound(PeriXCode) - LBound(PeriXCode) + 1

Dim hThread As Long, ThreadID As Long, Ret As Long
Dim SE As SECURITY_ATTRIBUTES
SE.nLength = Len(SE)
SE.bInheritHandle = False

hThread = CreateRemoteThread(ByVal KO_HANDLE, SE, PSize, ByVal PeriLootAdress, 0&, 0&, ThreadID)
If hThread Then
Ret = WaitForSingleObject(hThread, INFINITE)
CloseHandle hThread
End If
End Sub


.
Kod:
Sub PeriLootAyarla(MinPara As Long, AdetliTopla As Boolean)
WriteLong KO_PERI_MLOOT, MinPara 'Peri Loot Minimum Toplama Değeri Ayarlama(10k üstü değerli itemler..v.b)
If AdetliTopla = True Then 'Peri Loot Adetli İtem Toplatma(Asga Fruit, Apple Maradon..v.b)
WriteLong KO_PERI_CLOOT, 256
Else
WriteLong KO_PERI_CLOOT, 0
End If
End Sub

.

Yanlış hatırlamıyorsam sarı ve turuncu sadece görüntü de geliyor işlevi çalışmıyor

Uzun bir aradan sonra Knighta yeniden başlamak istiyorum. Bu konuda bana yardımcı olabilecek birisi varmı ? hileler ve cosplar hakkında?

kardeşim bu sence koxpcularn gecilrimi hadi gectin ya geneiciler

beden tavsiye başlama kanser eder adamı

Eskiyemi Dönelim Onumu İstiyosun

hileyler knight oynamak istiyordum ama knight telefon onayında msj gelmiyor yardımcı olabilecek var mı ?

Ellerin Sağlık

Dostum Pointerler için eyw.

yararlı konu teşşekürler

DarkGriffin' Alıntı:

Yanlış hatırlamıyorsam sarı ve turuncu sadece görüntü de geliyor işlevi çalışmıyor

Genişletmek için tıklayın ...

büyük ihtimal ile oyle ben farkı göremedim pembe favorimdir jeo slogan ile devam

TEŞEKKÜRLER

Nasıl çalıştırıcam bunu beceremedim

arifmt' Alıntı:

Nasıl çalıştırıcam bunu beceremedim

Genişletmek için tıklayın ...

usta korumayı aşman gerekli yada bypasslı acılmış oyuna inject olucaksın gerisi kolay zaten muhim olan oyuna gire bilmek

Ganster5' Alıntı:

usta korumayı aşman gerekli yada bypasslı acılmış oyuna inject olucaksın gerisi kolay zaten muhim olan oyuna gire bilmek

Genişletmek için tıklayın ...

Dostum onu sormuyorum benim kod bilgim yok bu kodu visual basicde nasıl çalıştırabilirim