Yamabiko Block
1.0.0
Tool zur Unterstützung des Nishiyama-Teams der Emar-Gruppe bei der Berechnung des Yamabiko-Blocks vom Bunka Shutter-Partner.
''' <summary>
''' Check internet connection.
''' </summary>
''' <returns>Connection state.</returns>
Private Function IsNetAvail()
Dim objResp As WebResponse
Try
objResp = WebRequest.Create( New Uri(My.Resources.link_base)).GetResponse
objResp.Close()
objResp = Nothing
Return True
Catch ex As Exception
Return False
End Try
End Function