[转]VB实现自动取得服务器IP并连接服务器(利用UDP广播)

最近在用ＶＢ写多用户类型的远程控制，转个文章做思路……

转自： http://www.ibiancheng.cn/Article/VBNetArticle/200804/123.html

普通的讲解WINSOCK控件等网络控件的用法的资料中，无论是使用TCP还是UDP，客户端程序连接服务端程序时，无一例外的要指定IP地址(或机器名)和端口号，那么，在端口已知而服务端程序所在机器地址或名称未知的情况下，怎样实现客户端程序自动取得服务端IP并建立连接呢，笔者在实际编程中遇到了这种情况，并使用以下方法解决了这个问题。
这种方法就是服务器端添加两个Winsock控件，一个作为服务端，一个以UDP来广播本机IP，客户端也用UDP方式取得服务器IP，然后再将客户端改为TCP方式来向服务器发起连接。完整代码如下：

' 服务器端程序加代码(程序出处www.ibiancheng.cn)
' 新建一个工程，然后在窗体上放两个个Winsock控件，名为Winsock1和Winsock2
' 一个定时器控件Timer1，Interval属性设置为1000（也可以自己设置）
' ---------------------向整个网络广播本机IP---------------------------
Dim MeIp  As  String     ' 储存本机IP
Dim netmask  As  String     ' 储存本机广播地址
Dim maxconnext  As  Long
Dim nowconnext()  As  Boolean
' ---------------------------------------------------------
Private  Sub Form_Load()
    Winsock1.Protocol = sckUDPProtocol
    Winsock1.RemotePort =  9400    ' 绑顶远程端口号9400
    MeIp = Winsock1.LocalIP      ' 获得本机IP地址
    netmask =  " 127.0.0.255 "      ' 为本机广播地址，广播地址请按自己的IP计算
     ' -----------------------------------------
    Winsock2( 0).LocalPort =  1001
    Winsock2( 0).Listen
End Sub
' -----------------------开始向整个网络广播本机IP--------------------------
Private  Sub Timer1_Timer()        ' 向本网广播地址发送信息
Winsock1.RemoteHost = netmask    ' 向本网广播地址发送信息，内容是本机的IP地址
Winsock1.SendData MeIp
End Sub
Private  Sub Winsock2_Close(Index  As  Integer)
     Winsock2(Index).Close
     Winsock2(Index).LocalPort =  1001
     Winsock2(Index).Listen
End Sub
' 服务器端收到客户端的连接请求，这里的代码可能有点问题，请自己重新写或联系我
Private  Sub Winsock2_ConnectionRequest(Index  As  Integer, ByVal requestID  As  Long)
On  Error  Resume  Next
Dim i  As  Long
If Index =  0  Then  ' 主Winsock——Winsock(0)发生消息
    i =  1
     While i <= maxconnext  And nowconnext(i)  ' 在以前的Winsock中找到空闲的Winsock
        i = i +  1
        DoEvents
     Wend
     If i <= maxconnext  Then  ' 在当前装载的Socket中发现有用户已经离开
        Winsock2(i).LocalPort =  0  ' 使用现成的Socket
        Winsock2(i).Accept requestID  ' 接收
        nowconnext(i) =  True  ' Winsock（i）被占用
     Else  ' 在当前装载的Socket中没发现有用户离开
        maxconnext = maxconnext +  1  ' 当前接收端口增加
        Load Winsock2(maxconnext)  ' 生成新的’ Winsock
        Winsock2(maxconnext).LocalPort =  0
        Winsock2(maxconnext).Accept requestID  ' 接收
         ReDim Preserve nowconnext(maxconnext +  1)
        nowconnext(maxconnext) =  True
     End  If
End  If
End Sub
' -------------------------------------------------------
' 客户端程序(程序出处www.ibiancheng.cn)
' 新建一个工程，然后在窗体上放一个Winsock控件，名为Winsock1
' -----------------------------
Dim CanSend  As  String      ' 保存服务端IP
' ----------------------------
Private  Sub Form_Load()
' --------------------------------------
Winsock1.Protocol = sckUDPProtocol    ' 初始化连接方式
Winsock1.Bind  " 9400 "  ' 从9400端口侦听
' ----------------------------------------
Winsock2.RemoteHost =  " 1001 "
End Sub
' -----------------------------------------------------------
Private  Sub Winsock1_DataArrival(ByVal bytesTotal  As  Long)
    DoEvents
     Dim DataArrival  As  String
     Dim Cip          As  String
    Winsock1.GetData DataArrival
    CanSend = DataArrival      ' 取得服务端IP
    Winsock1.Close       ' 断开连接
    Winsock1.LocalPort =  0  ' 改端口号为0
    Winsock1.Protocol = sckTCPProtocol     '  改变连接方式
    Winsock1.RemotePort =  1001            ' 设置服务器端口号
    Winsock1.RemoteHost = CanSend         ' 请求连接服务器
    Winsock1.Connect
End Sub

 

主要用到的方法就是UDP广播

本文结束，原理粗浅望能起抛砖引玉之用。

转载于:https://www.cnblogs.com/findw/archive/2012/10/12/2721072.html