Henüz Üye Olmadıysan, Hemen Üye Olabilirsin !
Kayıt OL!  

  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
 
Ok yağmuru (Örnek)

#1
Ana Mödül@

@XignCode

Kod:
Function OkyagmuruListe(lsts As ListBox) As Long
Dim EBP As Long, ESI As Long, EAX As Long, FEnd As Long
Dim LDist As Long, CrrDist As Long, LID As Long, LBase As Long, LMoBID As Long, Zaman As Long, currDist As Long
Dim base_addr As Long
Dim Name As String
Zaman = GetTickCount
EBP = ReadLong(ReadLong(KO_FLDB) + &H34)
FEnd = ReadLong(ReadLong(EBP + 8) + 8)
ESI = ReadLong(EBP)
While ESI <> EBP
If GetTickCount - Zaman >= 1500 Then Exit Function
base_addr = ReadLong(ESI + &H10)
If base_addr = 0 Then Exit Function
Dim a As Long ''''


              Form2.List11.AddItem (ReadLong(base_addr + KO_OFF_ID)) ' burası değişecek yeni bir listbox açın değiştirin


If ReadLong(base_addr + &H698) >= 15 Then
Name = YazıOku(ReadLong(base_addr + KO_OFF_NAME), False, ReadLong(base_addr + &H698)) 'BUDA TAMAM
Else
Name = YazıOku(base_addr + KO_OFF_NAME, False, ReadLong(base_addr + &H698))
End If


EAX = ReadLong(ESI + 8)
  If ReadLong(ESI + 8) <> FEnd Then
      While ReadLong(EAX) <> FEnd
      EAX = ReadLong(EAX)
      Wend
  ESI = EAX
  Else
  EAX = ReadLong(ESI + 4)
If ReadLong(ESI + 8) <> EAX Then
While ESI = ReadLong(EAX + 8)
If GetTickCount - Zaman >= 200 Then Exit Function
ESI = EAX
EAX = ReadLong(EAX + 4)
Wend
ESI = EAX
Else
While ESI = ReadLong(EAX + 10)
If GetTickCount - Zaman >= 200 Then Exit Function
ESI = EAX
EAX = ReadLong(EAX + 4)
Wend
ESI = EAX
End If
  End If
Wend
End Function

Ok yağmuru kodları

Kod:
Function UcluOk1() '
On Error Resume Next
Dim c As Integer
c = Form2.List11.ListCount
If c >= 0 Then
Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "003"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(0)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000000000000000D00"
Paket "3102" + Strings.Mid(AlignDWORD(SınıfBul & "003"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(0)), 4) + FormatHex(Hex(Mob2Mk), 4) + "000000000000010000000000"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "003"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(0)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If '
If c >= 1 Then
Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "515"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(1)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000000000000000D00"
Paket "3102" + Strings.Mid(AlignDWORD(SınıfBul & "515"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(1)), 4) + FormatHex(Hex(Mob2Mk), 4) + "000000000000010000000000"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "515"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(1)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
If c >= 2 Then
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "515"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(2)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
If c >= 3 Then
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "515"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(3)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If '
'Pause 0.4
If c >= 4 Then
Paket "3101" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(4)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000000000000000F00" ' terar dene
Paket "3102" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(4)), 4) + FormatHex(Hex(Mob2Mk), 4) + "000000000000010000000000"
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(4)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
If c >= 5 Then
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(5)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
If c >= 6 Then
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(6)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
If c >= 7 Then
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(7)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
If c >= 8 Then
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(8)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
If c >= 8 Then
Paket "3103" + Strings.Mid(AlignDWORD(SınıfBul & "555"), 1, 6) + "00" + karakterid + FormatHex(Hex(Form2.List11.List(9)), 4) + FormatHex(Hex(Mob2Mk), 4) + "0000000000000100000000000000"
End If
End Function

Timer

Kod:
OkyagmuruListe List11
UcluOk1
List11.Clear
˙·٠٠�●●●● ●● ●● ForumDC Team 'DOSTLARI' Fun Clup ●● ●● ●● ●●�٠٠·
Ara
Cevapla

#2
++ rep
217969425641E9070A9CEE

RAS90
Cevapla

#3
++ teşekkürler

@RAS90 Mob2Mk ne oluyor reis ?
Ara
Cevapla

#4
@XignCode o sadece bir tanım
Public Mob2Mk As Long
istersen mob2mk yerine "FFFF" de yazabilirsin
˙·٠٠�●●●● ●● ●● ForumDC Team 'DOSTLARI' Fun Clup ●● ●● ●● ●●�٠٠·
Ara
Cevapla

#5
(15-07-2017, Saat: 07:09)abaynet7 Adlı Kullanıcıdan Alıntı: Linkleri Görüntüleyebilmek için Lütfen Kayıt Olun veya Giriş Yapın Eğer Kayıt Olduysanız ve Bu Yazıyı Hala Görüyorsanız Üyeliğinizi Aktifleştirmeyi Unutmuşsunuz !...@XignCode o sadece bir tanım
Public Mob2Mk As Long
istersen mob2mk yerine "FFFF" de yazabilirsin

ana mödül yok onu nasıl yaparız ustam Big Grin
Ara
Cevapla



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  İstek Ok Yağmuru Kodları yasin1989 36 1,103 30-04-2017, Saat: 20:59
Son Yorum: wcoder

Hızlı Menü:


Konuyu Okuyanlar:
1 Ziyaretçi