Program Chat (windows API)

   Pada lembar kerja program Visual Basic Buatlah Form Seperti Gambar

Pengaturan Propertinya

    -          Untuk ip yang di tuju (name=txtip)

    -          Untuk Nama Pengirim (name=txtnama)

    -          Untuk Pesan yang dikirim (name=txtpesan)

    -          Tombol kirim (name=cmdkirim, caption=Kirim)

    -          Tombol Batal (name=cmdbatal, caption=Batal)

    -          Tombol Keluar (name=cmdkeluar, caption=Keluar)

    -          Untuk Chat History (name=txtchat)

Setelah mengatur properti tersebut kemudian kita menambahkan komponen yang disebut dengan WINSOCK yang terdapat pada toolbox seperti pada gambar di bawah(dilingkari merah) :apabila icon tersebet belum muncul kita harus menambahkan komponen tersebuit dengan cara klick kanan pada toolbox kemudian pilih components kemudian akan muncul jendela seperti di gambar :Pada jendela tersebut pilih Microsoft Winsock Control 6.0, kemudian OK. Maka komponen tersebut akan muncul di toolbox.Setelah itu masukan komponen winsock ke dalam for dengan propertinya (name=winsock).

2.       Coding Programnya :

-          Kode Untuk Tombol Batal Private Sub cmdbatal_Click()                                 Call Form_Load                                 txtip.SetFocus End Sub -          Kode Untuk Tombol Keluar Private Sub cmdkeluar_Click()                                  End End Sub -          Kode Untuk Tombol Kirim Private Sub cmdkirim_Click()                                 If Trim(txtip.Text) = "" Then                                                 MsgBox "IP Harus Di isi", vbCritical + vbOKOnly                                                 txtip.SetFocus                                                 Exit Sub                                 End If                                 If Trim(txtnama.Text) = "" Then                                                  MsgBox "Nama Pengirim Masih Kosong", vbCritical + vbOKOnly                                                 txtnama.SetFocus                                                 Exit Sub                                 End If                 Winsock.RemoteHost = Trim(txtip.Text)                 Winsock.SendData txtnama.Text & txtpesan                 txtpesan.Text = ""                 txtpesan.SetFocus End Sub -          Kode Pada Saat Form Di Load(dijalankan) Private Sub Form_Load()                 Winsock.RemoteHost = Trim(txtip.Text)                 Winsock.RemotePort = 1001                 Winsock.Bind 1001 End Sub -          Kode Pada saat Form di Unload Private Sub Form_Unload(Cancel As Integer)                 Winsock.Close End Sub -          Kode untuk menerima pesan Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)                 Dim StrData As String                 Winsock.GetData StrData txtchat.Text = Format(Now, "hh:mm:ss") & ") " & StrData & Chr(13) & Chr(10) & pesan.Text End Sub

untuk lebih lengkapnya download aja disini
semoga bermanfaat sobbb,,,,