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

Function pingTEST() As Boolean

Dim stAppName As String
Dim myURL As String

myURL = "http://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
(164 views)

コメントを残す

メールアドレスが公開されることはありません。