:: vBspiders Professional Network :: - تصميم برنامج استخراج ايبي سرفر ، اول مرة في المنتديات ~~

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)

- قسم البرمجة الكائنية (http://www.vbspiders.com/vb/forumdisplay.php?f=174)

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

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

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

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

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

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

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

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

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

http://img15.hostingpics.net/pics/402738201.png

3:) الان قم بضغطتين على الفورم واكتب هدا الكود في الفورم :

كود PHP:

   textbox2.enabled = false

بعلم ان التكس بوكس رقم اثنان هو الخاص بالايبي اللي راح تستخرجوا والتكست بوكس رقم باحد خاص بالموقع

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

http://img15.hostingpics.net/pics/661265552.png

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

الان نرى كيف اصبح الكود في الاخير

http://img15.hostingpics.net/pics/148607443.png

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

http://img15.hostingpics.net/pics/287405714.png

:6:

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

###DR.MIX###

:msn-wink: