تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد كود لمعرفة باسورد حهاز الكمبيوتر مثل كود معرفة اسم المستخدم تناسيم 1 41 أمس, 12:44 PM
آخر رد: HASAN6.0
  معرفة اسامي الملفات التنفيذية dasktop 12 169 03-11-18, 01:29 PM
آخر رد: elgokr
  [VB.NET] معرفة اليوم باللغة العربية محمد بوقزاحة 5 153 15-10-18, 09:38 PM
آخر رد: ابراهيم ايبو
  معرفة حالة الاداة ميديا بلير المتألق9 2 112 18-09-18, 02:09 PM
آخر رد: المتألق9
  [VB.NET] كيف يمكن معرفة حجم قاعدة بيانات اكسسمن خلال VB.NET كريم جودي 4 216 11-08-18, 03:25 PM
آخر رد: كريم جودي
Star معرفة لغة برمجة ملفات exe او dll YousefOkasha 0 282 14-07-18, 01:32 PM
آخر رد: YousefOkasha
  [VB.NET] كيف يمكنني معرفة حجم قاعدة بيانات بالفيجول دوت نت issatiger 1 168 19-06-18, 03:46 PM
آخر رد: عبد العزيز البسكري
  معرفة اي فورم تم استدعاء الدالة المتألق9 1 143 05-06-18, 09:08 AM
آخر رد: سعود
Question [نقاش] معرفة عدد مستخدمين برنامجك YousefOkasha 2 204 04-06-18, 03:19 AM
آخر رد: YousefOkasha
  معرفة وجود قاعدة البيانات المتألق9 5 223 15-05-18, 07:38 PM
آخر رد: المتألق9

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


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