; Connect/Disconnect from the Internet via default connection.
; By PB -- please feel free to use in any way you wish.  :)
; Note 1: Requires Win98 or higher, or Win95 with Internet Explorer 4.
; Note 2: Username and password must be "remembered" for this to work.
;
If InternetGetConnectedState_(0,0)=#True
  Debug "Already connected by another process!"
Else
  isp$="D-Link iPrimus DSL Connection" ; Default connection name.
  ConnectionID=1 ; 1 = Any number you want to identify this connection.
  If InternetDial_(0,isp$,2,@ConnectionID,0) <> #ERROR_SUCCESS
    Debug "Connection was unsuccessful..."
  Else
    Debug "Connected successfully!"
    Debug "Press SPACE when ready to disconnect..."
    GetAsyncKeyState_(#VK_SPACE) ; Clear space buffer before testing.
    Repeat : Sleep_(1) : Until GetAsyncKeyState_(#VK_SPACE)=-32767
    Debug "Disconnecting... (May take a few seconds)."
    InternetHangUp_(ConnectionID,0)
    Debug "Disconnected."
  EndIf
EndIf