ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801266
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: Chat Flood Yapımı  Çarş. Şub. 03, 2010 1:24 pm | |
| 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 ByLetsFeeL
Bi Teşekkür Yeter... | |
|
