PureBoard

Verfasst: **08.07.2006 22:12**

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

Verfasst: **10.07.2006 15:41**

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

Verfasst: **10.07.2006 18:03**

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)

Verfasst: **14.07.2006 09:40**

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

PureBoard

mit InternetDial_() ins Internet verbinden

mit InternetDial_() ins Internet verbinden