تصميم برنامج استخراج ايبي سرفر ، اول مرة في المنتديات ~~
السلام عليكم ورحمة الله وتعالى وبركاته
كيفك يا عناكب اتمنى ان تكونوا بحمد الله جميعا
حبيت بعد غياب طوييل ان اقوم بعمل درس في بيئة الدوت نت (الفيجوال باسيك دوت نت )
#####بالمناسبة يا حلوين الموضوع بسيط بس اول مرة يدكر في المنتديات#####
الدرس وهو عبارة عن تصميم برنامج يقوم باستخراج ايبي خاص بسرفر ما
ملاحضة : ان لم تفهم شيئ في الكود قم بكتابته في التعليق وراح اشرح لك وتفهم ان شاء الله
--------------------------------------------
1
نفتح الفيجوال باسيك انا عندي الاصدار العاشر (2010)
2 نقوم بوضع تصميم مثل اللي على الصورة :12:
3 الان قم بضغطتين على الفورم واكتب هدا الكود في الفورم :
بعلم ان التكس بوكس رقم اثنان هو الخاص بالايبي اللي راح تستخرجوا والتكست بوكس رقم باحد خاص بالموقع
الان في مكان الكود سورس قم باستدعاء اداة الدوت نت كما في الصورة : :icon-mos:
4 الان نقوم بعمل ضغطتين في البوتون اللي في الاسفل ونكتب هدا الكود :
الان نرى كيف اصبح الكود في الاخير
الان نشوف النتيجة :
:6:
اتمنى ان تعجبكم الفكرة والسلام عليكم ورحمة الله وبركاته
###DR.MIX###
:msn-wink:كيفك يا عناكب اتمنى ان تكونوا بحمد الله جميعا
حبيت بعد غياب طوييل ان اقوم بعمل درس في بيئة الدوت نت (الفيجوال باسيك دوت نت )
#####بالمناسبة يا حلوين الموضوع بسيط بس اول مرة يدكر في المنتديات#####
الدرس وهو عبارة عن تصميم برنامج يقوم باستخراج ايبي خاص بسرفر ما
ملاحضة : ان لم تفهم شيئ في الكود قم بكتابته في التعليق وراح اشرح لك وتفهم ان شاء الله
--------------------------------------------
1
نفتح الفيجوال باسيك انا عندي الاصدار العاشر (2010)2
نقوم بوضع تصميم مثل اللي على الصورة :12:
3
الان قم بضغطتين على الفورم واكتب هدا الكود في الفورم :
PHP:
textbox2.enabled = falseبعلم ان التكس بوكس رقم اثنان هو الخاص بالايبي اللي راح تستخرجوا والتكست بوكس رقم باحد خاص بالموقع
الان في مكان الكود سورس قم باستدعاء اداة الدوت نت كما في الصورة : :icon-mos:
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الان نرى كيف اصبح الكود في الاخير
الان نشوف النتيجة :
:6:
اتمنى ان تعجبكم الفكرة والسلام عليكم ورحمة الله وبركاته
###DR.MIX###
التعديل الأخير:
اسم الموضوع : تصميم برنامج استخراج ايبي سرفر ، اول مرة في المنتديات ~~
|
المصدر : قسم البرمجة الكائنية