Dial-Up Networking Sample Winsock App

Keywords:  DUNItemize DUNConnect  

---

;**************************************************************************
;		 DIAL-UP NETWORKING SAMPLE WINSOCK APP
;
; Usage: Run this file from WinBatch:
;	 DialUp.WBT
;
; Author: Jennifer Palonus (GDI)
; 
;  Date	   Major changes
; -------  ----------------------------------------------------------------
; 30mar96  Created.
; 30apr96  
;**************************************************************************
sTitle = "DUN Tester"


AddExtender ("wwwsk34I.dll")


;Dial our host, asking first if user has more than 1 defined...
hConn = 0
sDialUps = DUNItemize ()
if (ItemCount(sDialUps,@TAB) == 1)
	sDial = sDialUps
else
	sDial = AskItemList ("Choose a dial-up connection", sDialUps, @TAB, @SORTED, @SINGLE)
endif

hConn = DUNConnect (sDial)
nErr = wxGetLastErr()
if (!hConn)
	select (nErr)
		case @SErrBusy
			Message (sTitle, "Couldn't connect to %sDial%: Line busy.")
			break
		case @SErrNoAnswer
			Message (sTitle, "Couldn't connect to %sDial%: No answer.")
			break
		case @SErrVoice
			Message (sTitle, "Couldn't connect to %sDial%: A human answered.")
			break
		case nErr
			Message (sTitle, "Couldn't connect to %sDial%: Error %nErr%.")
	end select
	exit
else
	Message (sTitle, "Connected to %sDial%.%@CRLF%Connect handle = %hConn%, error %nErr%.")
endif


Delay (5)


; Hang up...
:HangUp
nRet = DUNDisconnect (hConn)

---

Article ID:   W12633

Filename:   Dialup Networking.txt