首先,新建一工程,名为Server,新建一个窗体,Name为Server,在窗体中加入一个winsock控件,Name设为sckServer,协议设为默认的TCP/IP协议。
接下来我们回来Server窗体模块中,添加如下代码:
->PrivateSubform_Load()
WithMe
.sckServer.LocalPort=88917'本地端口(呵呵!我的生日!)
.sckServer.Listen'开始监听
EndWith
EndSub
'接受客户端的连接请求。
PrivateSubsckServer_ConnectionRequest(ByValrequestIDAsLong)
WithMe
If.sckServer.StatesckClosedThen.sckServer.Close
.sckServer.Accept(requestID)
EndWith
EndSub->
下面我们来建立客户端程序:新建一个工程,名为Client,把窗体名为C...[ 查看全文 ]