VB 5/6-Tipp 0049: DFÜ-Verbindung automatisch starten

'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"
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command1"

Option Explicit

Private Declare Function InternetDial Lib "wininet.dll" _
        (ByVal hwndParent As Long, ByVal lpszConiID _
        As String, ByVal dwFlags As Long, ByRef hCon _
        As Long, ByVal dwReserved As Long) As Long
        
Private Declare Function InternetHangUp Lib "wininet.dll" _
        (ByVal hCon As Long, ByVal dwReserved _
        As Long) As Long

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 DIAL_UNATTENDED As Long = &H8000&
Const DIAL_FORCE_ONLINE As Long = 1&
Const DIAL_FORCE_UNATTENDED As Long = 2&

Const RAS95_MaxEntryName As Long = 256&

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

Dim ConID As Long, ConName As String

Private Sub Form_Load()
    Dim S As Long, LN As Long
    Dim x As Integer
    Dim R(255) As RASENTRYNAME95
    
    Command2.Caption = "Verbinden"
    Command2.Caption = "Auflegen"
    
    '### Namen der bestehenden DFÜ-Verbindungen einlesen
    R(0).dwSize = 264
    S = 256 * R(0).dwSize
    Call RasEnumEntries(vbNullString, vbNullString, VarPtr(R(0)), S, LN)
    
    If LN <> 0 Then
        '### Es besteht mindestens eine DFÜ-Verbindung
        For x = 0 To LN - 1
            ConName = StrConv(R(x).szEntryName(), vbUnicode)
            List1.AddItem Left$(ConName, InStr(ConName, vbNullChar) - 1)
        Next x
        List1.ListIndex = 0
    Else
        '### Keine DFÜ da
        Call MsgBox("Keine DFÜ-Verbindung vorhanden")
        Command1.Enabled = False
        Command2.Enabled = False
    End If
End Sub

Private Sub Command1_Click()
    InternetDial Me.hWnd, ConName, DIAL_FORCE_UNATTENDED, ConID, 0
End Sub

Private Sub Command2_Click()
    If ConID Then InternetHangUp ConID, 0
    ConID = 0
End Sub

Private Sub List1_Click()
    ConName = List1.List(List1.ListIndex)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Kommentar von Reinhold Kellermann am 20.10.2009 um 17:46

Die Datenverbindung wird erkannt, bei mir ist es das HUAWEI-GSM Modem auf USB. Interessanterweise werden die beiden Command-Button sofort gesperrt und es wird die Meldung ausgegeben, dass keine DFU besteht. Vielleicht verstehe ich das Programm auch nicht ganz. Bei Tipp9 bleibt das Programm in der Zeile "Sendkey" hängen und dann gibt´s einen Überlauf.

Was möchte ich machen?
Ich möchte eine Alarmanlage konstruieren. Mit Sensoren wird etwas abgefragt, dann in die 4 Input´s von LPT eingebracht und dann soll sich der PC in das Internet einwählen und eine SMS bzw. eine email absenden. Das funktioniert ja schon,
ABER
da muß am PC jemand sitzen, der den Verbindungsaufbau manuell macht und damit ist die Idee zum Sterben verurteilt.
Ich habe ja schon alle Foren abgeklappert, ActiveX usw. die alle gute Ansätze haben, die aber nicht funktionieren, eben der automatische Aufbau zu meinem Server wo ich dann eine email ablegen kann.
Sollte sich jemand finden, der mir aus der Patsche helfen kann/will soll sich bei mir melden. Ich bin auch bereit, die Leistung in Bargeld abzugelten.

Reinhold Kellermann

Kommentar von Lion-Energy am 03.04.2006 um 15:54

An alle die Ihre DFÜ Verbindung als Dienst laufen lassen möchten :

1- erstellen sie egal wo eine .bat datei mit folgendem inhalt

z.b. wenn eure dfü verbindunf internet heisst

zum connecten --> RASDIAL Internet
zum disconnecten --> RASDIAL Internet /disconnect

und dann in task planer eine neue task machen und als Beim Starten Des Computers
auswählen , der tast geht an z.b. Internet.bat

Fertig und viel spass .

der befehl command ist

C:\Dokumente und Einstellungen\Administrator>rasdial /?
Syntax:
rasdial Eintrag [Benutzername [Kennwort|*]] [/DOMAIN:Domänenname]
[/PHONE:Rufnummer] [/CALLBACK:Rückrufnummer]
[/PHONEBOOK:Telefonbuchdatei] [/PREFIXSUFFIX]

rasdial [Eintrag] /DISCONNECT

rasdial

Der Befehl wurde erfolgreich ausgeführt.



Getestet : Windows XP und Server 2003

Kommentar von Grcs Software am 30.12.2004 um 13:59

tja kann ich verstehen Hab da etwas besseres
versucht es mal mit reinem RAS !!! LOL !!!

Kommentar von am 28.12.2004 um 22:17

Irgendwie findet er bei mir keine DFÜ-Verbindung

Kommentar von Dieter am 15.07.2004 um 17:30

Der Tipp ist ja nicht schlecht, doch warum geht er auf einem Rechner und auf einem anderen (beide VB5 / ME / IE5) nicht?

Der Einwahldialog (obwohl er lt. Flag kommen sollte) erscheint nicht und es wird auch keine Verbindung aufgebaut.

Kommentar von Imanuel Sachse am 05.07.2004 um 07:00

Genau so einen Code brauche ich, aber in Visual Fox pro!!!
Kann das manchmal einer von euch "übersetzten"? Oder gib´s das villeicht als OCX??
Wäre spitze!

Kommentar von Grcs-Software am 08.05.2004 um 23:22

Das ist ein Toller Tipp !!!

Meine HP:
Hier geht es lang
oder Hier

Kommentar von Fatty am 05.03.2004 um 07:16

Hallo Katja,
was genau verstehst Du nicht, die Bezeichnung der Variablen und Constanten, oder den VB-Code?

Kommentar von Katja am 01.03.2004 um 12:27

Ich versuche gerade erstmal, den Code zu verstehen.
Wofür stehen denn die ganzen Abkürzungen in den verwendeten Constanten, Variablen, etc.? So kann ich leider nicht viel verstehen...

Kommentar von Fatty am 24.10.2003 um 18:34

Hallo Gerhard,
versuchs mal damit

Option Explicit

' zunächst die benötigten Deklarationen

Private Declare Function InternetQueryOption Lib _
  "wininet" Alias "InternetQueryOptionA" ( _
  ByVal hInternet As Long, _
  ByVal dwOption As Long, _
  ByRef lpBuffer As Long, _
  ByRef dwBufferLength As Long) As Long

Private Declare Function InternetSetOption Lib "wininet" _
  Alias "InternetSetOptionA" ( _
  ByVal hInternet As Long, _
  ByVal dwOption As Long, _
  ByVal lpBuffer As Long, _
  ByVal dwBufferLength As Long) As Long

Private Type INTERNET_CONNECTED_INFO
  dwConnectedState  As Long
  dwFlags As Long
End Type

Private Const INTERNET_OPTION_CONNECTED_STATE = 50
Private Const INTERNET_STATE_DISCONNECTED_BY_USER = &H10
Private Const INTERNET_OPTION_CONNECTED_STATE = 50
Private Const INTERNET_STATE_CONNECTED = &H1
Private Const INTERNET_STATE_DISCONNECTED_BY_USER = &H10
Private Const ISO_FORCE_DISCONNECTED = &H1


' Globaler Offline-Modus gestartet?
Private Function SystemOffline() As Boolean
  Dim lState As Long
  
  If InternetQueryOption(0, _
    INTERNET_OPTION_CONNECTED_STATE, _
    lState, Len(lState)) <> 0 Then
  
    SystemOffline = (lState And _
      INTERNET_STATE_DISCONNECTED_BY_USER)
  End If
End Function


' System in den Offlinebetrieb setzen
Public Sub System_SetOffline()
  Dim uINFO As INTERNET_CONNECTED_INFO
  Dim lResult As Long
  
  With uINFO
    .dwConnectedState = INTERNET_STATE_DISCONNECTED_BY_USER
    .dwFlags = ISO_FORCE_DISCONNECTED
  End With
  
  lResult = InternetSetOption(0, _
    INTERNET_OPTION_CONNECTED_STATE, _
    VarPtr(uINFO), Len(uINFO))
End Sub


' System in Onlinemodus setzen
Public Sub System_SetOnline()
  Dim uINFO As INTERNET_CONNECTED_INFO
  Dim lResult As Long
  
  With uINFO
    .dwConnectedState = INTERNET_STATE_CONNECTED
  End With
  
  lResult = InternetSetOption(0, _
    INTERNET_OPTION_CONNECTED_STATE, _
    VarPtr(uINFO), Len(uINFO))
End Sub

ist nicht von mir, ist von Dieter Otter
www.tools4vb.de/

Kommentar von am 23.10.2003 um 00:55

var heind dër für denign comment claif if völerikandefroid
ing mathne ain den resman sie oder diesem

Kommentar von Gerhard Wipplinger am 29.09.2003 um 14:59

Ich nutze die API-Funktion InternetDial in einem meiner Programme unter allen Windows Versionen. Sie funktioniert auch immer tadellos, es sei denn, man startet den Internet Explorer im Offlinebetrieb, dann wird die Einwahlmaske nicht angezeigt.
Deaktiviert man den Offlinebetrieb, wird die Einzahlmaske wieder angezeigt.
Was kann ich tun, um dieses Problem zu umgehen?
Da Programm wird mittleiweile bei ca. 550 Anwendern eingesetz.

Ich verwende Win2000 und IE5.5

Mfg
Gerhard Wipplinger

Kommentar von sD][ am 26.06.2003 um 03:07

also wer den Einwahldialog nicht sehen will bzw das einwählen unsichtbar im hintergrund haben will kann den Tip mit Tip Nr. 111 kombinieren und das Einwahlfenster an eine nicht sichtbare posi bewegen oder sehr sehr klein machen :-)

Kommentar von Dave am 13.06.2003 um 12:02

also wenn dieser scheiss einwahl dialog nicht kommen würde wärs cool

Kommentar von Tobias am 17.05.2003 um 13:49

Bei mir (WinXP, VB&) klappts ohne Probleme wenn ich Outlook (200) parallel laufen lasse.
Anscheinend werden beim Laden von Outlook irgentwelche Tools geladen?!
Wäre schö wenn es auch ohne diese Unterstützung laufen würde!

Kommentar von Markus am 24.03.2003 um 08:33

Hat bei mir nach kleinen Schwierigkeiten dann auch funktioniert unter w2k mit VB6. Habe dann aber doch eine andere Lösung realisiert ohne ein DFÜ oder ein Festern usw.!!! :-) Auch eine aktive DFÜ wird beendet. Läuft jetzt als EXE, ActiveX oder unter VBA, egal ob mit analog oder idsn.

Kommentar von SPOM am 19.02.2003 um 22:57

Also ich habe den Quelltext in einem meiner Programme eingesetzt. Er läuft unter allen Win9X, Win2K und WinXP - Systemen völlig problemlos.
Es ist unbedingt erforderlich, dass die Verbindung mit eingabe eines Passworts erfolgreich gestartet wurde und das Passwort gespeichert wurde. Sonst läuft die Einwahl auf den Hammer. In meinem Programm habe ich das so geregelt, dass der User auswählen kann, ob manuell oder automatisch angewählt werden soll. Gibt es bei der Automatik Probleme (wurde das Passwort noch nicht hinterlegt), kann er den normalen Dialog öffnen lassen und somit seine Einwahl regeln.

Kommentar von Kögler Rudi am 19.02.2003 um 22:00

Was soll denn solch ein Programm-Code, der auf 50 % aller Rechner NICHT funktioniert ? Also Finger weg von solch einem Kram! Unter Win95/98 mag das ja funktionieren, aber auf nem WinXP Rechner hört man auf!!

Kommentar von SPOM am 08.01.2003 um 13:36

Hier ein paar meiner Erfahrungen mit dem Code. Ich habe ihn in meinem Projekt eingebunden und er läuft auf allen bisher getesteten Windows - Systemen (9x, 2000 und auch XP)

Wird der Befehl mit der Konstanten
DIAL_FORCE_UNATTENDED gestartet, kann die Verbindung nicht aufgebaut werden, wenn das Passwort nicht fest gespeichert wurde, weil keine Benutzereingabe erfolgt und ohne Passwort nicht verbunden werden kann. Die Verbindung muss mindestens einmal erfolgreich mit einem Passwort und der Option Passwort speichern aufgebaut worden sein, damit die Verbindung künftig mit dieser Konstanten aufgebaut werden kann.

Kommentar von C.Kaempf am 28.11.2002 um 08:45

Dieser Tip leuft leider nicht immer korrekt ab bei manschen Verbindungen kommt Rückgabewert 89 unter win2000, hat jemand eine Lösung für dieses Problem.
Danke für die Hilfe.CK

Kommentar von Erhard Roth am 09.08.2002 um 09:48

Mein Rechner WIN XP wählt sich bei öffenen von outlook oder internet explorer immer und immer wieder in Internet ein, auch wenn ich uf abbrechen gehe.

Kommentar von Alexander am 17.07.2002 um 11:58

ich habe diesen tip mit Form1.Show vbModal eingefügt. wenn ich das Programm noch unter VB6 starte geht alles wunderbar. Installiere ich mein Programm auf WinXP wird mir nicht einmal mehr das Form1 angezeigt! das komplette Programm wird abgebrochen. Kann man das etwas machen?

Kommentar von Heli am 01.07.2002 um 14:43

Hätte diesen Tipp 49 gerne in meine Applikation eingebeut, nach Durchlesen der Kommentare weiß ich aber nicht wirklich, ob ich das tun soll - meine Applikation muß nämlich auf allen Windows-System laufen...
Soll ich nun oder lieber nicht???

Kommentar von unbekannt am 14.03.2002 um 20:45

nt4-server und win98

Kommentar von David Schüler am 30.01.2002 um 21:06

@ALL:
Ich habe in der letzten Zeit viele Anfragen zum Einwahl-Code bekommen, der sich "lautlos" im Hintergrund einwählt. Vielleicht habe ich das mit dem "lautlos" nicht bedacht bein schreiben des Posts.
Letztens bekam ich eine Antwort auf eine eMail von jemandem, der auch den Code habe wollte, in der stand, daß er den Code nur für seinen Trojaner brauche, der sich dann "lautlos" im Hintergrund einwählen solle. Das hat mich so enttäuscht, so daß ich den Code nicht mehr Verschicke und auch auf KEINE Anfrage mehr reagiere!!!
Für soetwas habe ich den Code nicht geschrieben!
Sorry! Aber ich helfe keinen Leuten mit "kriminellen" Hintergedanken.
Gruß
David

Kommentar von Christian Tiede am 23.01.2002 um 11:34

Ich kann den Internet Explorer nicht mehr starten. Folgende Fehlermeldung wird angezeigt
======================
IEXPLORE verursachte einen Fehler durch eine ungültige Seite
in Modul WININET.DLL bei 016f:73db3c34.
Register:
EAX=00000000 CS=016f EIP=73db3c34 EFLGS=00010246
EBX=00000224 SS=0177 ESP=01adf338 EBP=01adf350
ECX=ffffffff DS=0177 ESI=0a18c880 FS=538f
EDX=82dec880 ES=0177 EDI=0a18c880 GS=0000
Bytes bei CS:EIP:
f2 ae f7 d1 49 89 75 f8 8b d9 0f 84 7c 50 05 00
Stapelwerte:
00421800 82dec880 00000224 00000000 00421800 00421b58 01adf484 73e0796a 82dec880 01adf370 01adf474 00000000 00421800 bff6bb13 00000000 00000000 IEXPLORE verursachte einen Fehler durch eine ungültige Seite
in Modul WININET.DLL bei 016f:73db3c34.
Register:
EAX=00000000 CS=016f EIP=73db3c34 EFLGS=00010246
EBX=00000224 SS=0177 ESP=01adf338 EBP=01adf350
ECX=ffffffff DS=0177 ESI=0a18c880 FS=538f
EDX=82dec880 ES=0177 EDI=0a18c880 GS=0000
Bytes bei CS:EIP:
f2 ae f7 d1 49 89 75 f8 8b d9 0f 84 7c 50 05 00
Stapelwerte:
00421800 82dec880 00000224 00000000 00421800 00421b58 01adf484 73e0796a 82dec880 01adf370 01adf474 00000000 00421800 bff6bb13 00000000 00000000
======================
Gruß Ch.Tiede

Kommentar von DaveStar am 30.12.2001 um 14:34

ACHTUNG!!!
Ich weiss ja nicht, aber bei mir hat dieser Tipp seltsame nebenwirkungen!!!!!!
Mein Computer wählt sich andauernd ohne mein wissen ins Internet ein!
Ich hab ISDN, höre nichts, sehe nichts!
Klicke auf Verbinden, dann ist schon verbunden, trenne ich die Verbindung, ist sie kurze Zeit später wieder automatisch hergestellt, ohne dass mir das mitgeteilt wird!
Dieses Problem tritt erst auf, seit dem ich diesen Tipp ausprobierte, er funktionierte zwar nicht, aber dass sind nun die folgen...
Kann mir jemand sagen wie ich das wieder wegkriege?
DaveStar

Kommentar von DaveStar am 29.12.2001 um 16:52

Hab ISDN, geht bei mir nicht, ich klicke, nix passiert, warte, warte, warte...
nix passiert!

Kommentar von Thomas Keider am 08.11.2001 um 13:59

Hallo,
bins noch mal. Läuft das auch unter WIN 2000 Prof?
Gruß Thomas

Kommentar von Thomas Keider am 08.11.2001 um 13:58

Hallo,
ich habe schon lange nicht mehr reingeschaut. Doch das finde ich super. Ich habe mich mit einer Sharware begnügt, doch jetzt kann ich das was ich mal angefangen habe vollenden. Vielen Dank.
Gruß Thomas

Kommentar von David am 26.10.2001 um 12:48

Ich habe nun eine Lösung zum Problem gefunden. Die Einwahl läuft jetzt vollständig im Hintergrund ab. Ich hab das ganze nocch als Dienst laufen. Nachteil: der Dienst darf sich nicht mit "LocalSystem" anmelden, sondern muß einen User-Account (z.B. Anministrator) bekommen.
MfG
David
P.S.: Wer den Sourcecode zur "lautlosen" Internet-Einwahl mal haben will schickt mir einfach mal 'ne Mail an vb@schueler-page.de

Kommentar von David am 25.10.2001 um 08:30

Hallo!
Ich habe den Tipp unter Winindows2000-Server ausprobiert und es funktioniert auch. Es gibt da aber ein kleines Problem.
Ich veersuche nun schon seit einiger Zein ein Programm zu schreiben, welches als Systemdienst beim Start läuft, sich automatisch (im Hintergrund!) einwählt und eine IP-Adresse bei meinem Provider Updatet. Probelem bei der Sach ist, daß das alles im HINTERGUND(!) ablaufen soll. mit diesem Tipp ist das leider nicht möglich. Das Update für den Provider funktioniert ja schon, nur die Einwahl funzt eben noch nicht.
Hat irgendjemand eine Idee oder einen Vorschlag, wie ich das lösen kann?
MfG
David

Kommentar von patrick am 19.09.2001 um 16:00

Also bei mir funktioniert das wunderbar unter win2k. Das Problem mit der conid stimmt zwar, aber es lässt sich einfach lösen.
Bekanntlich wird ja die ConID nur zum Auflegen benutzt. Einfach mit einer For-Next Schleife von 0 bis 10000 oder so alle ConID´s beim Auflegen abtasten und er legt garantiert auf.
Patrick

Kommentar von Ying Kai Chow am 04.09.2001 um 11:54

Wie kann man über VB eine Dfü-Verbindung "erstellen" - also es ist gibt noch keine Dfü-Verbindung der Rechner hat aber die vorraussetzungen

Kommentar von Peter Reder am 31.08.2001 um 08:40

Bei mir läuft es nicht unter W2K und IE5.5 was kann ich tun!

Kommentar von Thomas Keider am 04.05.2001 um 19:32

Habe das automatische Einwahlprogramm getestet und ist gut. Doch dieses DFÜ-Einwahlfenster von Win2000 will ich nicht sehen. Ich suche eine Einwahlmöglichkeit die ganz und gar unsichtbar im hintergrund läuft.
Gibt es noch einen Tip, wie ich meine Emails (Anzahl und evtl. Betreff) im Hintergund abfragen könnte ?
Gruß Thomas Keider

Kommentar von Sascha am 07.04.2001 um 13:36

Zu Tip 49: Habe Win98 SE und VB 6 Ent. IE 5.5. Leider tut sich irgendwie garnichts. Tip 9 geht... eigendlich alle sonst. Woran kanns liegen?

Kommentar von Uwe Gawehn am 06.03.2001 um 23:35

Unter Win2k mit VB6 funktioniert dieser Tip nicht immer. In der ConID wird dann der Wert 0 zurückgegeben. Nach einem Neustart des Rechners funktioniert das Ganze dann wieder. Offenbar kein Fehler, sondern ein Feature von Win2k.
Uwe

Kommentar von majo am 15.02.2001 um 09:03

Bei meinem Rechner funktioniert das ganze
(NT4 Server SP5 IE5.5)
Bei einigen anderen nicht (WIN98 IE5, oder NT4 server IE5)
nicht. Wieder bei einen anderen (win98 ie5) funktioniert es dann doch!
Bei den Rechner wo es nicht funktioniert ist der Returncode :86
Was mache ich falsch????
Vielen Dank im vorraus
Majo

Kommentar von Stefan am 08.02.2001 um 20:19

Bei WinME passiert beim Betätigen der Verbinden-Schaltfäche gar nichts. Bitte Hilfe

Kommentar von scholle am 20.01.2001 um 14:30

Wie kann ich das Kennwort für die DFÜ-Verbindung mit übergeben?

Kommentar von Andreas Pitsch am 08.12.2000 um 10:23

Ein Frage zum Tip 49: Ist es möglich den Einwahldialog auszublenden, d.h. der User soll die Einwahl gar nicht merken ?????

Kommentar von Konrad Danner am 15.11.2000 um 10:58

Diese Funktion scheint unter Windows2000 nicht zu funktionieren!

Kommentar von Vogt am 21.10.2000 um 17:27

Ich habe auf dem fraglichen Rechner VB 6 neu installiert (welcher auch den IE 4 haben will). Nun läuft das Programm problemlos (wininet.dll wurde dabei offenbar ersetzt).
Vielen Dank
Arnold

Kommentar von Götz Reinecke am 21.10.2000 um 15:45

Hallo,
dann gibt es die dll bei Dir nicht. Hast du vielleicht zufällig den IE deinstalliert? Welchen IE nutzt Du und welches OS hast Du?
Grüße
Götz

Kommentar von vogt am 20.10.2000 um 18:38

DLL Einspung InternetDial in wininet.dll nicht gefunden.
was kann man tun?
Windows 95 VB 6
Gruss
A.Vogt