latihan membuat aplikasi jabber menggunakan visual basic 6

sekarang ini saya ingin share teknik membuat aplikasi jabber sederhana menggunakan vb6. Mengapa vb6 karena bahasa pemrograman ini sangat saya gemari dan sangat mudah dipelajari. tentunya article ini tidak diperuntukan bagi semua member, tapi hanya untuk member yang paham tentang programming atau member yang ingin belajar tentang socket programming
singkat cerita silahkan gunakan vb 6 kamu kemudian ikuti spesifikasi teknis di bawah ini :

bahan yang dibutuhkan adalah 1 buah socket.

detail task :
-buat sebuah form baru
-beri 3 buah label, beri judul "username" "password" "resource"
-beri 3 buah text box tempatkan tepat pada sisi samping masing-masing label di atas
-kemudian beri 1 tombol beri nama misal "login"
-kemudian dari bagian components check out Microsoft Winsock Control 6.0.
-bila sudah selesai akan tampak seperti gambar di bawah ini

-selanjutnya double click tombol login lalu masukkan routine code dibawah ini :
On Error Resume Next
Winsock1.Close
Winsock1.RemoteHost = "openfire.nimbuzz.com"
Winsock1.RemotePort = 5222
Winsock1.Connect
-selanjutnya aktikan event "Winsock1_Connect" dan "Winsock1_DataArrival" atau copas routine code dibawah ini dengan catatan nama winsock tidak berubah yaitu tetap default winsock1

Private Sub Winsock1_Connect()
Winsock1.SendData "<stream:stream to='nimbuzz.com' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'>"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ambil As String
Winsock1.GetData ambil
ambil = Replace(ambil, """", "'")
If InStr(ambil, "<stream:features><starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/><mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><mechanism>PLAIN</mechanism><mechanism>DIGEST-MD5</mechanism></mechanisms><register xmlns='http://jabber.org/features/iq-register'/></stream:features>") Then
If Winsock1.State = 7 Then
Winsock1.SendData "<iq type='set' xml:lang='en' id='NLgn' to='nimbuzz.com'><query xmlns='jabber:iq:auth'><username>" & Text1.Text & "</username><password>" & Text2.Text & "</password><resource>" & Text3.Text & "</resource></query></iq>"
End If
DoEvents
End If

If InStr(ambil, "<iq type='result' from='nimbuzz.com' xml:lang='en' id='NLgn'/>") Then
MsgBox "login sukses"
End If
If InStr(ambil, "<iq type='error' from='nimbuzz.com' xml:lang='en' id='NLgn'><query xmlns='jabber:iq:auth'><username>" & Text1.Text & "</username><password>" & Text2.Text & "</password><resource>" & Text3.Text & "</resource></query><error code='401' type='auth'><not-authorized xmlns='urn:ietf:params:xml:ns:xmpp-stanzas'/></error></iq>") Then
MsgBox "login gagal"
End If

End Sub


ok ^_^ skrng silahkan coba running dengan pencet tombol F5, kemudian masukkan usernama password dan resource kemudian click login :D wow bila account benar akan muncul message "login sukses" dan bila account salah maka akan muncul message "login gagal"