Imports System.Net.NetworkInformation
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim url As String = "https://xxx/xxx/xxxx"
Dim utl_Donaim = GetDomainFromUrl(url)
'If My.Computer.Network.Ping("198.01.01.01") Then
'End If
Using pinger As New Ping()
Dim reply As PingReply = pinger.Send(utl_Donaim, 5000)
If reply.Status = IPStatus.Success Then
MessageBox.Show("Ping to {targetHost} successful! Roundtrip time: {reply.RoundtripTime}ms", "Ping Result")
Else
MessageBox.Show("Ping to {targetHost} failed. Status: {reply.Status}", "Ping Result")
End If
End Using
End Sub
Public Function GetDomainFromUrl(ByVal urlString As String) As String
Try
Dim uri As New Uri(urlString)
Return uri.Host
Catch ex As UriFormatException
Return String.Empty
End Try
End Function