منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف اجلب عنوان ip كما بالصورة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم
اريد جلب عنوان موقعي الايبي
كما هو بالصورة ؟
ممكن رابط الموقع هذا حتى اجهز مثال؟
عموما تستعين بعد الله بـ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 
شكرا لكم جميعا جعله الله في صالح اعمالكم
(27-08-17, 01:14 AM)أبو نوره كتب : [ -> ]مرحبا اخى

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

معقولة فيه موقع يقدم الاي بي هكذا بسهولة؟Smile
مرحبا اخى سعود

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