Ok yağmuru (Örnek)

[abaynet7]

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

[RAS90]

++ rep

[XignCode]

++ teşekkürler

@RAS90 Mob2Mk ne oluyor reis ?

[abaynet7]

@XignCode o sadece bir tanım
Public Mob2Mk As Long
istersen mob2mk yerine "FFFF" de yazabilirsin

[K.Linux]

@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