mig33
[Tutorial] mig33Flood - Printable Version

+- mig33 (http://mig33.us)
+-- Forum: Mig33 Chit Chat (/forum-5.html)
+--- Forum: mig33 Tricks, Tips & Codes (/forum-8.html)
+--- Thread: [Tutorial] mig33Flood (/thread-304.html)



[Tutorial] mig33Flood - xtrsyz.org - 08-22-2010 04:09 PM

nih ada sedikit source untuk belajar bikin app mig33 untuk pc.
media yang digunakan adalah VisualBasic 6

didalam source itu, nanti anda akan melihat code seperti ini
Code:
Private Sub Command1_Click()
For k = 1 To listnick.ListItems.Count
pluuuud (k)
Next k
End Sub

itu yang nanti'a akan berfungsi untuk send text ke room
itu hanya akan mengirim text 1x saja.
cara untuk bisa mengirim lebh dari 1x dalam 1x klik, silakan tambahkan code'a menjadi seperti ini
Code:
Private Sub Command1_Click()
for i = 0 to 10
For k = 1 To listnick.ListItems.Count
pluuuud (k)
Next k
next i
End Sub

kita lihat bagian function pluuuud
Code:
Public Function pluuuud(ByVal xxt As Variant)
            Rsize = Len(RoomName)
            Rname = AsciiToHex(RoomName)
            Tisi = AsciiToHex(Text1)
            Tsize = Len(Text1)
            Uname = listnick.ListItems.Item(xxt).Text
            Usize = Len(Uname)
            B = Usize + 40
            B = B + Rsize
            B = B + Tsize
            Psize = Hex(B)
            a = Len(Psize)
            If a < 2 Then Psize = "0" & Psize
            Usize = Hex(Usize)
            a = Len(Usize)
            If a < 2 Then Usize = "0" & Usize
            Rsize = Hex(Rsize)
            a = Len(Rsize)
            If a < 2 Then Rsize = "0" & Rsize
            Tsize = Hex(Tsize)
            a = Len(Tsize)
            If a < 2 Then Tsize = "0" & Tsize
            Uname = AsciiToHex(Uname)
            Coder = "02 01 F4 00 0B 00 00 00 " & Psize & " 00 08 00 00 00 " & Tsize & " " & Tisi & " 00 06 00 00 00 02 00 01 00 04 00 00 00 " & Rsize & " " & Rname & " 00 03 00 00 00 01 03 00 02 00 00 00 " & Usize & " " & Uname & " 00 01 00 00 00 01 01"
            DatOut = HexToAscii(Coder)
            SendData (xxt)
End Function

jelas disana akan mengirim text yang ada di Text1, yang arti'a, text yang dikirim akan sama smua, dan jika terus mengirim text yang sama, maka akan tidak bsa mengirim text selama beberapa saat, untuk itu, kita harus menambahkan sedikit text dibelakang (suffix), sehingga text yang dikirim tidak sama.

cara'a , buat lah 1 textbox bernama suffix isikan text'a dengan "0"
kemudian, pada fungsi pluuud, tambahkan
Code:
suffix = suffix + 1
dan pada bagian
Code:
Tisi = AsciiToHex(Text1)
            Tsize = Len(Text1)
kita ubah Text1 menjadi Text1 & suffix

dengan cara seperti itu, maka send text akan berbeda.

demikianlah sedikit penjelasan dari saya.
untuk source'a silakan donlod di
http://plunder.com/134c5403a9


RE: [Tutorial] mig33Flood - nrik - 08-22-2010 04:38 PM

thanks banget um In Love

pertamanya gan Very Happy hahahahah