Dial-Up connection

Environment: VC6.0 Win98

Hi all,

There is a code for Dial-Up connection. Aleksander Mikula had already posted his code for disconnecting dial-up connection. This is other part od same problem (accessing internet via phone line). This task can be done by using CInternetSession::GetFtpConnection() function for example, but only if all parameters in dial-up dialog are present (and then you don't set username, password and phone number programaticaly).

For using this function you must include "ras.h" and "raserror.h" header files and link with rasapi32.lib.

bool  DialUp() 
    	rdParams.dwSize = sizeof(RASDIALPARAMS);    
	rdParams.szEntryName[0] = '\0';
    	lstrcpy( rdParams.szPhoneNumber, szPhoneNumberToDial );
    	rdParams.szCallbackNumber[0] = '\0';
    	lstrcpy( rdParams.szUserName, szUserName );
    	lstrcpy( rdParams.szPassword, szPassword );    
	rdParams.szDomain[0] = '\0';
    	HRASCONN hRasConn = NULL;
    	DWORD dwRet = RasDial( NULL, NULL, &rdParams, 0L, NULL, &hRasConn );
    	if ( dwRet == 0 )  
		return true;    
	char  szBuf[256];
	if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )
        	wsprintf( (LPSTR)szBuf, "Undefined RAS Dial Error (%ld).", dwRet );
    	RasHangUp( hRasConn );
    	AfxMessageBox( NULL, (LPSTR)szBuf, "Error", MB_OK | MB_ICONSTOP );
    	return false;

Note that here I'm using sinhrone version (five parameter of RasDial() is NULL). Updated version can use pointer to RasDialFunc() function instead, and then RasDial() returns immediately and calls RasDialFunc() when WM_RASDIALEVENT is occur.

Download demo project - 10KB


Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Moving from an on-premises environment to Office 365 does not remove the need to plan for disruptions or reduce the business risk requirements for protecting email services. If anything, some risks increase with a move to the cloud. Read how to ease the transition every business faces if considering or already migrating to cloud email. This white paper discusses: Setting expectations when migrating to Office 365 Understanding the implications of relying solely on Exchange Online security Necessary archiving …

  • Enterprises are increasingly looking to platform as a service (PaaS) to lower their costs and speed their time to market for new applications. Developing, deploying, and managing applications in the cloud eliminates the time and expense of managing a physical infrastructure to support them. PaaS offerings must deliver additional long-term benefits, such as a lower total cost of ownership (TCO), rapid scalability, and ease of integration, all while providing robust security and availability. This report …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date