static string GetIP()
{
    Uri             uri = new Uri("http://www.ikaka.com/ip/index.asp");
    System.Net.HttpWebRequest  req = (System.Net.HttpWebRequest)System.Net.WebRequest.Create(uri);
    req.Method          = "POST";
    req.ContentType     = "application/x-www-form-urlencoded";
    req.ContentLength   = 0;
    req.CookieContainer = new System.Net.CookieContainer();
    req.GetRequestStream().Write(new byte [0], 0, 0);
    System.Net.HttpWebResponse res = (System.Net.HttpWebResponse)(req.GetResponse());
    StreamReader    rs  = new StreamReader(res.GetResponseStream(), System.Text.Encoding.GetEncoding("GB18030"));
    string          s   = rs.ReadToEnd();
    rs.Close();
    req.Abort();
    res.Close();
    System.Text.RegularExpressions.Match m = System.Text.RegularExpressions.Regex.Match(s, @"IP：\[(?<IP>[0-9\.]*)\]");
    if (m.Success) return m.Groups["IP"].Value;
    return string.Empty;
}

Function GetIP() As String 
        Dim Cookies As Net.CookieContainer = Nothing 
        Dim httpurl As String = "http://www.ikaka.com/ip/index.asp" 
        Dim code As String = "GB2312" 
        Dim Url As New System.Uri(httpurl) 
        Dim SomeByte() As Byte = System.Text.Encoding.ASCII.GetBytes("") 
        Dim req As Net.HttpWebRequest = CType(Net.WebRequest.Create(Url), Net.HttpWebRequest) 
        req.Method = "POST" 
        req.ContentType = "application/x-www-form-urlencoded" 
        req.ContentLength = 0 
 
        If Not (Cookies Is Nothing) Then 
            req.CookieContainer = Cookies 
        Else 
            req.CookieContainer = New Net.CookieContainer 
            Cookies = req.CookieContainer 
        End If 
        req.GetRequestStream.Write(SomeByte, 0, SomeByte.Length) 
        Dim res As Net.HttpWebResponse = CType(req.GetResponse, Net.HttpWebResponse) 
        Dim ReadStream As IO.StreamReader = New IO.StreamReader(res.GetResponseStream, System.Text.Encoding.GetEncoding(code)) 
        Dim strLine As String 
        Dim getstr As String 
        Do 
            strLine = ReadStream.ReadLine 
            getstr &= strLine & vbCrLf 
        Loop Until strLine Is Nothing 
        ReadStream.Close() 
        req.Abort() 
        res.Close() 
        Dim reg As New System.Text.RegularExpressions.Regex("<span class=""en"">IP：\[(?<ipstr>.*)?\]\s*</span>", System.Text.RegularExpressions.RegexOptions.IgnoreCase) 
        Dim m As System.Text.RegularExpressions.Match 
        m = reg.Match(getstr) 
        If m.Success Then Return m.Groups("ipstr").Value.ToString 
    End Function