vb 网络编程

来源：百度知道 编辑：UC知道 时间：2024/05/17 20:27:43
我 写了一个cs模式的 聊天室
我想 如何 一运行服务器程序 就可以在列表看到 在内网内 还有没有运行
次服务器的
呵呵 就象 局域网游戏 的红色警戒 啊cs什么的可以看到 有没有人建立服务器
该有什么方法呢
呵呵 我的mail:god-given-hai@163.com

Dim S As String
Dim ss As String
Dim i As Integer
Dim recUser As String
Dim senUser As String
Dim senIP As String

sckServer(index).GetData S '接收信息到 s

If userState(index) = 0 Then '如果是刚进来，winsock尚未使用的话
senUser = Trim(S)
senIP = sckServer(index).RemoteHostIP

If InStr(1, senUser, "*") = 1 Then
senUser = Right(senUser, Len(senUser) - 1)
Else
If checkUserName(senUser) = 1 Then
Call SendToOne("SystemOrder:姓名重复，客户端退出重进！", index)

Exit Sub
End If
If checkUserIP(senIP) = 1 Then
Call SendToOne("SystemOrder:IP重复，客户端退出重进！", index)

Exit Sub
End If
End If
S = "～～～～～～欢迎 " & senUser & " 进入