السلام عليكم ورحمة الله وتعالى وبركاته
كيفك يا عناكب اتمنى ان تكونوا
بحمد الله جميعا
حبيت بعد غياب طوييل ان اقوم بعمل درس في بيئة الدوت نت (الفيجوال باسيك دوت نت )
#####بالمناسبة يا حلوين الموضوع بسيط بس اول مرة يدكر في المنتديات#####
الدرس وهو عبارة عن
تصميم برنامج يقوم باستخراج
ايبي خاص بسرفر ما
ملاحضة : ان لم تفهم شيئ في الكود قم بكتابته في التعليق وراح اشرح لك وتفهم ان شاء الله
--------------------------------------------
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