c/s模式消息响应方法

shortppsy 2005-01-11 07:38:33
首先不得用b/s
客户端发送2个字符串到服务端
服务端应答后,自动在该服务端的机器上添加access数据
然后返回
哪位有做过这样的,给个例子
谢谢了
...全文
72 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
tztz520 2005-01-11
  • 打赏
  • 举报
回复
'服务器端.

Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemotePort = 10301
Winsock1.Bind 10300
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

Winsock1.GetData strData
Debug.Print strData'你在这里处理收到的信息
End Sub




'客户端:
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemotePort = 10300
Winsock1.Bind 10301
Winsock1.RemoteHost = "服务器IP"
Winsock1.SendData "发送的信息"
End Sub
tztz520 2005-01-11
  • 打赏
  • 举报
回复
用winsock控件做,UDP协议就可以了

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧