mit InternetDial_() ins Internet verbinden

[blbltheworm]

Hallo zusammen,
folgender Code sollte eigentlich einen DFÜ-Dialog zum Herstellen einer Verbindung ins Internet aufrufen.
Tut er aber nicht (ich hab ihn aus einem alten VB-Beispiel)

Code: Alles auswählen

#DIAL_FORCE_ONLINE = 1
#DIAL_FORCE_UNATTENDED = 2

Procedure RASConnect(WindowID.l,ConnectionName.s="",AutoStart.l=#False)
Protected conID.l, nFlag.l, Err.l
  
  If AutoStart=#True
    nFlag=#DIAL_FORCE_UNATTENDED
  Else
    nFlag=#DIAL_FORCE_ONLINE
  EndIf
  
  Err = InternetDial_(WindowID,ConnectionName,nFlag,conID,0)
  Debug Err
  ProcedureReturn conID
EndProcedure

OpenWindow(0,10,10,100,50,"zum Internet verbinden")

If RASConnect(WindowID(0),"Arcor - Nacht")
  SetWindowTitle(0,"Verbunden")
Else
  SetWindowTitle(0,"Fehler")
EndIf

Repeat
  
Until WaitWindowEvent()=#PB_Event_CloseWindow

[blbltheworm]

Als kleine Ergänzung:
Die Funktion InternetDial_() gibt 87 zurück.
Weiß wenigstens jemand was das heißt??

[DarkDragon]

ERROR_INVALID_PARAMETER One or more of the parameters are incorrect.

Vielleicht mal folgendes probieren:

Code: Alles auswählen

InternetDial_(WindowID,@ConnectionName,nFlag,@conID,0)

[blbltheworm]

Code: Alles auswählen

InternetDial_(WindowID,ConnectionName,nFlag,@conID,0)

so tuts.
Vielleicht sollte ich das nächste mal, wenn ich von VB was übersetzt auf ByRef und ByVal achten