الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

shell

مغلق
بدأه maxmove في 17 يونيو 2007 · 3 رد · 483 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف اعرض نتيجة عمل ping مثلاا داخل البرنامج وليس خارجة

مثال 

Shell("ping www.yahoo.com", AppWinStyle.NormalFocus)

اريد النتيجة تضهر داخل البرنامج وليس فى شاشة dos

#2

يمكنك استخدام Ping Class كما في المثال

' استيراد فضاء أسماء معلومات الشبكة
Imports System.Net.NetworkInformation

Public Class TestPingClass

	' عند ضغط زر Ping
	Private Sub btnPing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPing.Click
		' جعل صندوق إظهار الحالة فارغا
		Me.lblResult.Text = String.Empty
		' ضبط لون الخط إلى الأحمر
		Me.lblResult.ForeColor = Color.Red

		' تعريف حلقة لالتقاط الاستثناء إن حصل
		Try
			' ارسال Ping للموقع أو العنوان المكتوب في صندوق النصوص
			Dim Reply As PingReply = New Ping().Send(Me.txtPing.Text, 120)
			' إظهار النتيجة
			Me.lblResult.Text = Reply.Status.ToString
		Catch ex As PingException
			' إظهار رسالة الخطأ
			MsgBox(ex.InnerException.Message)
		Catch ex1 As Exception
			' إظهار رسالة الخطأ
			MsgBox(ex1.ToString)
		End Try
	End Sub

End Class

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#3

بااااارك الله فيك اخي msas على الرد والشرح الوافي للاخ maxmove

-waf -waf -waf

تم تعديل هذه المشاركة بواسطة روح الفيجوال بيسك نت في 17 يونيو 2007 في 16:59

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if
#4

الف شكر اخى الغزيز واسف على التئخير

هذا الموضوع مغلق.

مواضيع مشابهة