Knıght OnLine Koxp Metin2 hiLe
Bölümler
  Koxp Yapımı VisuaL BasiC
  
Evet İlk Önce Visual Basic DOWLAND VERİM YQSA:D yapamassınız Koxp

http://rapidshare.com/files/88081213/vb_6.0.exe.html

Şimdide Koxp Yapımına Başıyalım
LÜTFEN ALINTI YAPMAYALIM Sad
 
Merhaba Arkadaşlar bu dersimizde sizlere Attack hızı ayarlamayı anlatacağım. İlk Dersimizde Sizlere Koxp Yapmanın Mantığını Anlarayım. Normalde Koxp Yaparken Bütün İşler Modülde Bitiyor. Pointerlar Olmazsa Olmazlarıdır. En ÖnemLisi KO_ADR_CHR & KO_PTR_CHR dır. Yani bana göre.SaygılarımLa Admin 01-koxp.tr.gg Olarak Sizlere Elimizden Geldiğince Dersler Vereceğiz... Dersimize Geçecek Olursak; ÇOK SERİ 1 HP

Arkadaşlar Alıntı YapmayaLım.
Not: Çözünürlüğü 500 Yaptım. 1 Yapmayın. Çoğu Kişide PC Kitleye Bilir. Source Link:http://www.dosya.tc/1-HPSource.rar.html Saygılarımla... Koxp Kapanırken İstediğiniz Siteyi Açma
 

Gm Savar Yapmak
Modül:
Kod:
Function PM(id As String)
Dim pStr As String
Dim pBytes() As Byte
HexString id

pStr = "35010" & "7" & "00" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Function
 


bu da kullanma şekli(timer buton vs)

PM "xxxxxxxxx" ( xx yerine örnek Humanbecrux)


Kod:
pm "x"
# pm "xx"
# pm "xxx"
# pm "1"
# pm "12"
# pm "123
 
Kod:

Private Sub Form_Unload(Cancel As Integer)
Shell "C:Program FilesInternet Exploreriexplore.exe xxx.com"
End Sub

 		 
 
 Start Butonu ve Wall Hack Yapalım...

quote]1 Text Box - 1 CommandButon Ekliyoruz

Text'in İçine
Kod:
Knight Online Client
 		 

Yazıoruz.

Command'ın Kodunu Veriyorum Siz bunun ismini Start-Yükle filan yapabilirsiniz.
Kod:
LoadOffsets
If AttachKO = False Then
Unload Me
Exit Sub
End If
KO_ADR_CHR = ReadLong(KO_PTR_CHR)
KO_ADR_DLG = ReadLong(KO_PTR_DLG)
PotionTimer = Now
 		 



Şimdi Wall Hack Ekliyelim
1 Adet Check Ekliyoruz Ve Bu Kodu Yazıyoruz
Kod:
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_WH, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_WH, "1"
End If

 		 


GÖRÜNTÜLÜ WE SESLİ OTO KUTU WALH HACK VB
http://www.dosya.tc/Ders1_9888.rar.htmlKOXPUMUZU OTO RPR EKLİYELİM
Koxp'umuza Auto RPR Ekleyelim [Görüntülü ve Sesli]
Ders: Ders - Oto RPR.html Açın Onun İçindedir. Smile

List Şeklinde Uzakdan İtem Tagmiri Yapar... Çoook İşinize Yarayacaktır.

Sizlere Örnek Olsun Diye "İronx 4 , 5 ve 6" kodunu verdim. Diğerlerini TBL Editor İle Bulursunuz... Gelecek Dersde Görüşmek Üzere...

Download:
http://www.dosya.tc/Ders-OtoRpr.rar.html
Hazır PROJELER 
iÇİNDE BÜRÜSÜ KOXP hAZır Proje ve vb dersleri war GeLiştirmek siZe kalmıs
DOSYA DOWLAN:
rapidshare.com/files/243119761/exbilgi_dersleri.rar


Attack Hızımızı Ayarlayalım:

Kod:
 
On Error Resume Next
Dim pStr As String
Dim pBytes() As Byte
Dim skillid As String
Dim AttackID1 As String
Dim AttackID2 As String
Dim AttackID3 As String
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String
Dim attackskill As String
class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
attackid = class & 530
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

attackskill = Hex(attackid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0000000000000000000000000D00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
 


Timer Kodu Budur. Burada Timerin Çözünürlüğünde İş bitmiş Olur. Onun Hızına Göre Attack Yapacaktır.

Auto RPR Yapalım:


Kod:
Private Sub Check1_Click()
If Form1.List1.Text = "IronX(+4)" Then
itemID = "943F020B"
End If
End Sub
 		 



Arkadaşlar bu şekilde bize lazım olan tek şey TBL Editor. Editor ile item ID sini bularak Uzaktan RPR Yapabiliriz.

Kod:
itemID = "943F020B"
 		 


İtemID Kodunu TBL Editor İle Arayınız.

Seri CS Ekleyelim:

Check:

Kod:

Private Sub Check1_Click()
If Check1.value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
 		 


ve 1 adet timer ekleyin Interval'i 350 yapın. Admin.

Kod:

Timer1.Enabled = True
Dim pBytes(1 To 2) As Byte
pBytes(1) = &H48
pBytes(2) = &H0
SendPackets pBytes
 		 



Arkadaşlar bunun yanı sıra 1 adet timer ekleyelim:

Ve Interval'i 360 yapın.

Auto Wolf:

Kod:
If Check1.value = 1 Then
Timer1.Enabled = True
Label1.Caption = "121"
Else
Timer1.Enabled = False
Label1.Caption = "121"
End If
 		 



1 Adet label ekleyelim - 1 Adet Timer - 1 Adet Check

Timer İçin:

Kod:
Dim wolftime
Label1.Caption = Label2.Caption - 1
wolftime = Label1.Caption
If Label1.Caption = 0 Then
wolf
Label1.Caption = "122"
End If
 		 



1 adet text box ekle İçine: "Knight Online Client" Yaz.

1 Adet Command Ekle:

Kod:
LoadOffsets
If AttachKO = False Then
Unload Me
Exit Sub
End If

KO_ADR_CHR = ReadLong(KO_PTR_CHR)
KO_ADR_DLG = ReadLong(KO_PTR_DLG)
List1.Enabled = True
Command2.Enabled = False
Text1Enabled = False
Timer1Enabled = True
PotionTimer = Now
Timer2.Enabled = True
 



Timer1:

Kod:
If Combo1.Text = "" Then
Else
If UseAutoHeal = 1 Then
Dim CurrentHP As Long, maxhp As Long, HEALON2 As Single, HEALON As Long
CurrentHP = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
HEALON2 = HealPercent / 100
HEALON = Round(maxhp * HEALON2, 0)
If CurrentHP <= HEALON And CurrentHP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
skill Combo1.ItemData(Combo1.ListIndex)
End If
End If 'end if van UseAutoHeal = 1
End If
End If
If Combo2.Text = "" Then
Else
If UseAutoMana = 1 Then
Dim CurrentMP As Long, MaxMP As Long, ManaON2 As Single, ManaON As Long
CurrentMP = ReadLong(KO_ADR_CHR + KO_OFF_MP)
MaxMP = ReadLong(KO_ADR_CHR + KO_OFF_MAXMP)
ManaON2 = ManaPercent / 100
ManaON = Round(MaxMP * ManaON2, 0)
If CurrentMP <= ManaON And CurrentMP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
skill Combo2.ItemData(Combo2.ListIndex)
End If
End If
End If
End If
 		 



Timer2:

Kod:
DispatchMailSlot
 		 



Modül:
http://www.dosyaupload.net/download.php?file=143Modul.rar
Seri Seri Auto Minor

Check:

Kod:
If Check5.Value = 1 Then
Timer4.Enabled = True
Else
Timer4.Enabled = False
End If
 		 



Timer:

Kod:
Dim hp
Dim maxhp
hp = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
If hp < maxhp Then
minor
End If
 		 



GM Görüşü:


Kod:
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_HD, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_HD, "1"
End If
 		 



Swift Hack Yapalım:


Kod:
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, "16320"
Else
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, "16256"
End If
 		 


Hazzad Game:

Kod:
Dim pStr As String
Dim pBytes() As Byte
pStr = "5A" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
 		 



Town:

Kod:
Dim pBytes(1 To 2) As Byte
pBytes(1) = &H48
pBytes(2) = &H0
SendPackets pBytes
 		 



Stat Sıfırlat:

Kod:
Dim pStr As String
Dim pBytes() As Byte
pStr = "3403" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

 		 


Skill Sıfırlat:

Kod:
Dim pStr As String
Dim pBytes() As Byte
pStr = "3404" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
 		 



Wall Hack Yapalım (Duvar Hack)


Kod:
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_WH, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_WH, "1"
End If
 		 



Auto HP & MP Yapalım:

Gerekenler: 2 Adet CheckBox - 2 Adet Text - 2 Adet ComboBox - 2 Adet Label (%) Koymak İçin.

1. CheckBox Auto HP Olsun:

Kod:
If Check1Value = 1 Then
UseAutoHeal = 1
Else
UseAutoHeal = 0
End If
 		 



2. CheckBox AutoMP Olsun:

Kod:
If Check2.Value = 1 Then
UseAutoMana = 1
Else
UseAutoMana = 0
End If
 		 



1. HP Text İne:

Kod:
If IsNumeric(Text1.Text) Then
HealPercent = Text1.Text
End If
 		 



2. MP Text İne:

Kod:
If IsNumeric(Text2.Text) Then
ManaPercent = Text2.Text
End If
 		 



Modüle İse:

HP POT İÇİN:

Kod:
Form1.Combo1.AddItem "90"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490011
Form1.Combo1.AddItem "180"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490012
Form1.Combo1.AddItem "360"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490013
Form1.Combo1.AddItem "720"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490014
Form1.Combo1.AddItem "1440"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490015
 		 



MP POTLAR İÇİN:

Kod:
Form1.Combo2.AddItem "120"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490016
Form1.Combo2.AddItem "240"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490017
Form1.Combo2.AddItem "480"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490018
Form1.Combo2.AddItem "960"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490019
Form1.Combo2.AddItem "1920"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490020
 		 



Modül Başına:

Kod:
Public Sub Potlar()
 		 


veya

Kod:
Public Sub skiller(9
 		 



Modül Sonuna:

Kod:
End Sub
 		 


ZR Attack Yapalım:

1 Adet Timer:

Kod:

SendKeys ("Z")
SendKeys ("R")

 		 


Bunu Oyunda Vurması İçin Dinput İle Kurun.

CheckBox 1 Adet:

Kod:

If Check1.Value = 1 Then
Check1.Enabled = Treu
ElSE
cHECK1.Enabled = False
End If

 		 



Irk Hack Yapalım:

Karus İçin:

Kod:
WriteLong KO_ADR_CHR + nation, 1
 		 



Human İçin:

Kod:
WriteLong KO_ADR_CHR + nation, 2
 		 



Chat Flood Yapalım:

2 Adet Text - 2 Adet CommandButton - 1 Adet ComboBox - 1 adet timer

Anlatım: Text1 i küçük şekilde bir alana koyun ve içine 100 yazın. Text2 Yi Büyük Tutun. Flood Yapılacak Yazı. CommandButton'un 1.sini Test Et Yapın. 2. sini Başlat Yapın. ve ComboBox'u Ekleyin.

CommandButton 1: (Başlat)

Kod:
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
 		 



CommandButton 2: (Test Et)

Kod:
Notice Text2.Text
 		 



Timer1:

Kod:
Notice Text2.Text
 		 



Modülü Yazmam Uzun Sürecek Sabır Smile



Char SabitleyeLim:


Kod:
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 1
Else
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 16256
End If
 		 



Işınlanma Ekleyelim:


Kod:
Dim VVA As Single
VVA = ReadFloat(KO_ADR_CHR + KO_OFF_X)
WriteFloat KO_ADR_CHR + KO_OFF_X, VVA + 5
Dim VVA2 As Single
VVA2 = ReadFloat(KO_ADR_CHR + KO_OFF_Y)
WriteFloat KO_ADR_CHR + KO_OFF_Y, VVA2 + 5
 		 



Form Pozisyonunu Ayarlamak:


Kod:
SetWindowPos Form1.hwnd, _
lFlag, _
Form1.Left / Screen.TwipsPerPixelX, _
Form1.Top / Screen.TwipsPerPixelY, _
Form1.Width / Screen.TwipsPerPixelX, _
Form1.Height / Screen.TwipsPerPixelY, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW
 		 



Lupines Eyes Ekleyelim:


Kod:
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_LUP, "1103626240"
Else
WriteLong KO_ADR_CHR + KO_OFF_LUP, "0"
End If
 		 


Form Load Ayarı:


Kod:
PotID
Form1.Left = 11050
FormAcik = "1"
Label1_Click
 		 



Form Timer Ayarı:


Kod:
Dim a1, a2, Msg As String

If GetAsyncKeyState(VK_F11) Then
If FormAcik = "0" Then
FormOn
Exit Sub
End If
If FormAcik = "1" Then
FormOff
Exit Sub
End If
End If
 		 



Menü Açmak:


Kod:

STabOn1(0).Visible = False
STabOff1(0).Visible = True
STabOn1(1).Visible = True
STabOff1(1).Visible = False
STabOn1(2).Visible = True
STabOff1(2).Visible = False
page1.Left = 240
page1.Top = 840
page1.Visible = True
page2.Visible = False
page3.Visible = False

 		 



Bu Mantıkla Menüleri Çoğaltın.


Menüde Açamayanlar SSTAB Kodu:


Kod:
If Button = 1 Then
If Index = 0 Then
STabOn1(0).Visible = False
STabOff1(0).Visible = True
STabOn1(1).Visible = True
STabOff1(1).Visible = False
STabOn1(2).Visible = True
STabOff1(2).Visible = False
page1.Left = 240
page1.Top = 840
page1.Visible = True
page2.Visible = False
page3.Visible = False
End If
If Index = 1 Then
STabOn1(1).Visible = False
STabOff1(1).Visible = True
STabOn1(0).Visible = True
STabOff1(0).Visible = False
STabOn1(2).Visible = True
STabOff1(2).Visible = False
page2.Left = 140
page2.Top = 740
page1.Visible = False
page2.Visible = True
page3.Visible = False
End If
If Index = 2 Then
STabOn1(2).Visible = False
STabOff1(2).Visible = True
STabOn1(1).Visible = True
STabOff1(1).Visible = False
STabOn1(0).Visible = True
STabOff1(0).Visible = False
page3.Left = 240
page3.Top = 940
page1.Visible = False
page2.Visible = False
page3.Visible = True
End If
End If
 		 



Charınızın HP & MP 'ini Okutmak:


Kod:
LabelHP.Caption = ReadLong(KO_ADR_CHR + KO_OFF_HP)
Labelmp.Caption = ReadLong(KO_ADR_CHR + KO_OFF_MP)
LabelHp2.Caption = ReadLong(KO_ADR_CHR + KO_OFF_HP)
If Combo1.Text = "" Then
Else
If UseOtocanPot = 1 Then
Dim CurrentHP As Long, maxhp As Long, HEALON2 As Single, HEALON As Long
CurrentHP = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
HEALON2 = HealPercent
HEALON = Round(HEALON2, 0)
If CurrentHP <= HEALON And CurrentHP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
Skill Combo1.ItemData(Combo1.ListIndex)
End If
End If 'end if van UseAutoHeal = 1
End If
End If
If Combo2.Text = "" Then
Else
If UseOtomanapot = 1 Then
Dim CurrentMP As Long, MaxMP As Long, ManaON2 As Single, ManaON As Long
CurrentMP = ReadLong(KO_ADR_CHR + KO_OFF_MP)
MaxMP = ReadLong(KO_ADR_CHR + KO_OFF_MAXMP)
ManaON2 = ManaPercent
ManaON = Round(ManaON2, 0)
If CurrentMP <= ManaON And CurrentMP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
Skill Combo2.ItemData(Combo2.ListIndex)
End If
End If
End If
End If
 		 


MOB IDsi Bulmak (%) Hesabı:


Kod:
Dim IDs As Long
Dim ID As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String
Dim attackskill As String
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)
MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)
ID = AlignDWORD(IDs)
ID1 = Strings.Mid(ID, 3, 2)
ID2 = Strings.Mid(ID, 5, 2)
CharID = ID1 & ID2
MobID = MobXID1 & MobXID2
 		 



Auto Defance:

Modül İçin:

Kod:
Form1.Combo3.AddItem "Evade"
Form1.Combo3.ItemData(Form1.Combo3.NewIndex) = 710
Form1.Combo3.AddItem "Safety"
Form1.Combo3.ItemData(Form1.Combo3.NewIndex) = 730
Form1.Combo3.AddItem "Scaled skin"
Form1.Combo3.ItemData(Form1.Combo3.NewIndex) = 760
 		 



Check:

Kod:
If Combo1.Text = "" Then
Check1.Value = 0
Else
If Check1.Value = 1 Then
safety
Timer1.Enabled = True
Label1.Caption = "30"
Else
Timer1.Enabled = False
Label1.Caption = "30"
End If
End If
 		 



Timer:

Kod:
Dim safetytime
Label1.Caption = Label1.Caption - 1
safetytime = Label1.Caption
If Label1.Caption = 0 Then
safety
Label1.Caption = "30"
End If



UMARIM YADIMCI OLMUSUMDUR ONLİNE DESTEK İÇİN ASSAGIDAKİNE TIKALYIN

http://www.01-koxp.tr.gg/OnLine-Destek.htm?PHPSESSID=ce5fb8673a066c8434aea7adec29ec98

 
  
  Bugün 4 ziyaretçi (12 klik) kişi burdaydı!  
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol