Join Room , Leave Room, Send text mig33 ( vb6 )

Kamis, 24 November 2011
Ok.. lanjutan dari sample Login mig33 yang kemaren ,klo belum tau yang kemaren cek di sini
Sekarang lanjut ke Join room, Leave room dan send text.. tapi sekarang aQ ga akan upload sample nya lagi . hahahaha...

Pertama buka project yang kemaren trus double click module “Function” atau apa lah namanya :D
kemudian tambahkan function di bawah ini :
__________________________________________________________________________________

__________________________________________________________________________________
Leave Room :
Public Function LeaveRoom(Room As String)
LeaveRoom = H2A(“0202C00017000000″ & DecToHex(Len(Room) + 6) & “0001000000″ & DecToHex(Len(Room)) & A2H(Room))
End Function
NBSebaik nya jangan di copas buat masukin coding ke project,akan lebih baik di tulis manual,supaya ga terjadi error :P
__________________________________________________________________________________
__________________________________________________________________________________
Join Room :

Public Function JoinRoom(Room As String)
JoinRoom = H2A(“0202BF000F000000″ & DecToHex(Len(Room) + 6) & “0001000000″ & DecToHex(Len(Room)) & A2H(Room))
End Function
__________________________________________________________________________________
__________________________________________________________________________________
Sent Text Room :

Public Function sendtextroom(user As String, kata As String, Room As String)
sendtextroom = H2A(“0201F4000B000000″ & DecToHex(Len(user) + 40 + Len(Room) + Len(kata)) & “0008000000″ & DecToHex(Len(kata)) & A2H(kata) & “00060000000200010004000000″ & DecToHex(Len(Room)) & A2H(Room) & “000300000001030002000000″ & DecToHex(Len(user)) & A2H(user) & “00010000000101″ )
End Function
__________________________________________________________________________________
__________________________________________________________________________________
coding ini juga yg digunakan klo mo bikin Flood  , tapi untungnya Aq bukan flooder . :P
klo udah balik lagi ke Form nya.. jangan lupa di save dulu
Kemudian Bikin 1 command button dan kasih nama = CmdEnter
kemudian bikin lagi 1 command Button dan kasih nama = CmdLeave
Kemudian bikin 1 textbox kasih nama = Room


klo udah double click CmdEnter tadi trus pastekan ini :
Warik.SendData (0), JoinRoom(Room)


double click CmdLeave tambahkan ini :
Warik.SendData (0), LeaveRoom(Room)
klo udah sekarang coba login trus tulis room nya di textbox “Room” yg tadi dibikin, bisa masuk room apa gga :P ,
Klo udah berhasil kita lanjut ke Send Text room nya..
Tambahkan lagi 1 command button kasih nama = CmdSend
Tambahkan 1 txtbok trus kasih nama = TxtSend


Double Click CmdSend tambahkan ini :
Warik.SendData (0), sendtextroom(txtUname, TxtSend, Room)

Gampang kan :D...
terang aja gampang .. orang cuma copas dowang  :D...
wkwkwkwkwkwkw... :D ...
Qlo udah coba Run project nya trus login coba masuk rum, trus coba send text
Goood Luck :P semoga berguna ….


Terima kasih sudah membaca Join Room , Leave Room, Send text mig33 ( vb6 ) dan sempatkan untuk membaca yang lainnya broth..
TEMPLATE DESIGN BY
m-template - by: bagas96

0 komentar:

copy smiley kode

Posting Komentar

I orange fress script kang bagas96 copyright 2011
diteri.mig33.us