'================================================================
'= インターネットに接続できるかどうか調べる

'=    (InternetAttemptConnect.bas)
'================================================================
#include "Windows.bi"

' インターネットに接続できるかどうか調べる
Declare Function Api_InternetAttemptConnect& Lib "wininet" Alias "InternetAttemptConnect" (ByVal dwReserved&)

If Api_InternetAttemptConnect(0) = 0 Then
    Print "インターネットに接続できます！"
Else
    Print "インターネットに接続できません！"
End If

Stop
End