[سعود]

ممكن رابط الموقع هذا حتى اجهز مثال؟
عموما تستعين بعد الله بـRegex Or HtmlAgilityPack

---

طيب
من موقع
http://whatismyipaddress.com/ip-lookup
هذا المثال

كود :

Imports System.Text
Public Class Form1
   Dim wb As WebBrowser
   Private Sub wb_comp(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
       Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(wb.DocumentText)
       TextBox1.Text = doc.DocumentNode.SelectSingleNode("//input[@name='LOOKUPADDRESS']").Attributes("value").Value
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       '<input type="TEXT" name="LOOKUPADDRESS" value="176.44.209.15" size="18" maxlength="40" style="font-size:18px;">
       Dim url As String = "http://whatismyipaddress.com/ip-lookup"
       wb = New WebBrowser
       wb.ScriptErrorsSuppressed = True
       wb.Navigate(url)
       AddHandler wb.DocumentCompleted, AddressOf wb_comp
   End Sub
End Class

المثال مرفق