Lanjut Ke Source Listuser Room dan Kickuser Room..
Buka Lagi project Kalian, Tambahin 2 CommandButtom, 2 Textbox Dan 1 Listbox.
Kasih Nama Commandbuttomnya CmdList dan CmdKick kemudian Textbox kasih nama Target , Total dan Listbox kasih nama Listuser..
Kalo sudah tinggal Masukin Coding nya!!!!
Yang ne Masukin Di CmdList
Sck.SendData (0), SpyRoom(Room) << Buat Ngelist Yang ada didalam Room
next.. masukin coding di bawah, letakin di DataArrival mu !!!
'============================================
If A = "0202C400" Then
Listuser.Clear
Dim user() As String
Dim XX
user() = Split(Mid$(Datin, 16, Unhex(A2H(Mid$(Datin, 11, 4)))), ";")
For XX = 0 To UBound(user())
If XX > 25 Then Exit For ' HANYA UNTUK ROM USER 25, SILAHKAN Ubah SENDIRI
Listuser.AddItem user(XX)
total.text = Listuser.ListCount - 1
Next XX
End If
'==================================================
lanjut ke Coding Kick roomnya
Sck.SendData (0), KickUser(Room, Target) <<buat ngekick User yang Ada di room
tinggal beberapa coding lagi. :D
Target.text = Listuser.text
yang ini letakin di listuser, klik 2x pada listuser trus masukin coding itu.. gunanya buat mindah user yang akan kalian kick ke target.text.
Selesai Source Listuser Room dan Kickuser Room (Vb6).
Selamat Mencoba Semoga , semoga kalian mengerti apa yang kalian pelajari ini :D :D..
Tunggu Aja Source2 Selanjutnya :-P
