معرفة external Ip - نسخة قابلة للطباعة

PHP كود :

Imports System
Imports System.Text
Imports System.Text.RegularExpressions

Public Sub GetExternalIP()
        Dim whatIsMyIp As String = "http://whatismyip.com"
        Dim getIpRegex As String = "(?<=<TITLE>.*)\d*\.\d*\.\d*\.\d*(?=</TITLE>)"
        Dim wc As WebClient = New WebClient
        Dim utf8 As UTF8Encoding = New UTF8Encoding
        Dim requestHtml As String = ""
        Dim externalIp As IPAddress = Nothing

        requestHtml = utf8.GetString(wc.DownloadData(whatIsMyIp))
        
        Dim r As Regex = New Regex(getIpRegex)
        Dim m As Match = r.Match(requestHtml)
        If (m.Success) Then
            externalIp = IPAddress.Parse(m.Value)
            MessageBox.Show(externalIp.ToString)
        End If
End Sub

PHP كود :

Dim oWebClient As New WebClient()
        Dim sUrl As String = "http://www.prodigyproductionsllc.com/yourip.php"

        Try
            Dim sMyIp As String = oWebClient.DownloadString(sUrl)
            Console.WriteLine("My Ip : " & sMyIp)
            MsgBox("My Ip : " & sMyIp)
        Catch Ex As Exception
            MsgBox(Ex.Message)

        End Try

    End Sub

لايمكن معرفة ال Public ip او External ip دون ارسال طلب والاغلب هو باستعمال البروتوكول Tcp/ip او UPnP

ليش ؟؟

بعطيك مثال ..

لما تكتب في شريط العنون في المتصفح www.google.com وتضغط GO مالذي سيحدث !

سيقوم جهازك بارسال Packet الى google لكي يطلب فيه الHtml الخاص بصفحة البحث الخاصة بقوقل

الPacket يكون بهذه الطريقة :-

[صورة مرفقة: 11-ip-packet.jpg]

لاحظ خانة ال Source IP Address هذه الخانة تملأ بالPublic ip الخاص بك .. عشان يعرف قوقل عنوانك لكي يرسل لك الhtml تبع صفحة البحث

فكل ماتفعله تلك المواقع مثل whatsmyip هو تحليل ال Packet المرسل اليها لإستخراج الSource IP Address

يعني باستعمال tcp/ip protocol لابد من ارسال طلب لأحد المواقع ، او الخدمات

تقدر تستعمل خدمة الويب لجلب public ip من هنا

--

اما باستعمال الUpnP فيمكنك جلب الايبي من دون طلب مباشر .. بل من خلال دالة

في class خاصة بUpnp (موجودة على النت ابحث عنها) . ستمكنك من فتح بورت في الروتر او جلب الايبي

ولكن المشكلة في Upnp انه لاتدعمه بعض الرواتر او يكون غير مفعل من اعدادات الروتر

--

طبعا في اكثر من طريقة واكثر من بروتوكول يفعل ذلك ، ولكن هذي الطريقتين مشهورتين جدا

ولكن للأسف المنتديات العربية خالية من كيفية الاستفادة من هذه البروتوكولات وتوظيفها