www.kingkoxp.forummum.com Yeni sitemiz

Chat Flood Yapımı

 Chat Flood Yapımı

Modul Kodu :

Function Notice(NoticeYazi As String)
Dim pStr As String
Dim pBytes() As Byte


HexString NoticeYazi

If Form1.Option1 Then
pStr = "10" + "01" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option2 Then
pStr = "10" + "05" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option3 Then
pStr = "10" + "03" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option4Then
pStr = "10" + "06" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option5 Then
pStr = "10" + "0E" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option1 Then
pStr = "10" + "01" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option2 Then
pStr = "10" + "05" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option3 Then
pStr = "10" + "03" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option4 Then
pStr = "10" + "06" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
If Form1.Option5 Then
pStr = "10" + "0E" + "FF01" + hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Function

ConvHEX2ByteArray Yoksa Ekleyın Yoksa Hata Alırsınız

Public Function ConvHEX2ByteArray(pStr As String, pByte() As Byte)
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(pStr) / 2)

j = LBound(pByte) - 1
For i = 1 To Len(pStr) Step 2
j = j + 1
pByte(j) = CByte("&H" & Mid(pStr, i, 2))
Next
End Function

Gereknler

2 Adet Text ("Buraya Yazın" "200")
5 Adet Option Buton ("Genel" "Shot" "Party" "Clan" "Pazar")
1 Adet Label ("Flood Hızı")
2 Adet Comander Buton ("Test Et" "Başlat"
2 Adet Timer
Test Et Buton Kodu :

Notice TextAdı.Text

Başlat Buton Kodu :

If Checkadı.Value = 1 Then
Timert.Enabled = True
Checkadı.Caption = "Durdur"
MsgBox = "Toqqi'ye Tşkler."
Else
Timeradı.Enabled = False
Checkadı.Caption = "Başlat"
MsgBox = "LetsFeeL a Teşekkürler."
End If

Timer Kodu : 1. Interval 1 False

TimerAdı.Interval = TextAdı.Text

Timer Kodu : 2. False (Yok)

Notice TextAdı.Text