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

سلام عليكم

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

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

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

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

e-coder

سعود

أبو نوره

e-coder

سعود

أبو نوره