Internetverbindung mit Visual Basic

Computer: Software & Programmierung Visual Basic
1

Hallo,

ich bin neu hier und versuche es mal. Ich habe zwar die Rubrik VB ausgewählt, arbeite aber eigentlich mit Access. Dort habe ich eine Prozedur erstellt, die auf eine Internetseite zugreift. Funktioniert auch:

Set IE = CreateObject(„InternetExplorer.Application“)

IE.Visible = False
IE.Silent = True
IE.Navigate „http://www.notenleichtgemacht.de/AktDatum.txt“

Do While (IE.Busy)
Loop

Feld = IE.Document.DocumentElement.InnerText
IE.Quit
Set IE = Nothing

Aber jetzt habe ich mal getestet, was geschieht, wenn die Internetverbindung nicht aktiv ist. Folge: das Programm bleibt beim „CreateObject“ hängen und lässt sich nur noch über den Programmmanager „abwürgen“. Kennt jemand eine Lösung? Habe schon einige Zeit mit googeln verbracht, aber nichts gefunden.

2

Hallo
Mit VB.Net habe ich das ganze eleganterweise mit dem Befehl Ping wie folgt gelöst:

'Internet--------------------------------------------------------
Public Function CheckOnLineStatus() As Boolean
'Verbindung prüfen
If My.Computer.Network.IsAvailable Then
Try
CheckOnLineStatus = My.Computer.Network.Ping(„sebrasoft.ch“)
Catch ex As System.Exception
CheckOnLineStatus = False
End Try
Else
CheckOnLineStatus = False
End If
Return CheckOnLineStatus
End Function

3

Danke zunächst, aber leider kann ich den Code in Access nicht nutzen. Aber vielleicht finde ich zu Deiner Idee noch passende Accesslösungen.

4

Danke zunächst, aber leider kann ich den Code in Access nicht
nutzen. Aber vielleicht finde ich zu Deiner Idee noch passende
Accesslösungen.

Hallo,

schau einfach mal hier :smile:

http://books.google.de/books?id=RJ8NCixaju8C&pg=PA33…

MfG Alex

5

Hallo

Ja, über die Windows API Funktion geht es sicherlich auch. In Access mösstest Du dann vermutlich den VB6 Code nehmen. Ich bin mal am suchen.

Grüsse Sebastian

6

Hallo

Hallo,

Ja, über die Windows API Funktion geht es sicherlich auch. In
Access mösstest Du dann vermutlich den VB6 Code nehmen. Ich
bin mal am suchen.

Der genannte Source ist lauffaehig unter VB und VBA (Access VBA) :wink: Zur Not auch unter .NET, aber da gibt es bessere Möglichkeiten :wink:

Grüsse Sebastian

MfG Alex

7

Klappt prima, Danke. Ich kenne mich mit den APIs sonst nicht aus und hab’ schon viel Zeit beim Googeln verbracht. Echt gut!!!

Wenn jetzt noch einer einen Tipp hat, wie man die lästige Abfrage von Windows unterdrückt „Ob man den IE denn als Standard-Browser haben möchte“, wäre ich komplett glücklich, denn ich will die Überprüfung im Hintergrund beim Programmstart laufen lassen und es soll überprüfen, ob ein aktuelleres Datum auf der entspr. Internet-Seite vorliegt.

Gruß

MB.

8

Hallo,

Wenn jetzt noch einer einen Tipp hat, wie man die lästige
Abfrage von Windows unterdrückt „Ob man den IE denn als
Standard-Browser haben möchte“, wäre ich komplett glücklich,

unter Start -> Programmzugriff und -Standards kannst du das einstellen :smile:

denn ich will die Überprüfung im Hintergrund beim
Programmstart laufen lassen und es soll überprüfen, ob ein
aktuelleres Datum auf der entspr. Internet-Seite vorliegt.

Warum startest du dann nicht den standard Browser?
Letztendlich ist es doch egal mit welchem Browser man die Daten auslesen tut.

MfG Alex