【vba】VBAでpingテスト

無線接続の端末から、データの送受信や印字をする際、処理の前にpingテストを行なっています。

Function pingTEST() As Boolean

Dim stAppName As String
Dim myURL As String

myURL = "https://www.katabe.jp/"

If GetPingStatus(myURL) = True Then

    ’MsgBox "■■　インターネット接続テスト：　接続OK　■■" & vbCr & vbCr & " ping先： " & myURL
    pingTEST = True

Else
    
    MsgBox "××　ネット接続失敗　××" & vbCr & vbCr & "ネットワークを再確認して下さい" & vbCr & vbCr & " ping先： " & myURL

    pingTEST = False

End If

End Function