Database Search

TechHome

• Design Your Own Web Browser
• Dialup Networking
• Get a Finger Request
• Get Status of UPS Package
• Mailbox Scanner
• Process Form Response in Mailbox
• Send a GET or POST Request to CGI Server
• Send Mail with SMTPSendText
• URLEncode and URLDecode Example

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

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

File Created: 2001:03:01:15:11:02

Last Updated: 2001:03:01:15:11:02