发信人: zhourutian(三行仔)
整理人: winsy(2003-03-14 10:22:53), 站内信件
|
用WINSOCK控件编写聊天程序
在工具箱中增加Winsock控件，选中
“Microsoft Winsock Control 6.0”
1、设计Tcp服务器程序
在窗体中加入一个Winsock控件，取名Winsockfwq
Txtfs （发送）文本框
Txtjs （接收）文本框
Cmdexit （退出）按钮
Private Sub Cmdexit_click()
End
End Snd
Private Sub Form_Load()
Txtfs.Visible=False
Txtjs.Visible=False
Winsockfwq.LocalPort=1001
Winsockfwq.Listen
End Sub
Private Sub Txtfs_Change()
Winsockfwq.sendData Txtfs.Text
End Sub
Private Sub Winsockfwq_Close()
Winsockfwq.Close
End
End Sub
Private Sub Winsockfwq_ConnectionRequest(Byvalrequestld As Long)
Txtfs.Visible=True
Txtjs.Visible=True
If Winsockfwq.State<>Sckclosed Then Winsockfwq.close
Winsockfwq.Acceptrequested
End Sub
Private Sub Winsockfwq_DataArrival(ByvalbytesTotal As Long)
Dim tmPstr As String
Winsockfwq.GetData tmPstr
Txtjs.Text=tmPstr
End Sub
2、设计Tcp客户端程序
在窗体中加入Winsock，取名为Winsockkhd
Txtzjm （主机名）文本框
Txtfs （发送）文本框
Txtjs （接收）文本框
Cmdexit （退出）按钮
Cmdlj （连接）按钮
Private Sub Cmdlj_Click()
Winsockkhd.Connect
End Sub
Private Sub Cmdexit_Click()
End
End Sub
Private Sub Form_Load()
Txtfs.Visble=False
Txtjs.Visible=False
Winsockkhd.RemotePort=1001
Winsockkhd.RemoteHost=”90.0.0.50”
End Sub
Private Sub Txtzjm_Change()
Winsockkhd.RemoteHost=Txtzjm.Text
End Sub
Private Sub Txtfs_Change()
Winsockkhd.SendData Txtfs.Text
End Sub
Private Sub Winsockkhd_Close()
Winsockkhd.Close
End
End Sub
Private Sub Winsockkhd_DataArrval(ByvalbytesTotal As Long)
Dim tmPstr As String
Winsockkhd.GetData tmPstr
Txtjs.Text=tmPstr
End Sub
|
|