'================================================================
'= URLに接続できるかチェック
'=    (InternetCheckConnection.bas)
'================================================================
#include "Windows.bi"

#define FLAG_ICC_FORCE_CONNECTION &H1

' インターネットへの接続することができるか調べる
Declare Function Api_InternetCheckConnection& Lib "wininet" Alias "InternetCheckConnectionA" (ByVal lpszUrl$, ByVal dwFlags&, ByVal dwReserved&)

Var Shared Edit1 As Object
Var Shared Text1 As Object
Var Shared Button1 As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Function CheckInetConnection(sUrlOfInternet As String) As Integer
Function CheckInetConnection(sUrlOfInternet As String) As Integer

    CheckInetConnection = Api_InternetCheckConnection(sUrlOfInternet, FLAG_ICC_FORCE_CONNECTION, 0)
   
End Function

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var sUrl As String
   
    sUrl = Edit1.GetWindowtext
   
    If CheckInetConnection(sUrl) Then
   
        Text1.SetWindowtext sUrl & " と、接続可能です。"
      
    Else
   
        Text1.SetWindowtext sUrl & " と、接続できません。"
   
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End