Private 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 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private 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 Private 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 Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Const CHR_PTR As Long = 11976428 '&HB6BEEC Public Const SWIFT_OFS As Long = 1582 '&H62E Public Const HP_OFS As Long = 1428 '&H594 Public Const MAXHP_OFS As Long = 1424 '&H590 Public Const MP_OFS As Long = 2364 '&H93C Public Const MAXMP_OFS As Long = 2360 '&H938
Public CHR_ADR As Long Private KOHandle As Long
Public Function CheckKO() As Boolean Dim KOpID As Long, tmpL As Long
On Error GoTo ErrHandle
GetWindowThreadProcessId FindWindow(vbNullString, "Knight OnLine Client"), KOpID KOHandle = OpenProcess(PROCESS_ALL_ACCESS, False, KOpID) If KOHandle = 0 Then GoTo ErrHandle
CHR_ADR = ReadLong(CHR_PTR) tmpL = ReadLong(CHR_ADR + MAXHP_OFS) If tmpL = 0 Then GoTo ErrHandle CheckKO = True Exit Function
ErrHandle: CheckKO = False End Function
Public Function ReadLong(Address As Long) As Long Dim Value As Long
ReadProcessMem KOHandle, Address, Value, 4, 0& ReadLong = Value End Function
Public Function WriteLong(Address As Long, Value As Long) WriteProcessMem KOHandle, Address, Value, 4, 0& End Function
Public Sub SetAlwaysOnTop(mForm As Form) SetWindowPos mForm.hWnd, -1&, 0&, 0&, 0&, 0&, 3& End Sub
Kodlarimizi yapiştirdik Form üzerine
8 Adet Label , 1 Adet Check Box , 1 Adet'te Timer Eklioruz..
Adlari " Label1 , Label2 , .. gibi sirayla olsun yeri fark etmez
Daha sonra form'a gelerek ' Sağ Tıklama ile Wiew Codes seçeneğine Kodlari yapiştiriniz.
Option Explicit
Private Sub Check1_Click() If Check1.Value = 1 Then WriteLong CHR_ADR + SWIFT_OFS, 16320 ' normal speed=16256, swift= 16320, lighfeet=16384 Else WriteLong CHR_ADR + SWIFT_OFS, 16256 End If End Sub
Private Sub Form_Load() Dim tmpBol As Boolean
tmpBol = CheckKO
If tmpBol = True Then PosControls SetAlwaysOnTop Me Else MsgBox "Start the hack when you are IN GAME!!!", vbInformation + vbOKOnly, "Error !!!" Unload Me End If End Sub
Buraya kadar Hp ve Mp değerimizi gösterebildik , yaptiğimiz form'u eksiksiz olarak yapmiş kabul edip Auto Hp pot bölümüne geçioruz..
Form'a 2 Adet Text Box 1 Adet Daha Timer Ekleyip Intevral bölümünü 100 yapiniz.
Private Sub From_Load() Timer1.Enabled = True End Sub Private Sub Timer2_Timer () If Label4.Caption < Text1.Text Then Komut.Send ("7") End If If Label8.Caption < Text2.Text Then Komut.Send ("8") End If End Sub
[img] [URL=http://g.imageshack.us/im[/img]
Not:Alınıtıdır.
Biliyorum cok karısık ama idare etmeye çalışın arkadaşlar
En son eXx tarafından Perş. Ocak 07, 2010 8:59 pm tarihinde değiştirildi, toplamda 1 kere değiştirildi
xNODx
Konu: Geri: Vb 0.6 ile koxp yapmak Perş. Ocak 07, 2010 7:37 pm
Biraz anlatım karışık ve alıntı diye yazarsan sevinirim.
eXx
Konu: Geri: Vb 0.6 ile koxp yapmak Perş. Ocak 07, 2010 9:00 pm
yazarız tabide burda rencide etmek yerine msnden sölesen daha iyi olur böle şeleri
xNODx
Konu: Geri: Vb 0.6 ile koxp yapmak Cuma Ocak 08, 2010 1:24 pm
Konu: Vb 0.6 ile koxp yapmak 
Perş. Ocak 07, 2010 3:45 pm
