tpOpenFile(hHost,cFile,GENERIC_WRITE,
   FTP_TRANSFER_TYPE_BINARY,0);
   else
  hFile=FtpOpenFile(hHost,cFile,GENERIC_READ,
  FTP_TRANSFER_TYPE_BINARY,0);
   if( !hFile)
   {
      if ( (dwError=GetLastError()) == 12003 )
      ShowMsg(hWin,“ 文 件 不 存 在");
      InternetCloseHandle(hHost);
      InternetCloseHandle(hInternet);return 0L;
   }
   if ( cFlag == 0 )
      InternetWriteFile(hFile,buf,dwLen, ＆dwLength);
  else
      InternetReadFile(hFile,buf,dwLen, ＆dwLength);
      InternetCloseHandle(hFile);InternetCloseHandle(hHost);
      InternetCloseHandle(hInternet);
return dwLength;
}
// 通 过FTP 协 议 删 除FTP 服 务 器 上
文 件 的 函 数cFtpHost 主 机 地 址cFile 文 件 名
BOOL  MyFtpDeleteFile(char ＊ cFtpHost,char ＊ cFile)
{
   HINTERNET hInternet,hHost;
   hInternet=InternetOpen(“FZYXB",
    LOCAL_INTERNET_ACCESS,
NULL,0,0);
hHost=InternetConnect(hInternet,cFtpHost,
INTERNET_INVALID_PORT_NUMBER,“fzabc",
“b505",INTERNET_SERVICE_FTP,INTERNET
_FLAG_PASSIVE,0);
   FtpDeleteFile(hHost,cFile);
  InternetCloseHandle(hHost);InternetCloseHandle(hInternet);
  return TRUE;
}
// 本 地 计 算 机 运 行 线 程 函 数 pp 功 能 代 码
void CallThread(void ＊ pp )
{
   DWORD ＊ dwId,dwLen, ret,ll;
   RASPPPIP rip;
   char szIp[50], ＊pdest;
   dwId=(DWORD ＊)pp;
   switch( ＊ dwId )
   {
case IDC_CALL:
  // 通 知 远 程 计 算 机 登 录Internet
  ShowMsg(hWin,“Call remote ");
  if ( StartCon( hWin,“connect",“",
  “d123",“9W7607714" ) == TRUE )
  {
    ShowMsg(hWin,“Remote Connected");
    // 取remote 分 配 的IP 地 址
    rip.dwSize=sizeof(RASPPPIP);
        if ( (ret=RasGetProjectionInfo(hCon,RASP_PppIp,
(LPVOID) ＆rip,(LPDWORD) ＆ll ) ) != 0 )
  ShowMsg(hWin,“ 取IP 地 址 失 败");
     else
     {
  ShowMsg(hWin,rip.szIpAddress);
  strcpy(szIp,rip.szIpAddress);
  pdest=strrchr(szIp,‘.'');
   ＊pdest=‘\0'';strcat(szIp,“.1");
  ShowMsg(hWin,szIp);
  SendCmd(szIp,“REQUEST");
     }
     RasHangUp(hCon);
}
else
     ShowMsg(hWin,“Call remote fail");
hCon=NULL;
  break;
case IDC_INTERNET:
// 本 地 计 算 机 登 录Internet
ShowMsg(hWin,“ 正 在 连 接 Interne