发信人: 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
|
|