Mitsubishi Block

三菱塊工具

幫助來自文化快門合作夥伴的Mitsubishi的Emaar Group計算塊Nishiyama團隊的工具。

面具

代碼演示

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