Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0224: Verbindung via LAN oder Modem

 von 

Beschreibung 

Um festzustellen ob eine DFÜ Verdingung via LAN oder Modem aufgenommen werden kann, läßt sich dieser Tip verwenden da er die Verbindungsart ermittelt.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

InternetGetConnectedState

Download:

Download des Beispielprojektes [2,16 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label4"
' Steuerelement: Beschriftungsfeld "Label3"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"
' Steuerelement: Beschriftungsfeld "Label8"
' Steuerelement: Beschriftungsfeld "Label7"
' Steuerelement: Beschriftungsfeld "Label6"
' Steuerelement: Beschriftungsfeld "Label5"

Option Explicit

Private Declare Function InternetGetConnectedState _
        Lib "wininet.dll" (ByRef lpSFlags As Long, _
        ByVal dwReserved As Long) As Long

Const INTERNET_CONNECTION_LAN As Long = &H2
Const INTERNET_CONNECTION_MODEM As Long = &H1
Const INTERNET_CONNECTION_PROXY As Long = &H4
Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8

Private Sub Out(ByVal icFlags&, ByVal Flag&, ByVal Lbl As Label)
  If Flag And icFlags Then
    Lbl.Caption = "Ja"
  Else
    Lbl.Caption = "Nein"
  End If
End Sub

Private Sub Command1_Click()
  Dim icFlags
    Label5.Caption = "Verbunden via LAN"
    Label6.Caption = "Verbunden via Modem"
    Label7.Caption = "Verbunden via Proxy"
    Label8.Caption = "Modem ist gerade aktiv"
    
    Call InternetGetConnectedState(icFlags, 0&)
    Call Out(icFlags, INTERNET_CONNECTION_LAN, Label1)
    Call Out(icFlags, INTERNET_CONNECTION_MODEM, Label2)
    Call Out(icFlags, INTERNET_CONNECTION_PROXY, Label3)
    Call Out(icFlags, INTERNET_CONNECTION_MODEM_BUSY, Label4)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 6 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Ripper am 23.02.2002 um 12:02

Das ist ein guter Tip!
Nur: Ich möchte Winsock an das entsprechende Interface binden. Weiss jemand wie man jetzt noch die zugehörige IP ermittelt (IP wenn online und 127.0.0.1 wenn offline, oder so ähnlich)???
Danke

Kommentar von T.Schneider am 08.02.2002 um 18:25

Hallo, nach langer Suche habe ich diesen Tipp gefunden und sofort heruntergeladen.Leider weiss ich nun nicht wie ich das projekt starten kann. Wie öffnet man frm Dateien? Ich hoffe Ihr könnt mir weiterhelfen.
Torsten

Kommentar von C.Galle am 16.06.2001 um 14:50

Wie bekomme ich eine Verbindung zwischen einem Laptop Win 95 mit Netzwerkkarte und einem PC Win 2000, ebenfalls mit Netzwerkkarte ( Level One)????

Kommentar von Christian Loos am 06.06.2001 um 08:04

Ja, hab ich :-)
Das Programm prüft nicht ob du mit dem Internet verbunden bist sondern wie ! Und das ist Einstellungssache in Windows was das Programm ausliest. Also wenn Windows so konfiguriert ist das es über ein Netzwerk ins Internet geht, wird das Programm das anzeigen egal ob der Rechner im Netz hängt oder nicht. Das gleiche gilt für Proxy und Modem.

Kommentar von Bernd Krause am 16.03.2001 um 15:54

Hallo erstmal,
bei mir funzt das Prog nicht so richtig. Mein Rechner ist über LAN mit dem Internet verbunden. Das erkennt das Programm auch. Aber wenn ich den Netzwerkstecker ziehe und mich lokal anmelde behauptet das Programm noch immer das ich verbunden sein!
Hat jemand eine schlaue Idee dazu?
Bernd

Kommentar von Benedikt Lippmann am 24.02.2001 um 13:14

Hallo ,
ich habe da eine Frage .
Ein Freund von mir hat enorme Probleme und ich möchte ihm gerne helfen .
Hier die
Problembeschreibung :
OE 5.0 arbeitet(e) tadellos und holt(e) die Mails bei einem Hotmailkonto ab
jetzt haben wir Outlook97 aus einer Office 97 Version nachinstaliert und wollen zukünftig O benutzen.
Bei der Konfiguration wird nach dem pop3 server und dem smtp server gefragt .
Diese Einstellung ist in OE 5 nicht vorhanden !!!
Nach stundenlanger , ja man kann mittlerweile schon sagen tagelanger Recherche finden wir nirgendwo auch nur die kleinste Andeutung wie denn wohl der besagte (abgepisste) pop3 und smtp server heißen könnte . Wahrlich ich sage euch - entweder habe ich etwas ganz grundlegendes nicht begriffen oder ich bin von Haus aus total zu doof --- Bullshitkacke
Ich wäre euch wirklich dankbar wenn mir weitergeholfen werden könnte .
m.f.G.
Benedikt Lippmann
Tel : 01725346544