Mükkemmel Koxp Yapımı !

**8201** · 10-17-2009 04:10 PM

Ders7: Seri Seri Auto Minör
KoD

Check:

Kod:

If Check5.Value = 1 Then

Timer4.Enabled = True

Else

Timer4.Enabled = False

End If

Timer:
Kod

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

Ders8: Gm Görünüşü

Kod

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

Ders9: Swift Hack Yapalım
Kod

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

Ders10: Toplu Ders

Hazzard Game
Kod

Kod:

Dim pStr As String

Dim pBytes() As Byte

pStr = "5A" & hexword

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

Town
Kod

Kod:

Dim pBytes(1 To 2) As Byte

pBytes(1) = &H48

pBytes(2) = &H0

SendPackets pBytes

Stat Sıfırlat
KoD

Kod:

Dim pStr As String

Dim pBytes() As Byte

pStr = "3403" & hexword

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

Ders11: Wall Hack Yapalım

KOD

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

Ders11: List'e ID OKUTMAK

Arkadaşlar bize lazım olan tbl editor. Editor ile Bulduğunuz SC IDlerini List'e Okutmak İçin:

Form1.List1.AddItem "Örnek aaa Scroll"
Form1.List1.ItemData(Form1.List1.NewIndex) = 68451d

Yapmamız Gereken Form'a 1 Adet List Ekliyoruz.

Ve Modül'e:
KoD

Kod:

Public Sub Skiller()

Form1.List1.AddItem "Örnek KoxpGameS.CoM Scroll"

Form1.List1.ItemData(Form1.List1.NewIndex) = 68451d

End Sub

Ders12: Auto Hp&Mp Pot Yapımı

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

1. CheckBox Auto HP Olsun:
Kod

Kod:

If Check1Value = 1 Then

UseAutoHeal = 1

Else

UseAutoHeal = 0

End If

2. CheckBox AutoMP Olsun:
Kod

Kod:

If Check2.Value = 1 Then

UseAutoMana = 1

Else

UseAutoMana = 0

End If

**8201** · 10-17-2009 04:18 PM

2. MP Text İne:
Kod

Kod:

If IsNumeric(Text2.Text) Then

ManaPercent = Text2.Text

End If

Modüle İse:

HP POT İÇİN:
Kod

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

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

Kod:

Public Sub Potlar()

MoDül Sonuna
KoD

Kod:

End Sub

Ders13: ZR Attack Yapalım:

1 Adet Timer:
Kod

Kod:

SendKeys ("Z")

SendKeys ("R")

Bunu Oyunda Vurması İçin Dinput İle Kurun.
CheckBox 1 Adet:
Kod

Kod:

If Check1.Value = 1 Then

Check1.Enabled = Treu

ElSE

cHECK1.Enabled = False

End If

Ders15: Char Sabitleme
KoD

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

Ders16: Chat Flood

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

Kod:

If Check1.Value = 1 Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If

CommandButton 2: (Test Et)
Kod

Kod:

Notice Text2.Text

Timer1:
Kod

Kod:

Notice Text2.Text

Ders18: Lupines Eyes

KoD

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

**8201** · 10-17-2009 04:21 PM

Ders20: Form Load Ayarı

Kod

Kod:

PotID

Form1.Left = 11050

FormAcik = "1"

Label1_Click

--------------------------------------------------------------------------

Ders21: Form Timer Ayarı

Kod

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

--------------------------------------------------------------------------

Ders22: Menü Açmak
KoD

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 = FalseBu Mantıkla Menüleri Çoğaltın

--------------------------------------------------------------------------

Ders23: Menüde Açamayanlar SSTAB Kodu

Kod

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

--------------------------------------------------------------------------

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

Kod

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

--------------------------------------------------------------------------

Ders25: MOB IDsi Bulmak (%) Hesabı

Kod

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

10-24-2009 12:59 AM

ellerine sağlık

11-01-2009 12:18 AM

super paylasım...

11-03-2009 03:07 PM

Kanka bunlar vermişsiniz a bilmeyen adam bunları öylece bakmakla yetinir. Smile

LoadOffsets leri.

Ve örnek modül vericeksinizki birşeyler öğrensinler. Wink

11-20-2009 03:26 AM

thansk wer much Big Grin

**8201** · 11-22-2009 06:57 AM

(11-03-2009 03:07 PM)By_Hackan Yazılan: Linkleri Görebilmek İçin Üye Olmalısınız!!!! Ücretsiz Üye Olmak İçinTıklayınKanka bunlar vermişsiniz a bilmeyen adam bunları öylece bakmakla yetinir.

LoadOffsets leri.

Ve örnek modül vericeksinizki birşeyler öğrensinler.

Zamanım Yok Fazla Ama yakın Zamanda OnLarıda Paylaşıcam Smile

12-01-2009 07:25 PM

buyrun beyler %100 çalışıyor ByMuraT v54
Linkleri Görebilmek İçin Üye Olmalısınız!!!! Ücretsiz Üye Olmak İçinTıklayın

12-24-2009 08:48 AM

yha oo yazıları ben napıcam biraz yardmcı olur musunuz..

koxp