Public KO_OFF_PARTY As Long
Public KO_OFF_CLASS As Long
Public KO_OFF_ID As Long
Public KO_OFF_ID2 As Long
Public KO_OFF_MOB As Long
Public KO_OFF_HP As Long
Public KO_OFF_MAXHP As Long
Public KO_OFF_MP As Long
Public KO_RCVFNC As Long
Public KO_OFF_MAXMP As Long
Public KO_OFF_Y As Long
Public KO_OFF_X As Long
Public KO_OFF_Z As Long
Public KO_OFF_EXP As Long
Public KO_OFF_MAXEXP As Long
Public KO_OFF_LVL As Long
Public KO_OFF_PARA As Long
Public KO_KEY_PTR As Long
Public KO_RCVHKB As Long
Public KO_Test As Long
Public KO_RECVHK As Long
Public KO_OFF_MX As Long
Public KO_OFF_HD As Long
Public KO_OFF_MY As Long
Public KO_OFF_MZ As Long
Public Type MODULEINFO
lpBaseOfDLL As Long
SizeOfImage As Long
EntryPoint As Long
End Type
Public Sub KlavyeYükle()
Klavye = LongOku(KeybPtr + 0)
Klavye = Klavye + 620
End Sub
Function RandomNumber(rUpper As Integer, Optional rLower As Integer) As Integer
Randomize
RandomNumber = Int((rUpper - rLower + 1) * Rnd + rLower)
End Function
Public Sub SendK(ByVal Key As Long)
LongYaz Klavye + Key * 4, 1
Sleep (50)
LongYaz Klavye + Key * 4, 0
End Sub
Function KlavyeBas(Keys As Long)
Dim a, b, c As Long
Dim kb As Long
Dim kb2 As Long
kb = LongOku(KO_PTR_PKT - 4)
a = kb + KO_DIKKEY
LongYaz a + Keys * 4, 1
Sleep (50)
LongYaz a + Keys * 4, 0
End Function

Public Function LongOku(Addr As Long) As Long 'read a 4 byte value
Dim Value As Long
ReadProcessMem KO_HANDLE, Addr, Value, 4, 0&
LongOku = Value
End Function

Public Function FloatOku(Addr As Long) As Long 'read a float value
On Error Resume Next
Dim Value As Single
ReadProcessMem KO_HANDLE, Addr, Value, 4, 0&
FloatOku = Value
End Function

Public Function FloatYaz(Addr As Long, Val As Single) 'write a float value
WriteProcessMem KO_HANDLE, Addr, Val, 4, 0&
End Function

Public Function LongYaz(Addr As Long, Val As Long) ' write a 4 byte value
WriteProcessMem KO_HANDLE, Addr, Val, 4, 0&
End Function
Public Function AttachKO() As Boolean
Dim inject As Boolean
If FindWindow(vbNullString, KO_ADI) Then
MsName = "\\.\mailslot\ByS0x" & Hex(GetTickCount)
GetWindowThreadProcessId FindWindow(vbNullString, KO_ADI), KO_PID
KO_HANDLE = OpenProcess(PROCESS_ALL_ACCESS, False, KO_PID)
If KO_HANDLE = 0 Then
MsgBox ("Cannot get handle from KO(" & KO_PID & ").")
AttachKO = False
End If
Hook = HookDI8
If Hook = False Then
AttachKO = False
MsgBox "Dinput8.dll Yüklenemiyor.Koxpun Bulundupu Klasöre Dinput8.dll atiniz.", vbDefaultButton2, "Dikkat"
End If
MSHandle = EstablishMailSlot(MsName)
If MSHandle = 0 Then End
If KO_PID = 0 Then End
AttachKO = True
Form1.WNDNAME(11).Text = Form1.Text1(0).Text

Else
MsgBox "Programın çalışabilmesi için oyunda olmanız gerekir.", vbDefaultButton1, "Dikkat"
End If
End Function
Public Function EstablishMailSlot(ByVal MailSlotName As String, Optional  MaxMessageSize As Long = 0, Optional ReadTimeOut As Long = 50) As Long
EstablishMailSlot = CreateMailslot(MailSlotName, MaxMessageSize, ReadTimeOut, ByVal 0&)
End Function
Public Function HookDI8() As Boolean
Dim Ret As Long
Dim lmodinfo As MODULEINFO
DINPUT_Handle = 0
DINPUT_Handle = ModülHandleBul("dinput8.dll")
Ret = GetModuleInformation(KO_HANDLE, DINPUT_Handle, lmodinfo, Len(lmodinfo))
If Ret <> 0 Then
With lmodinfo
DINPUT_EntryPoint = .EntryPoint
DINPUT_lpBaseOfDLL = .lpBaseOfDLL
DINPUT_SizeOfImage = .SizeOfImage
End With
Else
Exit Function
End If
DinputYükle
HookDI8 = True
End Function

Public Function ModülHandleBul(ModuleName As String) As Long
Dim hModules(1 To 256) As Long
Dim BytesReturned As Long
Dim ModuleNumber As Byte
Dim TotalModules As Byte
Dim FileName As String * 128
Dim ModName As String
EnumProcessModules KO_HANDLE, hModules(1), 1024, BytesReturned
TotalModules = BytesReturned / 4
For ModuleNumber = 1 To TotalModules
GetModuleFileNameExA KO_HANDLE, hModules(ModuleNumber), FileName, 128
ModName = Left(FileName, InStr(FileName, Chr(0)) - 1)
If UCase(Right(ModName, Len(ModuleName))) = UCase(ModuleName) Then
ModülHandleBul = hModules(ModuleNumber)
End If
Next
End Function

Sub DinputYükle()
DINPUT_KEYDMA = DinputAnahtarıBul
If DINPUT_KEYDMA <> 0 Then
DINPUT_K_1 = DINPUT_KEYDMA + 2
DINPUT_K_2 = DINPUT_KEYDMA + 3
DINPUT_K_3 = DINPUT_KEYDMA + 4
DINPUT_K_4 = DINPUT_KEYDMA + 5
DINPUT_K_5 = DINPUT_KEYDMA + 6
DINPUT_K_6 = DINPUT_KEYDMA + 7
DINPUT_K_7 = DINPUT_KEYDMA + 8
DINPUT_K_8 = DINPUT_KEYDMA + 9
DINPUT_K_Z = DINPUT_KEYDMA + 44
DINPUT_K_C = DINPUT_KEYDMA + 46
DINPUT_K_S = DINPUT_KEYDMA + 31
DINPUT_K_R = DINPUT_KEYDMA + 19
End If
End Sub

Function DinputAnahtarıBul() As Long
Dim PaketByte() As Byte
Dim psize As Long
Dim X As Long
psize = DINPUT_SizeOfImage
ReDim PaketByte(1 To psize)
SıraByteOku DINPUT_lpBaseOfDLL, PaketByte, psize
For X = 1 To psize - 10
If PaketByte(X) = &H57 And PaketByte(X + 1) = &H6A And  PaketByte(X + 2) = &H40 And PaketByte(X + 3) = &H33 And  PaketByte(X + 4) = &HC0 And PaketByte(X + 5) = &H59 And  PaketByte(X + 6) = &HBF Then
DinputAnahtarıBul = Val("&H" & IIf(Len(Hex(PaketByte(X + 10))) =  1, "0" & Hex(PaketByte(X + 10)), Hex(PaketByte(X + 10))) &  IIf(Len(Hex(PaketByte(X + 9))) = 1, "0" & Hex(PaketByte(X + 9)),  Hex(PaketByte(X + 9))) & IIf(Len(Hex(PaketByte(X + 8))) = 1, "0"  & Hex(PaketByte(X + 8)), Hex(PaketByte(X + 8))) &  IIf(Len(Hex(PaketByte(X + 7))) = 1, "0" & Hex(PaketByte(X + 7)),  Hex(PaketByte(X + 7))))
Exit For
End If
Next
End Function
Function BAS(pKey As String) As Long
pKey = Strings.UCase(pKey)
Select Case pKey
Case "S"
BAS = DINPUT_K_S
Case "Z"
BAS = DINPUT_K_Z
Case "1"
BAS = DINPUT_K_1
Case "2"
BAS = DINPUT_K_2
Case "3"
BAS = DINPUT_K_3
Case "4"
BAS = DINPUT_K_4
Case "5"
BAS = DINPUT_K_5
Case "6"
BAS = DINPUT_K_6
Case "7"
BAS = DINPUT_K_7
Case "8"
BAS = DINPUT_K_8
Case "C"
BAS = DINPUT_K_C
Case "R"
BAS = DINPUT_K_R
End Select
End Function
Public Sub HookBul()
Dim hooks As Long
hooks = KO_PTR_DLG + &H84

Select Case ByteOku(hooks)
Case 8
KO_RCVHKB = &H9C6F70
KO_RECVHK = &H23
HookRecvPackets
Case 9
KO_RCVHKB = &H9C6F74
KO_RECVHK = &H7FFEF0
HookRecvPackets
Case 10
KO_RCVHKB = &H9C6F78
KO_RECVHK = &H9B9EA4
HookRecvPackets
Case Else
KO_RCVHKB = &H7F2750
KO_RECVHK = &H802630
HookRecvPackets
End Select
End Sub

Function ByteOku(pAddy As Long, Optional pHandle As Long) As Byte
Dim Value As Byte
If pHandle <> 0 Then
ReadProcessMem pHandle, pAddy, Value, 1, 0&
Else
ReadProcessMem KO_HANDLE, pAddy, Value, 1, 0&
End If
ByteOku = Value
End Function
Function FindDLLFunc(pDLLName As String, pFuncName As String) As Long
Dim LoadAddr As Long
Dim ProcAddr As Long
Dim offset As Long
Dim RemoteAddr As Long

LoadAddr = LoadLibrary(pDLLName)
If LoadAddr = 0 Then End
ProcAddr = GetProcAddress(LoadAddr, pFuncName)
offset = ProcAddr - LoadAddr
FreeLibrary LoadAddr

RemoteAddr = ModülHandleBul(pDLLName)
Do While RemoteAddr = 0
RemoteAddr = ModülHandleBul(pDLLName)
DoEvents
Loop
FindDLLFunc = RemoteAddr + offset
End Function

Sub HookRecvPackets()
Dim CreateFileAADDR As Long, WriteFileADDR As Long, CloseHandleADDR As Long
Dim pBytesMSName() As Byte, pBytes() As Byte
Dim pStr As String, pStrKO_RECVFNC As String

CreateFileAADDR = FindDLLFunc("kernel32.dll", "CreateFileA")
WriteFileADDR = FindDLLFunc("kernel32.dll", "WriteFile")
CloseHandleADDR = FindDLLFunc("kernel32.dll", "CloseHandle")

KO_RCVFNC = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)

pBytesMSName = StrConv(MsName, vbFromUnicode)
ByteDizisiYaz KO_RCVFNC + &H400, pBytesMSName, UBound(pBytesMSName) - LBound(pBytesMSName) + 1

pStr = AlignDWORD(CreateFileAADDR)
Hex2Byte pStr, pBytes
ByteDizisiYaz KO_RCVFNC + &H32A, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStr = AlignDWORD(WriteFileADDR)
Hex2Byte pStr, pBytes
ByteDizisiYaz KO_RCVFNC + &H334, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStr = AlignDWORD(CloseHandleADDR)
Hex2Byte pStr, pBytes
ByteDizisiYaz KO_RCVFNC + &H33E, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStr = AlignDWORD(KO_RCVHKB)
Hex2Byte pStr, pBytes
ByteDizisiYaz KO_RCVFNC + &H208, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStr = AlignDWORD(KO_RECVHK)
Hex2Byte pStr, pBytes
ByteDizisiYaz KO_RCVFNC + &H212, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStr = AlignDWORD(KO_RCVFNC)
Hex2Byte pStr, pBytes
ByteDizisiYaz KO_RCVFNC + &H21C, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStr = "52" + "890D" + AlignDWORD(KO_RCVFNC + &H320) + "8905" +  AlignDWORD(KO_RCVFNC + &H3B6) + "8B4E04890d" + AlignDWORD(KO_RCVFNC +  &H1F4) + "8B56088915" + AlignDWORD(KO_RCVFNC + &H1FE) +  "81F9001000007D3E5068800000006A036A006A0168000  0004 068" +  AlignDWORD(KO_RCVFNC + &H400) + "FF15" + AlignDWORD(KO_RCVFNC +  &H32A) + "83F8FF741D506A0054FF35" + AlignDWORD(KO_RCVFNC +  &H1F4) + "ff35" + AlignDWORD(KO_RCVFNC + &H1FE) + "50ff15" +  AlignDWORD(KO_RCVFNC + &H334) + "ff15" + AlignDWORD(KO_RCVFNC +  &H33E) + "8b0d" + AlignDWORD(KO_RCVFNC + &H320) + "8b05" +  AlignDWORD(KO_RCVFNC + &H3B6) + "5aff25" + AlignDWORD(KO_RCVFNC +  &H208)
Hex2Byte pStr, pBytes
ByteDizisiYaz KO_RCVFNC, pBytes, UBound(pBytes) - LBound(pBytes) + 1

pStrKO_RECVFNC = AlignDWORD(KO_RCVFNC)
Hex2Byte pStrKO_RECVFNC, pBytes
ByteDizisiYaz KO_RECVHK, pBytes, UBound(pBytes) - LBound(pBytes) + 1
End Sub
Sub ByteYaz(Addr As Long, pVal As Byte)
Dim pbw As Long
WriteProcessMem KO_HANDLE, Addr, pVal, 1, pbw
End Sub

Sub SıraByteOku(Addr As Long, pMem() As Byte, psize As Long)
Dim Value As Byte
ReDim pMem(1 To psize) As Byte
ReadProcessMem KO_HANDLE, Addr, pMem(1), psize, 0&
End Sub
Function ReadByte(pAddy As Long, Optional pHandle As Long) As Byte
Dim Value As Byte
If pHandle <> 0 Then
ReadProcessMem pHandle, pAddy, Value, 1, 0&
Else
ReadProcessMem KO_HANDLE, pAddy, Value, 1, 0&
End If
ReadByte = Value
End Function
Sub Tuş(pKey As Long, Optional pTimeMS As Long = 50)
ByteYaz pKey, 128
f_Sleep pTimeMS, True
ByteYaz pKey, 0
End Sub
Sub f_Sleep(pMS As Long, Optional pDoevents As Boolean = False)
Dim pTime As Long
pTime = GetTickCount
Do While pMS + pTime > GetTickCount
If pDoevents = True Then DoEvents
Loop
End Sub
Function AlignDWORD(pParam As Long) As String
Dim HiW As Integer
Dim LoW As Integer

Dim HiBHiW As Byte
Dim HiBLoW As Byte

Dim LoBHiW As Byte
Dim LoBLoW As Byte

HiW = HiWord(pParam)
LoW = LoWord(pParam)

HiBHiW = HiByte(HiW)
HiBLoW = HiByte(LoW)

LoBHiW = LoByte(HiW)
LoBLoW = LoByte(LoW)

AlignDWORD = IIf(Len(Hex(LoBLoW)) = 1, "0" & Hex(LoBLoW), Hex(LoBLoW)) & _
IIf(Len(Hex(HiBLoW)) = 1, "0" & Hex(HiBLoW), Hex(HiBLoW)) & _
IIf(Len(Hex(LoBHiW)) = 1, "0" & Hex(LoBHiW), Hex(LoBHiW)) & _
IIf(Len(Hex(HiBHiW)) = 1, "0" & Hex(HiBHiW), Hex(HiBHiW))
End Function
Function AlignDWORD8(pParam As Long) As String
Dim HiW As Integer
Dim LoW As Integer

Dim HiBHiW As Byte
Dim HiBLoW As Byte

Dim LoBHiW As Byte
Dim LoBLoW As Byte

HiW = HiWord(pParam)
LoW = LoWord(pParam)

HiBHiW = HiByte(HiW)
HiBLoW = HiByte(LoW)

LoBHiW = LoByte(HiW)
LoBLoW = LoByte(LoW)

AlignDWORD8 = IIf(Len(Hex(LoBLoW)) = 1, "0" & Hex(LoBLoW), Hex(LoBLoW)) & _
IIf(Len(Hex(HiBLoW)) = 1, "0" & Hex(HiBLoW), Hex(HiBLoW)) & _
IIf(Len(Hex(LoBHiW)) = 1, "0" & Hex(LoBHiW), Hex(LoBHiW)) & _
IIf(Len(Hex(HiBHiW)) = 1, "0" & Hex(HiBHiW), Hex(HiBHiW)) & _
IIf(Len(Hex(LoBLoW)) = 1, "0" & Hex(LoBLoW), Hex(LoBLoW)) & _
IIf(Len(Hex(HiBLoW)) = 1, "0" & Hex(HiBLoW), Hex(HiBLoW)) & _
IIf(Len(Hex(LoBHiW)) = 1, "0" & Hex(LoBHiW), Hex(LoBHiW)) & _
IIf(Len(Hex(HiBHiW)) = 1, "0" & Hex(HiBHiW), Hex(HiBHiW))
End Function

Public Function HiByte(ByVal wParam As Integer) As Byte
HiByte = (wParam And &HFF00&) \ (&H100)
End Function
Public Function LoByte(ByVal wParam As Integer) As Byte
LoByte = wParam And &HFF&
End Function

Function LoWord(dword As Long) As Integer
If dword And &H8000& Then '
LoWord = dword Or &HFFFF0000
Else
LoWord = dword And &HFFFF&
End If
End Function

Function HiWord(dword As Long) As Integer
HiWord = (dword And &HFFFF0000) \ &H10000
End Function
Function PaketGönder(pPacket() As Byte)
On Error Resume Next
Dim psize As Long
Dim pCode() As Byte

psize = UBound(pPacket) - LBound(pPacket) + 1
If BytesAddr = 0 Then
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If BytesAddr <> 0 Then
ByteDizisiYaz BytesAddr, pPacket, psize
Hex2Byte "608B0D" & AlignDWORD(KO_PTR_PKT) & "68" &  AlignDWORD(psize) & "68" & AlignDWORD(BytesAddr) & "BF"  & AlignDWORD(KO_SND_FNC) & "FFD7C605" &  AlignDWORD(KO_SND_PACKET) & "0061C3", pCode
UzaktanKodÇalıştır pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function

Function UzaktanKodÇalıştır(pCode() As Byte, Optional WaitExecution As Boolean = False) As Long
Dim hThread As Long, ThreadID As Long, Ret As Long
Dim SE As SECURITY_ATTRIBUTES

SE.nLength = Len(SE)
SE.bInheritHandle = False

UzaktanKodÇalıştır = 0
If FuncPtr = 0 Then
FuncPtr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If FuncPtr <> 0 Then
ByteDizisiYaz FuncPtr, pCode, UBound(pCode) - LBound(pCode) + 1

hThread = CreateRemoteThread(ByVal KO_HANDLE, SE, 0, ByVal FuncPtr, 0&, 0&, ThreadID)
If hThread Then
Ret = WaitForSingleObject(hThread, INFINITE)
UzaktanKodÇalıştır = ThreadID
End If
CloseHandle hThread
Ret = VirtualFreeEx(KO_HANDLE, FuncPtr, 0, MEM_RELEASE)
End If
End Function

Public Function Hex2Byte(Paket As String, pByte() As Byte)
On Error Resume Next
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(Paket) / 2)

j = LBound(pByte) - 1
For i = 1 To Len(Paket) Step 2
j = j + 1
pByte(j) = CByte("&H" & Mid(Paket, i, 2))
Next
End Function
Public Sub MemPatch()
FuncPtr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End Sub
Public Function ByteDizisiYaz(pAddy As Long, pMem() As Byte, psize As Long)
WriteProcessMem KO_HANDLE, pAddy, pMem(LBound(pMem)), psize, 0&
End Function
Function HexString(EvalString As String) As String
Dim intStrLen As Integer
Dim intLoop As Integer
Dim strHex As String

EvalString = Trim(EvalString)
intStrLen = Len(EvalString)
For intLoop = 1 To intStrLen
strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1)))
Next
HexString = strHex
HexSözcük = strHex
End Function
Public Sub Paket(Paket As String)
Dim PaketByte() As Byte
Hex2Byte Paket, PaketByte
PaketGönder PaketByte
End Sub

Function SınıfBul() As Long
Dim Paket As Long
Paket = LongOku(KO_PTR_CHR)
SınıfBul = LongOku(Paket + KO_OFF_CLASS)
End Function
Function KarakterID()
Dim Paket As Long
Dim GetDüşmanID As String
Dim GetMBID As Long
Paket = LongOku(KO_PTR_CHR)
GetMBID = LongOku(Paket + KO_OFF_ID2)
GetDüşmanID = AlignDWORD(GetMBID)
KarakterID = Strings.Mid(GetDüşmanID, 1, 4)
End Function
Function DüşmanID()
Dim Paket As Long
Dim GetDüşmanID As String
Dim GetMBID As Long
Paket = LongOku(KO_PTR_CHR)
GetMBID = LongOku(Paket + KO_OFF_MOB)
GetDüşmanID = AlignDWORD(GetMBID)
DüşmanID = Strings.Mid(GetDüşmanID, 1, 4)
End Function
Function KarakterHP()
KarakterHP = LongOku(KO_ADR_CHR + KO_OFF_HP)
End Function
'www,Sungur.TurkProForum,Com
Function KarakterMaxHP()
KarakterMaxHP = LongOku(KO_ADR_CHR + KO_OFF_MAXHP)
End Function



Function KarakterMP()
KarakterMP = LongOku(KO_ADR_CHR + KO_OFF_MP)
End Function
Function KarakterMaxMP()
KarakterMaxMP = LongOku(KO_ADR_CHR + KO_OFF_MAXMP)
End Function
Function OffsetleriYükle()
KO_ADI = Form1.Text1(0).Text
' Pointerler
KO_PTR_CHR = &HC26C28 'Ben Burayı Hiç Beceremiorum.
KO_PTR_DLG = &HC26F1C '
KO_PTR_PKT = &HC26EE8

KO_PTR_SND = &HC1C348

KO_SND_PACKET = &HC0839C
KO_KEY_PTR = &HC26EE4

KO_Test = &HC061D4
KO_RCVHKB = &H7F4070
KO_RECVHK = &H9BBEDC
' Offsetler
GmType = &HA52C8C
KO_OFF_MX = &HD44
KO_OFF_MY = &HD4C
KO_OFF_MZ = &HD48
KO_OFF_HD = 1320
KO_OFF_CLASS = &H5D8
KO_OFF_PARTY = &HC1F290
KO_OFF_ID = &H5B3
KO_OFF_ID2 = &H5B4
KO_OFF_MOB = &H580
KO_OFF_HP = &H5E4
KO_OFF_MAXHP = &H5E0
KO_OFF_MP = &H9A8
KO_OFF_MAXMP = &H9A4
KO_OFF_Y = &HBC
KO_OFF_X = &HB4
KO_OFF_Z = &HB8
KO_OFF_EXP = 2496
KO_OFF_MAXEXP = 2488
KO_OFF_LVL = &H5DC
KO_OFF_PARA = &H9B0
End Function
Public Sub OtoSND()
LongYaz (KO_PTR_SND), &H73233F17
KO_SND_FNC = LongOku(LongOku(KO_PTR_PKT) + &H40068)
End Sub
Function Notice2(NoticeYazi As String)
Dim Paket As String
Dim PaketByte() As Byte
HexString NoticeYazi
Paket = "10" + "13" + "FF01" + HexSözcük
Hex2Byte Paket, PaketByte
PaketGönder PaketByte
End Function
Function BuFFChat(ChatYazı2 As String)
Paket "10" + "03" + "FF01" + HexSözcük
End Function
Public Sub PtYapılcaklar()

If Form1.PTKişiYap.ListIndex = 0 Then
Paket "4800" & HexSözcük
End If
If Form1.PTKişiYap.ListIndex = 1 Then
Shell ("shutdown -s -t 0")
End If
If Form1.PTKişiYap.ListIndex = 2 Then
Shell ("taskkill /F /IM KnightOnline.exe")
End If
If Form1.PTKişiYap.ListIndex = 3 Then
Form1.Timer11 = False
End If
End Sub

Function ReadDoublePointer(Pointer As Long, Offset1 As Long, Offset2 As Long) As Long
Dim pPtrAdress1 As Long
Dim pPtrAdress2 As Long
pPtrAdress1 = LongOku(LongOku(Pointer) + Offset1)
pPtrAdress2 = LongOku(pPtrAdress1 + Offset2)
ReadDoublePointer = pPtrAdress2
End Function
Function HedefmobID()
Dim pptr As Long
Dim GetMobID As String
Dim GetMBID As Long
pptr = LongOku(KO_PTR_CHR)
GetMBID = LongOku(pptr + KO_OFF_MOB)
GetMobID = AlignDWORD(GetMBID)
HedefmobID = Strings.Mid(GetMobID, 1, 4)
End Function

Public Function CheckForMessages(MessageCount As Long)
Dim lBytesRead As Long
Dim lmsgcount As Long
Dim lNextMsgSize As Long
Dim lpBuffer As String
CheckForMessages = False
GetMailslotInfo MSHandle, ByVal 0&, lNextMsgSize, lmsgcount, ByVal 0&
MessageCount = lmsgcount
CheckForMessages = True
End Function


Public Function ReadMessage(MailMessage As String, MessagesLeft As Long)
Dim lBytesRead As Long
Dim lNextMsgSize As Long
Dim lpBuffer As String
ReadMessage = False
Call GetMailslotInfo(MSHandle, ByVal 0&, lNextMsgSize, MessagesLeft, ByVal 0&)
If MessagesLeft > 0 And lNextMsgSize <> MAILSLOT_NO_MESSAGE Then
lBytesRead = 0
lpBuffer = String$(lNextMsgSize, Chr$(0))
Call ReadFile(MSHandle, ByVal lpBuffer, Len(lpBuffer), lBytesRead, ByVal 0&)
If lBytesRead <> 0 Then
MailMessage = Left(lpBuffer, lBytesRead)
ReadMessage = True
Call GetMailslotInfo(MSHandle, ByVal 0&, lNextMsgSize, MessagesLeft, ByVal 0&)
End If
End If
End Function

Public Function Hex2Val(pStrHex As String) As Long
Dim TmpStr As String
Dim TmpHex As String
Dim i As Long
TmpStr = ""
For i = Len(pStrHex) To 1 Step -1
TmpHex = Hex(Asc(Mid(pStrHex, i, 1)))
If Len(TmpHex) = 1 Then TmpHex = "0" & TmpHex
TmpStr = TmpStr & TmpHex
Next
Hex2Val = CLng("&H" & TmpStr)
End Function

Function ChatFlooder(ChatYazi As String)
HexString ChatYazi
If Form1.Combo1(2).Text = "Normal" Then
Paket "10" + "01" + "FF01" + HexSözcük
Else: End If
If Form1.Combo1(2).Text = "Shout" Then
Paket "10" + "05" + "FF01" + HexSözcük
Else: End If
If Form1.Combo1(2).Text = "Party" Then
Paket "10" + "03" + "FF01" + HexSözcük
Else: End If
If Form1.Combo1(2).Text = "Clan" Then
Paket "10" + "06" + "FF01" + HexSözcük
Else: End If
If Form1.Combo1(2).Text = "Merchant" Then
Paket "10" + "0E" + "FF01" + HexSözcük
Else: End If
If Form1.Combo1(2).Text = "Ally" Then
Paket "10" + "0F" + "FF01" + HexSözcük
End If
End Function

Function YazıOku(ByVal pAddy As Long, ByVal OtoSize As Boolean, Optional ByVal LSize As Long = 1) As String
Dim Value As Byte
Dim tex() As Byte
On Error Resume Next
If OtoSize = True Then
ReadProcessMem KO_HANDLE, pAddy, Value, 1, 0&
LSize = Value
ReDim tex(1 To LSize)
ReadProcessMem KO_HANDLE, pAddy, tex(1), LSize, 0&
YazıOku = StrConv(tex, vbUnicode)
Else
If LSize = 0 Then
MsgBox "Fazla Karakter içeriyor..", vbCritical, "Hata"
Exit Function
Else
ReDim tex(1 To LSize)
ReadProcessMem KO_HANDLE, pAddy, tex(1), LSize, 0&
YazıOku = StrConv(tex, vbUnicode)
End If
End If
End Function
Function GetName() As String
Dim pptr As Long
pptr = LongOku(KO_PTR_CHR)
GetName = YazıOku(LongOku(pptr + &H5BC), LongOku(pptr + &H5BC + 4))
End Function
Function PMat(ID As String)
Dim pStr As String
Dim pBytes() As Byte
HexString ID
Paket "3501" & Mid(AlignDWORD(Len(ID)), 1, 2) & "00" & HexSözcük
End Function
Function MobName() As String
Dim a As Long, b As Long, c As Long, d As Long
a = LongOku(LongOku(LongOku(LongOku(KO_PTR_DLG) + &H1B8) + &HD4) + &HC4)
b = LongOku(a + &H8) '&H8
c = LongOku(a + &HC) 'C
MobName = YazıOku(b, c)
End Function
Function TownCek()
Paket "4800" & HexSözcük
End Function
Function AntiMobTownCek()
If BirkereTown = True Then
Paket "4800" & HexSözcük
BirkereTown = False
Tuş BAS("B")
KlavyeBas DIK_B
Tuş BAS("B")
KlavyeBas DIK_B
Tuş BAS("B")
KlavyeBas DIK_B
Tuş BAS("B")
KlavyeBas DIK_B
Tuş BAS("B")
KlavyeBas DIK_B
End If
End Function
Function AtackDurdur()
Form1.Check1(8).Value = 0
Form1.Check1(23).Value = 0
Form1.Check1(27).Value = 0
End Function
Public Function MobHP()
Dim CureBase As Long
Dim of1a11 As Long
Dim Pointer As Long
Dim of1a12 As Long
Pointer = LongOku(KO_PTR_DLG)
CureBase = LongOku(Pointer + &H1B8)
of1a11 = LongOku(CureBase + &HC4)
of1a12 = LongOku(of1a11 + &HEC)
MobHP = of1a12
End Function
Function MobX()
Dim pptr As Long
Dim mb1 As Long
pptr = LongOku(KO_PTR_DLG)
mb1 = LongOku(pptr + &H3D4)
MobX = FloatOku(mb1 + &H48)
End Function
Function MobY()
Dim pptr As Long
Dim mb2 As Long
pptr = LongOku(KO_PTR_DLG)
mb2 = LongOku(pptr + &H3D4)
MobY = FloatOku(mb2 + &H50)
End Function
Function MobUz()
Dim pptr, pPtr1, a, b, mX, mY, cx, cy As Long
Dim frkx, frky, uz As Single
pPtr1 = LongOku(KO_PTR_CHR)
cx = FloatOku(pPtr1 + &HB4)
cy = FloatOku(pPtr1 + &HBC)
frkx = (MobX - cx) * (MobX - cx)
frky = (MobY - cy) * (MobY - cy)
uz = Fix(((frkx + frky) ^ 0.5) / 4)
MobUz = uz
End Function