Geen verbinding met internet melding

[kayhup]

hoe kan ik dat als er geen internet gevonden is dat er dan in mijn programma een text/plaatje in een webbrowser komt met de melding dat er geen internet is..??


alvast bedankt..

 

[That Guy]

je kan een danwel simpele oplossing gebruiken om te checken of er een internet connectie is, let wel dat de functie soms gewoon niet werkt.

Option Explicit
'Internet connection checker
Dim internetonline As Boolean
Dim internetstring As String
Private Const FLAG_ICC_FORCE_CONNECTION = 1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Boolean

Public Function CheckInternetConnection()
Dim temp As String
    temp = InternetCheckConnection("http://www.microsoft.com", FLAG_ICC_FORCE_CONNECTION, 0)
    If temp = "True" Then
        msgbox ("Internet Connection: Online")
        internetonline = True
    Else
        msgbox ("Internet Connection: Offline")
        internetonline = False
    End If
End Function

V:thumb:

 

[kayhup]

je kan een danwel simpele oplossing gebruiken om te checken of er een internet connectie is, let wel dat de functie soms gewoon niet werkt.

Option Explicit
'Internet connection checker
Dim internetonline As Boolean
Dim internetstring As String
Private Const FLAG_ICC_FORCE_CONNECTION = 1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Boolean

Public Function CheckInternetConnection()
Dim temp As String
    temp = InternetCheckConnection("http://www.microsoft.com", FLAG_ICC_FORCE_CONNECTION, 0)
    If temp = "True" Then
        msgbox ("Internet Connection: Online")
        internetonline = True
    Else
        msgbox ("Internet Connection: Offline")
        internetonline = False
    End If
End Function

V:thumb:

Hij geeft helemaal geen melding.....

 

[That Guy]

je moet m wel aanroepen he?

dus in je form_load ofzo:

Private sub form_load()
CheckInternetConnection
end sub

bij mij werkt t


V :thumb:

 

[kayhup]

Bij option geeft ie een errror

 

[That Guy]

bij option? je bedoelt bij de Option Explicit?

en, welke VB heb je?

V:thumb:

 

[RonaldGJ]

Ik heb um ook even geprobeerd en bij mij werkt hij ook!!

Ronald!

 

[kayhup]

Vb 2005

 

[romic]

If My.Computer.Network.IsAvailable = False Then
            Picturebox1.Image = My.Resources.neterror
End If

de "my.resources.neterror" moet je vervangen door het pad van je eigen errorafbeelding.