Yamabiko Block

山彥塊工具

幫助 Emar 集團的 Nishiyama 團隊計算來自 Bunka Shutter 合作夥伴的 Yamabiko 區塊的工具。

面具

程式碼演示

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