als er geen internetverbinding is...

[famlam]

Hoe kan ik instellen dat het programma iets uitvoert als er geen verbinding met het internet is?

(if internet.connection = false then webbrowser1.visible = false)

 

[Pizara]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IsConnectieBeschikbaar() = False Then
            ' ... Doe Iets ...
        End If
    End Sub

    Private Function IsConnectieBeschikbaar() As Boolean

        Dim URL As New System.Uri("http://www.google.nl/")
        Dim WebAanvraag As System.Net.WebRequest = System.Net.WebRequest.Create(URL)

        Dim WebReactie As System.Net.WebResponse

        Try
            WebReactie = WebAanvraag.GetResponse()
            WebReactie.Close()
            WebAanvraag = Nothing
            Return True
        Catch ex As Exception
            WebAanvraag = Nothing
            Return False
        End Try

    End Function

End Class

 

[TheJjokerR]

Ok wat doe je precies in dit deel?

Private Function IsConnectieBeschikbaar() As Boolean

Dim URL As New System.Uri("http://www.google.nl/")
Dim WebAanvraag As System.Net.WebRequest = System.Net.WebRequest.Create(URL)

Dim WebReactie As System.Net.WebResponse

Try
WebReactie = WebAanvraag.GetResponse()
WebReactie.Close()
WebAanvraag = Nothing
Return True
Catch ex As Exception
WebAanvraag = Nothing
Return False
End Try

End Function

 

[Pizara]

ok in stukjes dan

Private Function IsConnectieBeschikbaar() As Boolean

Roep de Sub aan en de waarde die terug gestuurd wordt is een Waar/Onwaar waarde.

Dim URL As New System.Uri("http://www.google.nl/")

URL wordt een webpagina.

Dim WebAanvraag As System.Net.WebRequest = System.Net.WebRequest.Create(URL)

Webaanvraag roept de URL aan.

Dim WebReactie As System.Net.WebResponse

WebReactie geeft een reactie van de Uniform Resource Identifier (URI)

Try
WebReactie = WebAanvraag.GetResponse()
WebReactie.Close()
WebAanvraag = Nothing
Return True

Probeer de URL op te vragen en als die geen error geeft wordt de Functie Return waarde Waar

Catch ex As Exception
WebAanvraag = Nothing
Return False
End Try

Bij een foutmelding van de URL (Catch Ex as Exception) wordt de Functie Return waarde Onwaar.

End Function

duidelijk zo?

 

[TheJjokerR]

Sorry maar ik snap het script op zich wel, maar ik kon er niet uit opmaken wat het precies voor functie heeft , ik snap het nu wel thanks :thumb:

 

[djpommes]

Sorry maar ik snap het script op zich wel, maar ik kon er niet uit opmaken wat het precies voor functie heeft , ik snap het nu wel thanks :thumb:

ik geef gewoon ff mijn idee:
stuk simpeler, zet een .txt bestand op freewebs ofzo, laat je programma hem downloaden (internet transfer controls) en laat hem de text in een textbox zetten. dan hoef je alleen maar te checken of er iets in de textbox staat.

 

[famlam]

ik geef gewoon ff mijn idee:
stuk simpeler, zet een .txt bestand op freewebs ofzo, laat je programma hem downloaden (internet transfer controls) en laat hem de text in een textbox zetten. dan hoef je alleen maar te checken of er iets in de textbox staat.

Ik denk niet dat dat simpeler is... Ik ga toch voor de manier van pizara. Dit vind ik een te grote omweg. (en ik weet niet of het nou simpeler is om een txt te downloaden en de tekst eruit te halen... Dat duurt denk ik ook langer dan pizara's manier. Ten laatste: zo hoef ik geen tekstbox te maken

 

[djpommes]

Ik denk niet dat dat simpeler is... Ik ga toch voor de manier van pizara. Dit vind ik een te grote omweg. (en ik weet niet of het nou simpeler is om een txt te downloaden en de tekst eruit te halen... Dat duurt denk ik ook langer dan pizara's manier. Ten laatste: zo hoef ik geen tekstbox te maken

ok