精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>〓〓高手出招: 玩转VB〓〓>>用WINSOCK控件编写聊天程序

主题:用WINSOCK控件编写聊天程序
发信人: 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

[关闭][返回]