主题：[分享]发个socket简单通讯的示例，用于远程查看客户端信息和控制客户端登陆。

lin_hailun  老师，我也想做socket通讯。不过还是一点思路也没有。

窗口打开 窗口表的select代码：

select * from {VIP基本信息} where 归属门店 IS NULL

此主题相关图片如下：窗口表的代码.jpg

按钮搜索的代码很简单：

此主题相关图片如下：搜索.jpg

Dim Filter As String = " (归属门店 In (Select fchrStoreCode from {VIP管理人员对应门店} where fchrLandName= '" & user.name & "' or   fchrStoreCode = '" & user.name & "'))"

With e.Form.Controls("当前积分小于等于")
    If .Value IsNot Nothing Then
        Filter+ = " and 当前积分 <= '" & .Value & "' "
    End If
End With

If Filter > "" Then
DataTables("VIP基本信息_VIP基本信息").LoadFilter = filter
DataTables("VIP基本信息_VIP基本信息").Load()

大概能怎么写呢。。。

恩恩。甜老师。那我第一步要怎么做呢？思路大概知道，就是不知道该怎么做。。

比如

怎么建一个服务器端。。。

服务器端怎么和客户端相连接。。。