Koxp,Koxp 1828,1828 koxp,PatronusKoxp 1828,Patronus Koxp 1828,Knight Online , ChaosKoxp - 1828 Koxp indir Exp Bug Dupe Knight Online Koxp Kosp Koxp,1828 ...
 
AnasayfaTakvimGiriş yapKayıt Ol

Paylaş | 
 

 Seri Cs Yapımı.

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
safakturk
Möderatör
Möderatör
avatar

National Point : 98
Leader Point : 5598
Mesaj Sayısı : 44
Kayıt tarihi : 07/09/09

MesajKonu: Seri Cs Yapımı.   Ptsi Eyl. 07, 2009 10:15 pm

Gerekenler

  • 1 Adet CheckBox
  • 1 Adet Timer
Yapılışı:
Timer Enabled "False" Interval "1200" Yapın. Aşağıdaki Kodları Gereken Yerlere Yazın.

CheckBox Kodu

Kod:

If Check32.Value = 1 Then
Timer8.Enabled = True
Else
Timer8.Enabled = False
End If

Timer Kodu

Kod:

If CS = 1 Then
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)
Tuş yolla("z")
SendKeys (DIK_Z)
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
Else

End If

Check32 ve Timer8 Kısımlarını KEndi Check ve Timerinize Göre Editleyin

Onları Nerde Görecez Dicek Cogu Arkadasımız

Visual Basic İndir Görürsün
Sayfa başına dön Aşağa gitmek
 
Seri Cs 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ı
» İnsan Yapımı UFO'lar ve Dünya Dışı Teknolojinin Ele Geçirilişi
» Kart satarken bug yapılıomu ????
» Seri Skill 1299 TbL '
» 1299 SeRi Skilll TBL'si ( Prist , Mage , Warrior , Rogue )

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Koxp 1828,PatronusKoxp 1828,Patronus Koxp 1828,Rmy Koxp 1828 ... :: Knight Online |Usko| :: Koxp Yapım Dersi ve Source Paylaşımı-
Buraya geçin: