تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لعمل Ping لسيرفر
#1
كاتب الموضوع : Boutemine Oualid

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

كود :
private Sub pingServer(ByVal adress As String, ByVal timeout As Int32)
If My.Computer.Network.IsAvailable Then
Try
If My.Computer.Network.Ping(adress, timeout) Then
MsgBox(adress & vbCrLf & "ok", MsgBoxStyle.Information, Me.Text)
Else
MsgBox(adress & vbCrLf & "failled", MsgBoxStyle.Exclamation, Me.Text)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لعمل تحجيم تلقائي -AutoSize- لأداة مربع النص TextBox sooriaty03 7 1,631 29-05-16, 01:01 AM
آخر رد: CLARO
  فائدة - كيفية عمل Ping RaggiTech 0 1,142 17-10-12, 09:00 PM
آخر رد: RaggiTech
  لعمل نسخة من Class دون استعمال الكلمة new RaggiTech 0 294 17-10-12, 06:14 PM
آخر رد: RaggiTech
  لعمل اختصار على سطح المكتب RaggiTech 0 333 17-10-12, 06:10 PM
آخر رد: RaggiTech
  لعمل اتصال نحو قاعدة بيانات MySQL RaggiTech 0 373 17-10-12, 06:09 PM
آخر رد: RaggiTech
  لعمل Serialization نحو XML RaggiTech 0 284 17-10-12, 06:09 PM
آخر رد: RaggiTech
  لعمل Back Up بطريقة سهلة RaggiTech 0 395 17-10-12, 06:07 PM
آخر رد: RaggiTech
  لعمل لون متدرج على الفورم RaggiTech 0 357 17-10-12, 05:31 PM
آخر رد: RaggiTech
  لعمل علاقات بين الجداول بالكود RaggiTech 0 318 17-10-12, 05:31 PM
آخر رد: RaggiTech
  لعمل خاصية الإكمال التلقائي ل ComboBox RaggiTech 0 981 17-10-12, 05:31 PM
آخر رد: RaggiTech

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم