Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ...
Sitemize Üye Değilseniz Lütfen Üye Olunuz. Eğer Üye İseniz Giriş Yapınız... Sitemizdeki Linkleri Görebilmeniz ve Konulara Cevap Yazabilmek İçin İçin Üye Olmanız Gerekmektedir...



 
AnasayfaTakvimAramaKayıt OlGiriş yap

Paylaş | 
 

 Chat Flood Yapımı

Aşağa gitmek 
YazarMesaj
ByLetsFeeL
Admin
Admin
avatar

Mesaj Sayısı : 161
Puanlar : 145790471
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...

MesajKonu: 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...
Sayfa başına dön Aşağa gitmek
http://koxpworld.yetkin-forum.com
 
Chat Flood Yapımı
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight OnLine Güncel Koxp - Koxp Yapımı- Programlama - USKoxp ... :: Knight OnLine Koxp - TBL & Bug - Hile :: Koxp Yapımı - Programlama :: Kodlar-
Buraya geçin: