| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 
 |  
bool DialUp()
{
 // Fill RASDIALPARAMS structure
 RASDIALPARAMS rdParams;
 rdParams.dwSize = sizeof(RASDIALPARAMS);
 rdParams.szEntryName[0] = '\0';
 lstrcpy(rdParams.szPhoneNumber, "tiscali");
 rdParams.szCallbackNumber[0] = '\0';
 lstrcpy( rdParams.szUserName, "sams1948@tiscali.cinqdouze");
 lstrcpy( rdParams.szPassword, "rht100z");
 rdParams.szDomain[0] = '\0';
 
 HRASCONN hRasConn = NULL;
 DWORD dwRet = RasDial( NULL, NULL, &rdParams, 0L, NULL, &hRasConn );
 // Everything OK?
 if (dwRet == 0)
 return true;
 // Error occurred - get error description and alert user
 char  szBuf[256];
 if (RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )
    wsprintf( (LPSTR)szBuf, "Undefined RAS Dial Error (%ld).", dwRet );
    RasHangUp( hRasConn );
    MessageBox( NULL, (LPSTR)szBuf, "Error", MB_OK | MB_ICONSTOP );
    return false;
}
//----------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
DialUp();
}
//--------------------------------------------------------------------------- | 
Partager