Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0030: Alle DFÜ-Verbindungen ermitteln

 von 

Beschreibung 

Sämtliche auf einem Rechner installierten DFÜ-Verbindungen, können damit ausgelesen werden. Diese Beispiel ist zwar schonmal im Tipp Tipp 9 mit eingebaut gewesen, soll aber hier erneut als einzelnes Beispiel behandelt werden.

Schwierigkeitsgrad:

Schwierigkeitsgrad 2

Verwendete API-Aufrufe:

RasEnumEntriesA (RasEnumEntries)

Download:

Download des Beispielprojektes [2,01 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: Listen-Steuerelement "List1"

Option Explicit

Private Declare Function RasEnumEntries Lib "RasApi32.DLL" _
        Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal _
        lpszPhonebook As String, lprasentryname As Long, lpcb As Long, _
        lpcEntries As Long) As Long
        
Const RAS95_MaxEntryName = 256

Private Type RASENTRYNAME95
  dwSize As Long
  szEntryName(RAS95_MaxEntryName) As Byte
End Type


Private Sub Form_Load()
    Dim S As Long, LN As Long
    Dim X As Integer
    Dim ConName As String
    Dim R(255) As RASENTRYNAME95
    
    R(0).dwSize = 264
    S = 256 * R(0).dwSize
    Call RasEnumEntries(vbNullString, vbNullString, VarPtr(R(0)), S, LN)
        
    For X = 0 To LN - 1
        ConName = StrConv(R(X).szEntryName(), vbUnicode)
        List1.AddItem Left$(ConName, InStr(ConName, vbNullChar) - 1)
    Next X
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 8 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 stefan ostermann am 29.05.2006 um 18:37

funktioniert prima sogar mit gupta sqlwindows. Ich erreiche aber die incoming calls mit callback nicht wirklich?

Kommentar von Sebastian Steiner am 05.05.2005 um 12:13

Hallo,
bei mir funktioniert der Tipp auch unter Windows 2000 Prof. prima! :)
Viele Grüße!
Sebastian

Kommentar von blbltheworm am 06.08.2004 um 09:36

Gut, aber wie mach ich das mit w2k & Win98 SE??
Da tuts bei mir nicht

Kommentar von mgalpha am 08.05.2004 um 23:09

Hallo super toller tipp hat mir sehr gehollfen.

Kommentar von Grcs-Software am 08.05.2004 um 23:07

Das ist echt ein Super Tipp


die Programme, die durch den Tipp entstanden sind, finden Sie Hier:

Hier geht es lang
oder Hier

Kommentar von Konstantin Stratigenas am 17.08.2003 um 14:07

Danke für diesen guten Tipp, denn ich muss in meinem programm alle DFÜ netzwerke in einer combo aufgelistet haben. Nun brauche ich aber noch die Einwahlnummern der Verbindungen. Kann mir da jemand helfen?

Kommentar von Jacqueline Keller am 01.03.2003 um 19:39

Hallo!

Habe mir einen neuen Rechner zugelegt, habe nun Windows xp, und brauche dringend alle angaben, um mir ein dfü oder eine andere Verbindung zum Internet zu verschaffen, helft mir dabei, bitte!!! Ich möchte nur wieder meinen Smart surfer nutzen und auch offline meine EMails über mein Outlook abholen. Über eine Antwort würde ich mich riesig freuen. Ein verzweifelter User

Kommentar von Stijntas am 27.11.2000 um 21:09

Ihren web-site ist sehr gut.
Dänke für ihren gutte
informatione
entschuldigen sie mihr für mienen schlechte deutsch.