safakturk
Möderatör
National Point : 98
Leader Point : 5598
Mesaj Sayısı : 44
Kayıt tarihi : 07/09/09
 | Konu: 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 | |
|
