发现在windows 2003可以不用装RASPPPoE的方法，（xp估计也可以，没试过）修改注册表里HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0004
下的WanEndpoints的数值，修改为99，就可以同时连接99个PPPOE拨号，不过这么多个连接CPU要顶得住
重新启动就可以在系统建立并连接多个PPPOE拨号了。

#include "UniBase.h"
#include "ZLib/ZLib.h"
#pragma comment(lib, "ZLib/ZLib.lib")

// Values used in typeflag field
#define REGTYPE       '0'       // regular file
#define AREGTYPE      '\0'      // regular file
#define LNKTYPE       '1'       // link
#define SYMTYPE       '2'       // reserved
#define CHRTYPE       '3'       // character special
#define BLKTYPE       '4'       // block special
#define DIRTYPE       '5'       // directory
#define FIFOTYPE      '6'       // FIFO special
#define CONTTYPE      '7'       // reserved

//  GNU tar extensions
#define GNUTYPE_DUMPDIR   'D'       // file names from dumped directory
#define GNUTYPE_LONGLINK  'K'       // long link name
#define GNUTYPE_LONGNAME  'L'       // long file name
#define GNUTYPE_MULTIVOL  'M'       // continuation of file from another volume
#define GNUTYPE_NAMES   'N'       // file name that does not fit into main hdr
#define GNUTYPE_SPARSE    'S'       // sparse file
#define GNUTYPE_VOLHDR    'V'       // tape/volume hdr


#define MAX_BLOCK 512
#define MAX_FNAME 100

struct TARHDR
{
 CHAR name[100];               //   0
 CHAR mode[8];                 // 100
 CHAR uid[8];                  // 108
 CHAR gid[8];                  // 116
 CHAR size[12];                // 124
 CHAR mtime[12];               // 136
 CHAR chksum[8];               // 148
 CHAR typeflag;                // 156
 CHAR linkname[100];           // 157
 CHAR magic[6];                // 257
 CHAR version[2];              // 263
 CHAR uname[32];               // 265
 CHAR gname[32];               // 297
 CHAR devmajor[8];             // 329
 CHAR devminor[8];             // 337
 CHAR prefix[155];             // 345
};

typedef union _TARBUF
{
 TARHDR hdr;
 CHAR buf[MAX_BLOCK];
}
TARBUF, *PTARBUF;


// Convert octal digits to INT
INT GetOct(PSTR p,INT iWidth)
{
 INT iResult = 0;
 while (iWidth--)
 {
   CHAR c = *p++;
   if (c == 0)
   {
     break;
   }
   if (c == ' ')
   {
     continue;
   }
   if (c < '0' || c > '7')
   {
     return -1;
   }
   iResult = iResult * 8 + (c - '0');
 }
 return iResult;
}

INT XTar(PTSTR ptzCmd)
{
 PTSTR ptzOutDir = ptzCmd;
 for (; *ptzOutDir; ptzOutDir++)
 {
   if (*ptzOutDir == ',')
   {
     *ptzOutDir++ = 0;
     break;
   }
 }

 CHAR szPath[MAX_BLOCK];
 UStrToAStr(szPath, ptzCmd, MAX_PATH);
 gzFile gz = gzopen(szPath,"rb");
 if (!gz)
 {
   return -1;
 }

 INT iGetHeader = 1;
 INT iRemaining = 0;
 BOOL bFail = FALSE;
 HANDLE hFile = NULL;
 TCHAR tzName[MAX_PATH];
 do
 {
   TARBUF buf;
   INT iLen = gzread(gz, &buf, MAX_BLOCK);
   if (iLen < 0)
   {
     return -2;
   }

   // Always expect complete blocks to process the tar information.
   if (iLen != MAX_BLOCK)
   {
     bFail = TRUE;
     iRemaining = 0;
   }

   // If we have to get a tar header
   if (iGetHeader >= 1)
   {
     // if we met the end of the tar or the end-of-tar block, we are done
     if (iLen == 0 || buf.hdr.name[0] == 0)
     {
       break;
     }

     if (iGetHeader == 1)
     {
       UAStrToStr(tzName, buf.hdr.name, MAX_PATH);
       UStrRep(tzName, '/', '\\');
     }
     else
     {
       iGetHeader = 1;
     }

     // Act according to the type flag
     switch (buf.hdr.typeflag)
     {
     case DIRTYPE:
       TCHAR tzPath[MAX_PATH];
       UStrPrint(tzPath, TEXT("%s\\%s\\"), ptzOutDir, tzName);
       UDirCreate(tzPath);
       break;

     case REGTYPE:
     case AREGTYPE:
       iRemaining = GetOct(buf.hdr.size, 12);
       if (iRemaining == -1)
       {
         bFail = TRUE;
         break;
       }
       else
       {
         UStrPrint(tzPath, TEXT("%s\\%s"), ptzOutDir, tzName);
         UDirCreate(tzPath);
         hFile = UFileOpen(tzPath, UFILE_WRITE);
       }
       iGetHeader = 0;
       break;

     case GNUTYPE_LONGLINK:
     case GNUTYPE_LONGNAME:
       iRemaining = GetOct(buf.hdr.size, 12);
       if (iRemaining < 0 || iRemaining >= MAX_BLOCK)
       {
         bFail = TRUE;
         break;
       }
       iLen = gzread(gz, szPath, MAX_BLOCK);
       if (iLen < 0)
       {
         return -4;
       }
       if (szPath[MAX_BLOCK - 1] != 0 || (INT) strlen(szPath) > iRemaining)
       {
         bFail = TRUE;
         break;
       }
       iGetHeader = 2;
       break;
     }
   }
   else
   {
     UINT uSize = (iRemaining > MAX_BLOCK) ? MAX_BLOCK : iRemaining;
     if (hFile)
     {
       UFileWrite(hFile, &buf, uSize);
     }
     iRemaining -= uSize;
   }

   if (iRemaining == 0)
   {
     iGetHeader = 1;
     if (hFile)
     {
       UFileClose(hFile);
       hFile = NULL;
     }
   }
 }
 while (!bFail);

 gzclose(gz);
 return 0;
}