Sub GetHTMLInfo()
        Dim url As String = "http://www.baidu.com" ' 网页地址
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
        Dim httpURL As New System.Uri(url)
        httpReq = CType(Net.HttpWebRequest.Create(httpURL), Net.HttpWebRequest)
        httpReq.Method = "GET"
        httpResp = CType(httpReq.GetResponse(), Net.HttpWebResponse)
        httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与Internet资源建立持久连接。
        Dim reader As IO.StreamReader = New IO.StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding("GB2312"))    '用GB2312字符
        Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码 
        Dim myip As String = ""
        Dim myPort = ""
        If respHTML <> "" Then
            '对获取到的网页代码进行处理
            'myip = strCut(respHTML, "", ":", 2) '得到ip
            'myPort = strCut(respHTML, ":", "_", 2) '得到端口
            'If myip <> "" And myPort <> "" Then
            '    If tstbip.Text <> myip Or tstbport.Text <> myPort Or MySktCls.IsConnected = False Then
            '        tstbip.Text = myip
            '        tstbport.Text = myPort

            '        ServerPort = Val(CInt(WinApiM.GetMySet("ServerPort", tstbport.Text))) '写入注册表
            '        ServerIP = WinApiM.GetMySet("serverip", tstbip.Text)

            '        MySktCls.ConnectToServer(tstbip.Text, tstbport.Text) '如果发现端口或ip不对就马上重新连接If MySktCls.IsConnected = False Then
            '        ' ConnectToServer(tstbip.Text, CInt(Val(tstbport.Text)))

            '    End If
            'End If
            '对获取到的网页代码进行处理END
            url = ""
            myip = ""
            myPort = ""
        End If
    End Sub