التواصل المباشر مع الادارة والاعضاء القدامى من خلال قناة التلغرام



العودة   :: vBspiders Professional Network :: > [ ::. قسم البرمجة ولغاتها .:: ] > قسم البرمجة الكائنية

 
 
LinkBack أدوات الموضوع انواع عرض الموضوع
قديم 03-12-2012, 06:56 PM   رقم المشاركة : 1 (permalink)
معلومات العضو
 
الصورة الرمزية Dr.Mix
 

 

 
إحصائية العضو







Dr.Mix غير متواجد حالياً

إرسال رسالة عبر MSN إلى Dr.Mix

 

 

إحصائية الترشيح

عدد النقاط : 10
Dr.Mix is on a distinguished road

.... تصميم برنامج استخراج ايبي سرفر ، اول مرة في المنتديات ~~


السلام عليكم ورحمة الله وتعالى وبركاته

كيفك يا عناكب اتمنى ان تكونوا بحمد الله جميعا

حبيت بعد غياب طوييل ان اقوم بعمل درس في بيئة الدوت نت (الفيجوال باسيك دوت نت )

#####بالمناسبة يا حلوين الموضوع بسيط بس اول مرة يدكر في المنتديات#####

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

ملاحضة : ان لم تفهم شيئ في الكود قم بكتابته في التعليق وراح اشرح لك وتفهم ان شاء الله
--------------------------------------------

1 نفتح الفيجوال باسيك انا عندي الاصدار العاشر (2010)

2 نقوم بوضع تصميم مثل اللي على الصورة



3 الان قم بضغطتين على الفورم واكتب هدا الكود في الفورم :
كود PHP:
textbox2.enabled false 
بعلم ان التكس بوكس رقم اثنان هو الخاص بالايبي اللي راح تستخرجوا والتكست بوكس رقم باحد خاص بالموقع

الان في مكان الكود سورس قم باستدعاء اداة الدوت نت كما في الصورة :



4 الان نقوم بعمل ضغطتين في البوتون اللي في الاسفل ونكتب هدا الكود :

كود PHP:
Try
            If 
TextBox1.Text.Contains("http://"Then
                Dim iphe 
As IPHostEntry Dns.GetHostEntry(TextBox1.Text.Replace("http://"String.Empty))

                
TextBox2.Text iphe.AddressList(0).ToString()

            Else

                
Dim iphe As IPHostEntry Dns.GetHostEntry(TextBox1.Text)

                
TextBox2.Text iphe.AddressList(0).ToString()

            
End If
        Catch 
ex As Exception
        End 
Try 
الان نرى كيف اصبح الكود في الاخير



الان نشوف النتيجة :





اتمنى ان تعجبكم الفكرة والسلام عليكم ورحمة الله وبركاته

###DR.MIX###



jwldl fvkhl[ hsjovh[ hdfd svtv K h,g lvm td hglkj]dhj ZZ

التوقيع

قريبا افتتاح دورة الافتر افكتس من طرف DR.MIX

http://img11.hostingpics.net/pics/36...sDisk00054.jpg

تابعونا

 


التعديل الأخير تم بواسطة Dr.Mix ; 03-12-2012 الساعة 07:01 PM.

   

رد مع اقتباس
 

مواقع النشر (المفضلة)

الكلمات الدليلية (Tags)
ايبي, بسرفر


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة

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


الساعة الآن 03:07 AM


[ vBspiders.Com Network ]

SEO by vBSEO 3.6.0