【vba】VBAでpingテスト

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

[vb] Function pingTEST() As Boolean

Dim stAppName As String
Dim myURL As String

myURL = "https://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
[/vb]