CeRKeS Level 45
Mesaj Sayısı : 87 Kayıt tarihi : 04/05/09 Rep Puanı : 2
| Konu: iLk Koxp Dersim :):):):) Perş. Haz. 04, 2009 2:22 pm | |
| MerHaba ArkadasLar Su aNda SessiZin Yerini Zapt Ediorm Kusra BaqMayın Bide akLıma geLmişQen aLınTı DeiL Zaten aLınTı Yapmam biLen biLir
Şimdiiiq Dersimize BasLayaLımm....
3 Adet Timer Lazım Bize Sadece
Kodlar Ve acıkLama Lar
Private Sub Form_Load() ko HookDI8 Timer1.Interval = "100" Timer1.Enabled = False End Sub
Burda Ko da calısacagını Timer1 in intevralinin 100 oLdugunu Ve iLq acıLdıgınDa KapaLı oLdugunu soLuor
Private Sub Timer1_Timer() Tus yolla("2") Tus yolla("Z") End Sub
Tus yoLLa Kısmı Burda D.I Kodu ModuL ekLemeZsniz haTa WeriR
Private Sub Timer2_Timer() If GetAsyncKeyState(vbKeyHome) Then Timer1.Enabled = True End If End Sub
Home Tusuna BasıLdıgınDa Minor Comb acıLır
Private Sub Timer3_Timer() If GetAsyncKeyState(vbKeyEnd) Then Timer1.Enabled = False End If End Sub
End TusunuNa BasTıgınDa Timer KapaNır
KodLarıN HepSi:
Private Sub Form_Load() ko HookDI8 Timer1.Interval = "100" Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() Tus yolla("2") Tus yolla("Z") End Sub
Private Sub Timer2_Timer() If GetAsyncKeyState(vbKeyHome) Then Timer1.Enabled = True End If End Sub
Private Sub Timer3_Timer() If GetAsyncKeyState(vbKeyEnd) Then Timer1.Enabled = False End If End Sub
ModuL
Option Explicit Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Public Const VK_TAB = &H9 Public Const VK_F1 = &H70 Public Const VK_F10 = &H79 Public Const VK_F11 = &H7A Public Const VK_F2 = &H71 Public Const VK_F7 = &H76 Public Const VK_F8 = &H77
Public Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long Public Declare Function GetModuleFileNameExA Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long Public Declare Function GetModuleInformation Lib "PSAPI.DLL" (ByVal hProcess As Long, ByVal hModule As Long, lpmodinfo As MODULEINFO, ByVal cb As Long) As Long Public Declare Function GetTickCount Lib "kernel32" () As Long Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function WriteProcessMem Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public KO_TITLE As String Public KO_HANDLE As Long Public KO_PID As Long Public Const PROCESS_ALL_ACCESS = &H1F0FFF Public DINPUT_Handle As Long Public DINPUT_lpBaseOfDLL As Long Public DINPUT_SizeOfImage As Long Public DINPUT_EntryPoint As Long Public DINPUT_KEYDMA As Long Public DINPUT_K_1 As Long Public DINPUT_K_2 As Long Public DINPUT_K_3 As Long Public DINPUT_K_4 As Long Public DINPUT_K_5 As Long Public DINPUT_K_6 As Long Public DINPUT_K_7 As Long Public DINPUT_K_8 As Long Public DINPUT_K_Z As Long Public DINPUT_K_C As Long Public DINPUT_K_R As Long Public DINPUT_K_S As Long Public Type MODULEINFO lpBaseOfDLL As Long SizeOfImage As Long EntryPoint As Long End Type
' dll inject komutları Public Function HookDI8() As Boolean Dim Ret As Long Dim lmodinfo As MODULEINFO DINPUT_Handle = 0
DINPUT_Handle = FindModuleHandle("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 SetupDInput HookDI8 = True End Function
Public Function FindModuleHandle(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 FindModuleHandle = hModules(ModuleNumber) End If Next End Function
Sub SetupDInput() DINPUT_KEYDMA = FindDInputKeyPtr 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 FindDInputKeyPtr() As Long Dim pBytes() As Byte Dim pSize As Long Dim X As Long pSize = DINPUT_SizeOfImage ReDim pBytes(1 To pSize) ReadByteArray DINPUT_lpBaseOfDLL, pBytes, pSize For X = 1 To pSize - 10 If pBytes(X) = &H57 And pBytes(X + 1) = &H6A And pBytes(X + 2) = &H40 And pBytes(X + 3) = &H33 And pBytes(X + 4) = &HC0 And pBytes(X + 5) = &H59 And pBytes(X + 6) = &HBF Then FindDInputKeyPtr = Val("&H" & IIf(Len(Hex(pBytes(X + 10))) = 1, "0" & Hex(pBytes(X + 10)), Hex(pBytes(X + 10))) & IIf(Len(Hex(pBytes(X + 9))) = 1, "0" & Hex(pBytes(X + 9)), Hex(pBytes(X + 9))) & IIf(Len(Hex(pBytes(X + 8))) = 1, "0" & Hex(pBytes(X + 8)), Hex(pBytes(X + 8))) & IIf(Len(Hex(pBytes(X + 7))) = 1, "0" & Hex(pBytes(X + 7)), Hex(pBytes(X + 7)))) Exit For End If Next End Function ' Buraya ben yolla yazdım sizde istediğinizi yaza bilir siniz. 'ama prejedeki Bütün Yolla yazan yerleri değiştirmelisiniz. Function yolla(pKey As String) As Long pKey = Strings.UCase(pKey) Select Case pKey Case "S" yolla = DINPUT_K_S Case "Z" yolla = DINPUT_K_Z Case "1" yolla = DINPUT_K_1 Case "2" yolla = DINPUT_K_2 Case "3" yolla = DINPUT_K_3 Case "4" yolla = DINPUT_K_4 Case "5" yolla = DINPUT_K_5 Case "6" yolla = DINPUT_K_6 Case "7" yolla = DINPUT_K_7 Case "8" yolla = DINPUT_K_8 Case "C" yolla = DINPUT_K_C Case "R" yolla = DINPUT_K_R End Select End Function
Sub WriteByte(Addr As Long, pVal As Byte) Dim pbw As Long WriteProcessMem KO_HANDLE, Addr, pVal, 1, pbw End Sub
Sub ReadByteArray(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 ' Buraya ben TUS yazdım sizde istediğinizi yaza bilir siniz. 'ama prejedeki Bütün TUS yazan yerleri değiştirmelisiniz. Sub Tus(pKey As Long, Optional pTimeMS As Long = 50) WriteByte pKey, 128 f_Sleep pTimeMS, True WriteByte 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 ' knight online Pencere komutları Sub ko() KO_TITLE = "Knight OnLine Client" GetWindowThreadProcessId FindWindow(vbNullString, KO_TITLE), KO_PID KO_HANDLE = OpenProcess(PROCESS_ALL_ACCESS, False, KO_PID) If KO_PID <> 0 Then Else MsgBox "KnightOnline açık değil!!!", vbDefaultButton1, "Dikkat" End End If End Sub
Bi TeseQur u Coq goRmein !!!!
| |
|
BenjaminLines Level 40
Mesaj Sayısı : 40 Kayıt tarihi : 05/05/09 Rep Puanı : 0
| Konu: Geri: iLk Koxp Dersim :):):):) Perş. Haz. 04, 2009 3:53 pm | |
| Çok teşekkürler ama atak için yokmu yaw | |
|
CeRKeS Level 45
Mesaj Sayısı : 87 Kayıt tarihi : 04/05/09 Rep Puanı : 2
| Konu: Geri: iLk Koxp Dersim :):):):) Perş. Haz. 04, 2009 3:56 pm | |
| Atack oLaraqDa kuLLanırSın MAntıq Su
Tus yolla("Z") Tus yolla("2")
2.sLot a KoyaRsın Atack oLur Bunu Minor oLaRaqta ayarLıya biLirSin
| |
|
BenjaminLines Level 40
Mesaj Sayısı : 40 Kayıt tarihi : 05/05/09 Rep Puanı : 0
| Konu: Geri: iLk Koxp Dersim :):):):) Perş. Haz. 04, 2009 4:00 pm | |
| Demek istediğim skill atak lisete olarak kimse bir tam anlatmadı | |
|
CeRKeS Level 45
Mesaj Sayısı : 87 Kayıt tarihi : 04/05/09 Rep Puanı : 2
| Konu: Geri: iLk Koxp Dersim :):):):) Perş. Haz. 04, 2009 6:56 pm | |
| UrasıRım KendiM YapabiLirSem | |
|
farukomer.44 Level 1
Mesaj Sayısı : 7 Kayıt tarihi : 24/04/09 Rep Puanı : 0
| Konu: Geri: iLk Koxp Dersim :):):):) Ptsi Haz. 08, 2009 5:25 pm | |
| ya sunu videolu olrak anlatırsanız sevinirim | |
|
farukomer.44 Level 1
Mesaj Sayısı : 7 Kayıt tarihi : 24/04/09 Rep Puanı : 0
| Konu: Geri: iLk Koxp Dersim :):):):) Ptsi Haz. 08, 2009 5:27 pm | |
| ben bu knight in KO_FLDC = 0x00B64B10 KO_FLDB = 0x00B64CAC KO_SM3T = 0x00B6AB24 KO_CHAT = 0x00B6B8BC KO_FLDA = 0x00B6D398 KO_CHAR = 0x00B6D39C KO_PCKT = 0x00B6EC40 KO_SRVR = 0x00B6EC74 KO_SEND = 0x004738E0 bunlar? nerden bulcam help plss lutfeen mail adresim bu biri solerse sevinirim [Linkleri görebilmek için üye olun veya giriş yapın.] | |
|