[e-coder]

سلام عليكم

اريد جلب عنوان موقعي الايبي

كما هو بالصورة ؟

[سعود]

ممكن رابط الموقع هذا حتى اجهز مثال؟
عموما تستعين بعد الله بـ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

المثال مرفق

[أبو نوره]

مرحبا اخى

PHP كود :

Dim ip As String = New Net.WebClient().DownloadString("http://plain-text-ip.com/").ToString 


[e-coder]

شكرا لكم جميعا جعله الله في صالح اعمالكم

[سعود]

مرحبا اخى

PHP كود :

Dim ip As String = New Net.WebClient().DownloadString("http://plain-text-ip.com/").ToString 


معقولة فيه موقع يقدم الاي بي هكذا بسهولة؟

[أبو نوره]

مرحبا اخى سعود

فيه مواقع كثيره لكن لم اهتم بالاحتفاظ بروابطها كلها
مثل هذا ايضا http://www.icanhazip.com