Skip to content

小田急ブロック

Notifications You must be signed in to change notification settings

Tynab/Odakyuu-Block

Repository files navigation

ODAKYUU BLOCK TOOL

Tool to help 西山 team of エマール group calculate ブロック of 小田急 from 文化シャッター partner.

MASK

CODE DEMO

''' <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