[AccessD] A2003:Start a dial up connection

Gustav Brock Gustav at cactus.dk
Thu Apr 6 07:51:19 CDT 2006


Hi Darren

I have no dial-up connection at hand, but can't you just check if some URL exists?

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) _
  As Long

Public Function IsURL(ByVal strURL As String) As Boolean

' Usage: Check if URL strURL is alive and reachable.
'   booURL = IsURL("http://www.ibm.com")
'   booURL = IsURL("ftp://ftp.novell.com")
'
' Note: Protocol header like "http://" must be provided.
'
' 2001-12-09. Cactus Data ApS. CPH.

  ' File found at most URLs.
  Const cstrFileIndex As String = "index.htm"

  IsURL = (URLDownloadToFile(0, strURL, cstrFileIndex, 0, 0) = 0)
  
End Function

/gustav

>>> darrend at nimble.com.au 06-04-2006 14:35:18 >>>
Hi All
In an Access app I have - I need to start up the local dial up connection
This if for my personal machine - using dial up only
 
I used to know (probably can find it again) the command line
for starting the default dial up screen - but it starts the screen that requires

someone to click the 'Connect' or 'Dial'  button
 
I have seen apps use the connection to 'just dial' with no user intervention
Such as Virus Updaters etc
 
Anyone know the command line or the relevant exe?
 
Many thanks in advance
 
Darren




More information about the AccessD mailing list