السلام عليكم
هذا الموقع http://www.lavresearch.com/get_my_ip/ يقدم برنامج يعطيك هذا الرقم ويمكن استخدامه عن طريق سطر الاوامر ..
فاممل ان اجد لديكم اجابه عن كيفية استخدامه من داخل برنامجي المعمول ب VB.net
,هل يمكن ان أحصل برمجياً من خلال فيجوال بيسك دوت نت على Real IP الخاص بي
------------------وما توفيقي إلا بالله--------------------
إذا كنت بالله مستعصما---------فماذا يضيرك كيد العبيد
السلام عليكم ورحمه الله وبركاته
اخ جرب الكود التالي
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim client As New WebClient()
Dim content As String = client.DownloadString("http://www.whatismyip.com/tools/ip-address-lookup.asp")
Console.WriteLine(content.Split(vbCrLf).Where(Function(l) Regex.IsMatch(l, "\d+\.\d+\.\d+\.\d+")).Select(Function(l) Regex.Match(l, "\d+\.\d+\.\d+\.\d+").Value).Single())
End Sub
End Module.:: Wish to become better and better ::.
شكرا اخي
الناتج فعلا اي بي لكنه ليس الايبي المرتبط حاليا بجهازي ، طبعا عند فتح موقع http://www.whatsmyrealip.com/ فإن الايبي الذي اعاده الكود مختلف عن الموجود في الموقع
اخيرا اكتشفت ان الموقع http://www.whatismyip.com محجوب ..!!!!!!!!!
شكرا وفي انتظار الاجابه
تم تعديل هذه المشاركة بواسطة ابوعبدالملك في 5 يناير 2012 في 00:39
------------------وما توفيقي إلا بالله--------------------
إذا كنت بالله مستعصما---------فماذا يضيرك كيد العبيد
السلام عليكم ورحمه الله وبركاته
اخي الكود شغال 100% قم باستخدام بروكسي وجربه مره اخرى
.:: Wish to become better and better ::.
فعلا اخي الكود شغال .. المشكله ليست في الكود بل في الموقع لدينا في السعوديه محجوب ...هل لابد ان استخدم خدمات موقع ما حتى أحصل على Real IP الحالي ؟؟
الراوتر يملك هذا الرقم الا يوجد طريقه للإستعلام عن هذه المعلومات من الراوتر ؟؟
هل يمكن ان نحلل معلومات الصفحه ما للحصول على هذا الرقم ؟؟
اجمالا هل يمكن ان احصل على هذا الرقم بشكل عملي يضمن الاستمرارية الى حد كبير
------------------وما توفيقي إلا بالله--------------------
إذا كنت بالله مستعصما---------فماذا يضيرك كيد العبيد
يمكن ان تعرف الطريقة اليدوية في قسم الشبكات وهنا نحول الطريقة اليدوية الي برنامج
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); http://lavresearch.com/getip.php
و يمكنك من خلال الكود للأخ VB Helper الحصول على الآي بي فقط
هذا الموقع يعطيك الاي بي
whatismyip.org
Dim w As New Net.WebClient
Dim myip As String = w.DownloadString("http://whatismyip.org")
MsgBox(myip)
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…