ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları
Would you like to react to this message? Create an account in a few clicks or log in to continue.
ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları

Güncel Paylaşım Forumu !
 
AnasayfaGaleriAramaLatest imagesKayıt OlGiriş yap
Eğlence Başladı Rütbeni Seç! TIKLA
Moderatör Alımı Başladı TIKLA

 

 Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler

Aşağa gitmek 
+7
nakata11
celalibo
hellpich
3yl3mci
asker158
paper59
SessizAdam
11 posters
Sayfaya git : 1, 2  Sonraki
YazarMesaj
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 6:06 am

LÜTFEN ALINTI YAPMAYALIM Üzgün


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 SessiZAdam - extra.yetkin-forum.com Olarak Sizlere Elimizden Geldiğince Dersler Vereceğiz...

Dersimize Geçecek Olursak;

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.

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 6:12 am

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.

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 6:15 am

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

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 & 552
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 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0000000000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
ve 1 adet timer ekleyin Interval'i 350 yapın. SessizAdam.

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 6:18 am

Zamanlı Town Atma:

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.

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 6:22 am

Auto Wolf:
Kod:
If otowolf.Value = 1 Then
Wolf
wolfsaat.Enabled = True
Else
wolfsaat.Enabled = False
End If

Modül'e:
Kod:
Public Sub Wolf()
    Dim pBytes() As Byte
    Dim pStr As String
    Dim m_SkillID As String
    Dim mXZY As String
    Dim mX As Single, mY As Single, mZ As Single
On Error Resume Next
    mX = ReadFloat(KO_ADR_CHR + KO_OFF_X)
    mY = ReadFloat(KO_ADR_CHR + KO_OFF_Y)
    mZ = ReadFloat(KO_ADR_CHR + KO_OFF_Z)
   
ChrClass = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
    mXZY = Left$(AlignDWORD(CLng(Fix(mX))), 4) & Left$(AlignDWORD(CLng(Fix(mZ))), 4) & Left$(AlignDWORD(CLng(Fix(mY))), 4)
    m_SkillID = AlignDWORD(CLng(ChrClass & "030"))
   
    pStr = "3101" & m_SkillID & Form1.CharID.Caption & "FFFF" & mXZY & "0000000000001100"
    ConvHEX2ByteArray pStr, pBytes
    SendPackets pBytes
   
    pStr = "3103" & m_SkillID & Form1.CharID.Caption & "FFFF" & mXZY & "000000000000"
    ConvHEX2ByteArray pStr, pBytes
    SendPackets pBytes
End Sub

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 6:23 am

DEVAMI ÇOK YAKINDA GELİYOR. Mutlu

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
paper59
Level 1
Level 1
avatar


Mesaj Sayısı : 18
Nerden : Evden
Kayıt tarihi : 28/05/09
Rep Puanı Rep Puanı : 0

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 7:44 am

Start butonunu yapmayıda koyarmısın.
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 10:48 am

paper59 demiş ki:
Start butonunu yapmayıda koyarmısın.


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[/b]

[b]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: [Linkleri görebilmek için üye olun veya giriş yapın.]

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 10:51 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 10:52 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 10:53 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 10:55 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 10:55 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 10:59 am

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 Geveze.Forum7.Biz Scroll"
Form1.List1.ItemData(Form1.List1.NewIndex) = 68451d

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

Ve Modül'e:

Kod:

Public Sub Skiller()
Form1.List1.AddItem "Örnek Geveze.Forum7.Biz Scroll"
Form1.List1.ItemData(Form1.List1.NewIndex) = 68451d
End Sub

Kolay Gelsin.

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:07 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:11 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:12 am

Arkadaşlar Çoğu Kodu Elimle Yazıyorum. Yanlışlık Olursa Afbuyrun...

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:13 am

Irk Hack Yapalım:

Karus İçin:
Kod:
WriteLong KO_ADR_CHR + nation, 1

Human İçin:
Kod:
WriteLong KO_ADR_CHR + nation, 2

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:22 am

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 Tebessüm

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:24 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:24 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:25 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:26 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:27 am

Form Load Ayarı:

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
SessizAdam
Sponsor
Sponsor
SessizAdam


Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı Rep Puanı : 47

Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Empty
MesajKonu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler   Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitimePaz Haz. 14, 2009 11:27 am

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

________Kullanıcı İmzası_________
[Linkleri görebilmek için üye olun veya giriş yapın.]

[Linkleri görebilmek için üye olun veya giriş yapın.]
Sayfa başına dön Aşağa gitmek
 
Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler
Sayfa başına dön 
1 sayfadaki 2 sayfasıSayfaya git : 1, 2  Sonraki
 Similar topics
-
» Conquer Online NPC isimlerini Değiştirmek isteyenler Effect Yapmak İsteyenler
» Ek iş yapmak isteyenler için iş fikirleri sitesi - istesozluk.com
» Diyet yapmak isteyenler için harika bir site - Diyetciniz.com
» EVET ARKADAŞLAR 1737 PRO KOXP VE KOXP GAME !! OTO LOOT PRİEST KOXP VE ÖLÜMSÜZLÜK !!
» Gm Tarama Yapmak

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları :: Ders :: Hile Yapım Dersi ve Source Paylaşımı-
Buraya geçin:  

weyyo

knight online serverlar

metin2 serverlar

silkroad serverlar