Soulseek1337
Grünschnabel
Moin zusammen,
ich such einen Code in vb, der sich automatisch mit der als Standartverbindung gewählten DFÜ-Ververbindung ins Netz einwählt sofern keine Verbindung besteht. Ich habe bereits unter ActiveVB - Tipp 0049: DFÜ-Verbindung automatisch starten was dazu im Internet gefunden. Nur wenn ich das in meinen Code einbinde bekomm ich einiges an Problemen:
- Type 'statements are no longer supported; use 'Structure' statements instead
- dwSize = Declaration expected
- szEntryName = Declaration expected
- Type RASENTRYNAME95 is not defined
- Name VarPtr is not declared
- Name vbUnicode is not declared
- Left$ Public Property Left() As Integer has no parameters and its return type cannot be indexed
- Me.hWnd is not a Member of ....
der Code scheint VB6 zu sein, da ich aber .net brauche komme ich nicht weiter. Kann mir einer helfen?
thx vorab !
EDIT:
wäre das ganze folgendermaßen möglich:
steht strEntryName für den Namen der DFÜ - Verbindung ?
ich such einen Code in vb, der sich automatisch mit der als Standartverbindung gewählten DFÜ-Ververbindung ins Netz einwählt sofern keine Verbindung besteht. Ich habe bereits unter ActiveVB - Tipp 0049: DFÜ-Verbindung automatisch starten was dazu im Internet gefunden. Nur wenn ich das in meinen Code einbinde bekomm ich einiges an Problemen:
- Type 'statements are no longer supported; use 'Structure' statements instead
- dwSize = Declaration expected
- szEntryName = Declaration expected
- Type RASENTRYNAME95 is not defined
- Name VarPtr is not declared
- Name vbUnicode is not declared
- Left$ Public Property Left() As Integer has no parameters and its return type cannot be indexed
- Me.hWnd is not a Member of ....
der Code scheint VB6 zu sein, da ich aber .net brauche komme ich nicht weiter. Kann mir einer helfen?
thx vorab !
EDIT:
wäre das ganze folgendermaßen möglich:
Code:
Für Windows NT4 und 2000 gibt es das Programm rasdial.exe, dem zusätzlich noch die Zugangsdaten des Benutzers (Name,Passwort,Domäne) übergeben werden können :
Dim strEntryName as String
Dim strUserName as String
Dim strPassword as String
strEntryName = "Verbindungsname"
'Eine Verbindung aufbauen
Call Shell("RASDIAL " & chr$(34) & strEntryName & chr$(34))
'Eine Verbindung mit Benutzername und Passwort aufbauen
Call Shell("RASDIAL " & chr$(34) & strEntryName & chr$(34) & _
" " & strUserName & " " & strPassword)
'Eine Verbindung abbauen
Call Shell("RASDIAL " & chr$(34) & strEntryName & chr$(34) & " /DISCONNECT")
steht strEntryName für den Namen der DFÜ - Verbindung ?
Zuletzt bearbeitet: