VC 创建拨号连接A

首先是用ICMP检查网络是否连通：

bool  Util::CheckInternet()
{
     char   * SendData  =   " Data Buffer " ;
    LPVOID ReplyBuffer;
    DWORD dwRetVal;
    HANDLE hIcmpFile;
     bool  b = false ;
     if  ((hIcmpFile  =  IcmpCreateFile())  ==  INVALID_HANDLE_VALUE)
         return   false ;

    ReplyBuffer  =  (VOID * ) malloc( sizeof (ICMP_ECHO_REPLY)  +   sizeof (SendData));
     if  ((dwRetVal  =  IcmpSendEcho(hIcmpFile, 
        inet_addr( " 209.131.36.158 " ), //用的雅虎的一个IP，可能延迟会大一点，用国内的会小一点
        SendData,  sizeof (SendData), 
        NULL, ReplyBuffer, 
         sizeof (ReplyBuffer)  +   sizeof (ICMP_ECHO_REPLY),
         1000 ))  !=   0 ) {
        b = true ;
    }
    free(ReplyBuffer);
     return  b;
}

很简单的几行代码，没有注释；
如果网络不通的话枚举拨号连接，进行拨号：

bool  RASManager::ConnectNetwork()
{
    RASENTRYNAME Entries[ 15 ];   
    DWORD cb,cEntries,dwRet;   
    Entries[ 0 ].dwSize = sizeof (RASENTRYNAME);   
    cb = sizeof (Entries);   
    cEntries = 0 ;   
    
    dwRet = ::RasEnumEntries(NULL, NULL,  & Entries[ 0 ],  & cb,  & cEntries); // 如果函数成功，则返回0   
    
     if (dwRet  ==   0 )   
    {
        CHAR  szRasEntryName[RAS_MaxEntryName  +   1 ] = { 0 };
         for (UINT i = 0 ;i < cEntries;i ++ )
            strcpy(szRasEntryName,Entries[i].szEntryName);
        RASDIALPARAMS rdParams;
        DWORD dwRet;
        hConn = NULL;
        rdParams.dwSize = sizeof (RASDIALPARAMS);
        strcpy(rdParams.szEntryName,szRasEntryName);
        strcpy(rdParams.szPhoneNumber, " #777 " ); // 我用的3G卡，拨#777号码
        strcpy(rdParams.szUserName, " 用户名 " );
        strcpy(rdParams.szPassword, " 密码 " );
        strcpy(rdParams.szDomain,"");//这个也很重要，指定域，如果不指定这个的话下面注释的两句一定要加上，下边两句的意思是获取最后一次连接成功时的参数信息，如果用下边两句的话连同这行和这行上面的三行都可以省略
       // BOOL fPass;
        //RasGetEntryDialParams(NULL,  & rdParams, & fPass);
        dwRet = RasDial(NULL,NULL, & rdParams, 0L ,NULL, & hConn);
         if (dwRet != 0 )
        {
             return   false ;
        }
         return   true ;
    }    
     else     
    {    
         return   false ;
    }
}

预先建立拨号连接，以上拨号代码经过修改已经不需要保存密码，只建立一个拨号连接即可。Windows XP or later:   Do not use the RasSetEntryDialParams function. MSDN上面的说法就是RasSetEntryDialParams 别在XP之后的系统上使用了。
检查拨号连接的状态，如果已经通过拨号连接上了网络当然不用再进行拨号了，代码如下：

bool  RASManager::RasGetConnectStatus()
{
    LPRASCONN lpRasConn  =  NULL;    
    DWORD   cbBuf    =     0 ;    
    DWORD   cConn    =     0 ;    
    DWORD   dwRet    =     0 ;    
    HRASCONN  hrasconn;
     bool     bResult = FALSE;
    RASCONNSTATUS rasStatus;    
    UINT   ndx;
    cbBuf  =   sizeof (RASCONN);
    lpRasConn  =  (LPRASCONN)malloc((UINT)cbBuf);  
     if  (lpRasConn  !=  NULL)
    {    
        lpRasConn -> dwSize  =   sizeof (RASCONN);    
        dwRet  =  RasEnumConnections(lpRasConn, & cbBuf, & cConn);  
         for (ndx = 0 ;ndx < cConn;ndx ++ )      
        {
            hrasconn  =  lpRasConn[ndx].hrasconn;            
            rasStatus.dwSize  =   sizeof (RASCONNSTATUS);
            dwRet  =  ::RasGetConnectStatus(hrasconn, & rasStatus);
             if (dwRet)    
                bResult = FALSE;    
             else
            {    
                 if (rasStatus.rasconnstate  ==  RASCS_Connected)    
                    bResult = TRUE;    
                 else
                    bResult = FALSE;    
            }
        }
    }
     else
        bResult = FALSE;
    free(lpRasConn);
     return  bResult;
}

以上判断是如果检查到有一个已经连接的拨号连接就返回了，应该不会有两个或者以上的拨号连接同时连接，打开端口会失败的。
还有一个是断线：

void  RASManager::HungUP()
{
    LPRASCONN lpRasConn = NULL;
    DWORD   cbBuf  =   0 ;
    DWORD   cConn  =   0 ;
    DWORD   dwRet  =   0 ;
    HRASCONN   hrasconn;
    RASCONNSTATUS rasStatus;
    UINT   ndx;
    
    cbBuf  =   sizeof (RASCONN);
    lpRasConn  =  (LPRASCONN)malloc((UINT)cbBuf);
     if (lpRasConn  !=  NULL)
    {
        lpRasConn -> dwSize  =   sizeof (RASCONN);    
        dwRet  =  RasEnumConnections(lpRasConn, & cbBuf, & cConn);  
        
         for (ndx = 0 ;ndx < cConn;ndx ++ )
        {
            hrasconn  =  lpRasConn[ndx].hrasconn;
            rasStatus.dwSize  =   sizeof (RASCONNSTATUS);
            dwRet  =  ::RasGetConnectStatus(hrasconn, & rasStatus);
             if ( ! dwRet)
            {
                 if (rasStatus.rasconnstate  ==  RASCS_Connected)
                    RasHangUp(hrasconn);
            }
        }
        free(lpRasConn);
    }
}

这个没什么好说的，执行关闭拨号连接的操作。
用程序创建连接，经过修改，已经可以正常创建连接，代码如下：

bool  RASManager::CreateRASLink()
{
    LPRASENTRY lpRasEntry  =  NULL;
    DWORD cb  =   sizeof (RASENTRY);
    DWORD dwBufferSize  =   0 ;
    DWORD dwRet  =   0 ;
    
    
     //  取得entry的大小,这句也不知道是不是必须的,因为sizeof(RASENTRY)和这里取到的dwBufferSize是一样的,不过还是Get一下安全点
    RasGetEntryProperties(NULL, "" , NULL,  & dwBufferSize, NULL, NULL); 
     if  (dwBufferSize  ==   0 )
         return   false ;
    
    lpRasEntry  =  (LPRASENTRY)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, dwBufferSize);
     if  (lpRasEntry  ==  NULL)
         return   false ;
    
    ZeroMemory(lpRasEntry,  sizeof (RASENTRY));
    lpRasEntry -> dwSize  =  dwBufferSize;
    lpRasEntry -> dwfOptions  =  RASEO_RemoteDefaultGateway|RASEO_PreviewPhoneNumber|RASEO_PreviewUserPw;  // 这里的几个选项挺重要的， RASEO_RemoteDefaultGateway这个选项把创建的连接设置为默认连接， RASEO_PreviewPhoneNumber 对应选项中的提示输入电话号码， RASEO_PreviewUserPw对应选项中的提示用户名和密码
    lpRasEntry -> dwType  =  RASET_Phone;
    
    lstrcpy(lpRasEntry -> szDeviceType, RASDT_Modem);
    lstrcpy(lpRasEntry -> szDeviceName, " www " );
    lpRasEntry -> dwfNetProtocols  =  RASNP_Ip;
    lpRasEntry -> dwFramingProtocol  =  RASFP_Ppp;
    
    dwRet  =  RasSetEntryProperties(NULL,  " www " , lpRasEntry, dwBufferSize, NULL,  0 );  //  创建连接
// The RasSetEntryProperties function changes the connection information for an entry in the phone book or creates a new phone-book entry.（reference MSDN）
    HeapFree(GetProcessHeap(),  0 , (LPVOID)lpRasEntry);
    
     if  (dwRet  !=   0 )
         return   false ;
     return   true ;
}

上面的代码到是可以创建一个拨号连接，不过是个空的，里面没用用户名和密码等信息，需要用上面的拨号代码来指定拨号参数，不能使用RasGetEntryDialParams来获取了。
上面的代码基本上是在网络上搜索所得，稍加修改，在这里整理一下。

再补充一下删除连接的操作,代码如下：

void  RASManager::DeletePhoneBookEntry()
{
    RASENTRYNAME Entries[ 15 ];   
    DWORD cb,cEntries,dwRet;
    Entries[ 0 ].dwSize = sizeof (RASENTRYNAME);   
    cb = sizeof (Entries);
    cEntries = 0 ;   
    
    dwRet = ::RasEnumEntries(NULL, NULL,  & Entries[ 0 ],  & cb,  & cEntries); // 如果函数成功，则返回0   
    
     if (dwRet  ==   0 )   
    {
        CHAR  szRasEntryName[RAS_MaxEntryName  +   1 ] = { 0 };
         for (UINT i = 0 ;i < cEntries;i ++ )
        {
            strcpy(szRasEntryName,Entries[i].szEntryName);
            RasDeleteEntry(NULL,szRasEntryName);
        }
    }
}

要想实现自动启动拨号网络，就要使用 Remote Access Service (RAS) API，这个API最早是在Windows for Workgroup 3.11中出现的，现在它已经成为Win32 API的一个组成部分。该API将整个拨号网络称为Phonebook，而每一个连接称为PhonebookEntry。你可以使用 RasCreatePhonebookEntry来创建新的连接，用RasDial来拨号，而RasEnumEntries可以获得当前系统已有的所有连 接，使用其它的RAS函数还可以获取或设置连接的参数。 RasEditPhonebookEntry函数将激活标准的Windows 95/NT属性对话框来修改连接的属性。你可以从Win32 API的手册找到所有相关函数的详细介绍。

补充：在windows中一个拨号连接即为一个PhonrbookEntry以下称为电话薄记录或是连接。总的这些称为Phonebook。