Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ...
Sitemize Üye Değilseniz Lütfen Üye Olunuz. Eğer Üye İseniz Giriş Yapınız... Sitemizdeki Linkleri Görebilmeniz ve Konulara Cevap Yazabilmek İçin İçin Üye Olmanız Gerekmektedir...



 
AnasayfaTakvimAramaKayıt OlGiriş yap

Paylaş | 
 

 Koxp Rogue Atak Yapımı

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145789391
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Koxp Rogue Atak Yapımı   Perş. Mart 04, 2010 4:55 pm

Selamün Aleyküm Arkadaşlar Burada Size Koxp Rogue Atak Yapımı Kodlarını vericem.

Gerekenler :

1 Adet CheckBox
1 Adet Timer
1 Adet ListBox
1 Adet Modüle
( Adını Skiller Yapın )

Kodları :

Check1 Captonunu Atak Başlat yapın ve Kod Kısmına Bunu Yazın.

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

Timer1 Intervali 1500 yapın Enabled False.
Kod Kısmına Bunları Yazın

Kod:
RogueAtak

List1 Properties Bölümünde Liste Tıklayıp Bunları Ekleyin.

Kod:
Archery
Through Shot
Fire Arrow
Posion Arrow
Multiple Shot
Guided Arrow
Perfect Shot
Fire Shot
Poison Shot
Arc Shot
Explosive Shot
Viper
Shadow Shot
Shadow Hunter
Ice Shot
Lightning shot
Dark Pursuer
Blow Arrow

Module ( SKiller ) Bu Kodu Yazın.

Kod:
Public Sub RogueAtak()
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

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)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
If Form1.List1.ListIndex = 0 Then
Skilid = Class & "003"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 1 Then
Skilid = Class & "500"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 2 Then
Skilid = Class & "505"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 3 Then
Skilid = Class & "510"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 4 Then
Skilid = Class & "515"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 5 Then
Skilid = Class & "520"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 6 Then
Skilid = Class & "525"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 7 Then
Skilid = Class & "530"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 8 Then
Skilid = Class & "535"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 9 Then
Skilid = Class & "540"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 10 Then
Skilid = Class & "545"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 11 Then
Skilid = Class & "550"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 12 Then
Skilid = Class & "557"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 13 Then
Skilid = Class & "560"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 14 Then
Skilid = Class & "562"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 15 Then
Skilid = Class & "566"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 16 Then
Skilid = Class & "570"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
Else
If Form1.List1.ListIndex = 17 Then
Skilid = Class & "575"
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
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
End Sub

İstek olursa devam ederim.

_________________

ByLetsFeeL !! [ ByCeM ]
Hak EdiYoRSaM Bir TeŞeKKüR YeteR !!


İletişim [Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]

Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
cenqiz93
Üye
Üye


Mesaj Sayısı : 1
Puanlar : 13811
REP : 0
Kayıt tarihi : 27/03/10

MesajKonu: Geri: Koxp Rogue Atak Yapımı   C.tesi Mart 27, 2010 12:07 pm

Kardes Kod kısmı neresi oluyor ya anlamadım
Sayfa başına dön Aşağa gitmek
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145789391
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Geri: Koxp Rogue Atak Yapımı   C.tesi Mart 27, 2010 7:39 pm

Kod girceğin şeyin üzerine çift tıklıyorsun. Very Happy Kod bölümü açılıyor.

_________________

ByLetsFeeL !! [ ByCeM ]
Hak EdiYoRSaM Bir TeŞeKKüR YeteR !!


İletişim [Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]

Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
mustafa4444
Üye
Üye


Mesaj Sayısı : 2
Puanlar : 13817
REP : 0
Kayıt tarihi : 26/03/10

MesajKonu: Geri: Koxp Rogue Atak Yapımı   Ptsi Mart 29, 2010 7:06 pm

ya bende bi sorun var ne zaman rogue atak vs yapmaya calıscam söle bi hata geliyo:
compile error
Sub or Function not defined dio modulun kod kısmından ReadLongu isaretliyo Question Question pff yardım edin yaw ltfn...
Sayfa başına dön Aşağa gitmek
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145789391
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Geri: Koxp Rogue Atak Yapımı   Ptsi Mart 29, 2010 7:19 pm

ReadLong modulün yoktur. Very Happy

_________________

ByLetsFeeL !! [ ByCeM ]
Hak EdiYoRSaM Bir TeŞeKKüR YeteR !!


İletişim [Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]

Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
mustafa4444
Üye
Üye


Mesaj Sayısı : 2
Puanlar : 13817
REP : 0
Kayıt tarihi : 26/03/10

MesajKonu: Geri: Koxp Rogue Atak Yapımı   Salı Mart 30, 2010 6:42 pm

readlong modulunu nerden bulcam veya yapcammı ? bi acıklarsan sevincem nasıl düzeltcemi:(
Sayfa başına dön Aşağa gitmek
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145789391
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: Geri: Koxp Rogue Atak Yapımı   C.tesi Nis. 03, 2010 9:24 pm

Ben vereyim sana modulü.

İşte bu kodu al yeni modülünde bi yere yapıştır. :

Kod:
Public Function ReadLong(Addr As Long) As Long 'read a 4 byte value
    Dim value As Long
    ReadProcessMem KO_HANDLE, Addr, value, 4, 0&
    ReadLong = value
End Function

_________________

ByLetsFeeL !! [ ByCeM ]
Hak EdiYoRSaM Bir TeŞeKKüR YeteR !!


İletişim [Linkleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]

[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]
[Resimleri görebilmek için üye olun veya giriş yapın.]

Sayfa başına dön Aşağa gitmek
http://koxpworld.youneed.us
Sponsored content




MesajKonu: Geri: Koxp Rogue Atak Yapımı   

Sayfa başına dön Aşağa gitmek
 
Koxp Rogue Atak Yapımı
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» VB 6 ile Basit Koxp Yapımı
» 1810 mage koxp ÖXEL OLARAK HAZIRLANMIŞTIR TEMİZ VE VİRÜSSÜZDÜRR
» 00000000'dan Rogue Taktikleri Asasıan Playerlerine Özel
» İnsan Yapımı UFO'lar ve Dünya Dışı Teknolojinin Ele Geçirilişi
» Kart satarken bug yapılıomu ????

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ... :: Knight OnLine Koxp - TBL & Bug - Hile :: Koxp Yapımı - Programlama :: ByLetsFeeL - Özel Dersler-
Buraya geçin: