Program Chatting ini saya dapat dari dosen saya di perkulihan. untuk melihatnya silahkan download programnya
Jika anda ingin membuat programnya sendiri. berikut ini listing programnya :
Server :
Option Explicit
Private Sub cmdSend_Click()
Winsock1.SendData txtChat.Text
DoEvents
txtMain.Text = txtMain.Text & vbCrLf
& txtChat.Text
txtChat.Text = ""
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 11111
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'reset the
socket, and accept the new connection
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal
bytesTotal As Long)
Dim strData
As String
'get the data and
display it in the textbox
Winsock1.GetData strData
txtMain.Text = txtMain.Text & vbCrLf
& strData
txtMain.SelStart = Len(txtMain.Text)
End Sub
Kien :
Option Explicit
Private Sub Form_Load()
'set up the
Winsock1 to connect to the local computer
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 11111
Winsock1.Connect
End Sub
Private Sub cmdSend_Click()
'send the data
thats in the text box and
'clear it to
prepare for the next chat message
Winsock1.SendData txtChat.Text
DoEvents
txtMain.Text = txtMain.Text & vbCrLf
& txtChat.Text
txtChat.Text = ""
End Sub
Private Sub Winsock1_Connect()
'we are
connected!
MsgBox "Connected"
End Sub
Private Sub Winsock1_DataArrival(ByVal
bytesTotal As Long)
Dim strData
As String
' get the data
from the socket
Winsock1.GetData strData
' display it in
the textbox
txtMain.Text = txtMain.Text & vbCrLf
& strData
' scroll the box
down
txtMain.SelStart = Len(txtMain.Text)
End Sub
Private Sub Winsock1_Error(ByVal
Number As Integer,
Description As String,
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal
HelpContext As Long,
CancelDisplay As Boolean)
' an error has
occured somewhere, so let the user know
MsgBox "Error:
" & Description
' close the
socket, ready to go again
Winsock1.Close
End Sub
