تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة external Ip
#1
السلام عليكم ...

اريد كود لمعرفة اكسترنال اي بي وليس Local 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.SuccessThen
            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 


ارجوا وضعه في منتدى الاكواد لافادة الاعضاء Smile
الرد }}}}
تم الشكر بواسطة: kslawy , @@أبورائد@@ , sooriaty03 , mohammed moh
#2
انت ممكن تكتب كود اظهار الاي بي في صفحة سواء php or visual basic وترفع الصفحة على موقع وتقرا الصفحة بطريقة بسيطة لان الرابط ممكن يغلق او يكون عليه زحمة.
http://saud.somee.com/ip.aspx
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: Mr.ILI , @@أبورائد@@ , sooriaty03 , mohammed moh
#3
اخواني هل يمكن بدون استخدام موقع على الانترنت ... برمجيا ومن دون الاعتماد على موقع على الانترنت
الرد }}}}
تم الشكر بواسطة:
#4
لايمكن معرفة ال Public ip او External ip دون ارسال طلب والاغلب هو باستعمال البروتوكول Tcp/ip او UPnP

ليش ؟؟

بعطيك مثال ..

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

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

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



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

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

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

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

--

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

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

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


--

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

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


الرد }}}}
تم الشكر بواسطة: hoob computer , sooriaty03 , mohammed moh


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب كود يقوم بعملية طرح يوم من التاريخ الحالي (( معرفة تاريخ الامس )) abo.alaa315 2 76 01-12-17, 03:10 PM
آخر رد: alsouf
Photo [VB.NET] معرفة من لم يدفع في نظام الفواتير الشهرية ( مهم جدا) Rabeea Qbaha 13 519 02-11-17, 06:24 PM
آخر رد: محمود صالح
  كيفية معرفة رقم تم حذفه وسط ارقام متسلسلة تناسيم 11 414 21-08-17, 11:38 PM
آخر رد: محمود بكرى
  معرفة أسماء الأعمدة فى الجدول كرم ابوهشام 2 122 16-08-17, 02:03 AM
آخر رد: سعود الشامان
  [VB.NET] طلب كود معرفة TextBox النشطة waelalmsry75 4 196 08-08-17, 02:25 AM
آخر رد: waelalmsry75
  [VB.NET] طلب كود معرفة موضع مؤشر الماوس داخل التيكست بوكس waelalmsry75 7 307 07-08-17, 02:46 AM
آخر رد: waelalmsry75
  [VB.NET] كيفة معرفة اذا كان في فراغ في Textbox e-coder 3 167 04-08-17, 12:19 AM
آخر رد: سعود
  معرفة اذا كان الايميل مفتوح او لا هاوي1995 0 148 08-06-17, 09:16 AM
آخر رد: هاوي1995
  [سؤال] كيف يتم معرفة رقم ID السجل الجديد -- تم الوصول للحل اليوم مبتدئة وغداً محترفة 8 469 25-04-17, 01:47 AM
آخر رد: العواد الصغير
  [سؤال] أريد معرفة اخر صف في الجدول حنان المغربى 7 527 16-04-17, 02:01 AM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم