If My.Computer.Network.Ping("172.217.160.196") Or My.Computer.Network.Ping("157.240.23.35") Then Logger.AppendText("[" + Date.Now.ToString + "] Network Pinged And It's Working!" + vbNewLine) Dim dr1 As DialogResult = MessageBox.Show("Do You Want To Check Configuration Of Network?", "Check Further...", MessageBoxButtons.YesNo) If My.Computer.Network.IsAvailable = True Then Logger.AppendText("[" + Date.Now.ToString + "] Getting Network Adapter(s) Configuration Information" + vbNewLine) MsgBox("IP Address : " + System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList(1).ToString + vbNewLine + _ "MAC Address : " + System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces().ToString) Else Logger.AppendText("[" + Date.Now.ToString + "] Network Disconnected Unexpectedly!" + vbNewLine) MsgBox("Oops! Your Network Seems Disconnected Right Now.", MsgBoxStyle.Exclamation) End If End If