Hvordan opratter jeg en RAS forbindelse

Private Sub RASConnect(ConnectionName As String)
Dim x As Long
x = Shell("RASDIAL " & ConnectionName, 1)
x = Shell("RASPhone -s", vbMinimizedNoFocus)
End Sub

Private Sub RASDisc()
Dim x As Long
x = Shell("RASDIAL /d", vbMinimizedNoFocus)
End Sub

Dette skulle virke paa Windows NT, 2000 og XP.

Du kalder funktionen med:
RASConnect("connString username password")
hvor 'connString' er navnet paa en dial-up shortcut du allerede har lavet, username og password giver sig selv....

Brug RASDisc til at disconnecte.

Det virker bare supert godt :-), smid et svar og du får point

Du skulle vel ikke vide hvordan man kontrollerer at RAS forbindelsen er etableret ?

hmm, jo du kan pinge en kendt IP. Jeg skal grave noget frem om et par timer.

Jeg har gravet et lille project frem jeg brugte for lang tid siden. Hvis du laegger en email addresse kan jeg zippe det op og sende det til dig. Du kan saa selv pille det ud du skal bruge ?

OK
  ser@ fjern dette sr2.dk

check din inbox