Tool help 西山 team of エマール group calculate 重量 of 鉄筋 from 文化シャッター 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
- Tynab.YANF » 1.0.1