在开发和使用C/S工作方式的程序时，经常会遇到程序升级的问题，以前经常是用人工方式拷贝升级，这在网络变得日益庞大时显得十分烦琐。能不能像许多网络程序一样，在程序更新时自动更新本地程序呢？

  在网上搜到一段代码，编译后没反应（需要修改的地方已按自己的修改了）。只是我是用win共享搭建的服务端，没有ftp服务器，请问是这个影响的吗？



    #Define INTERNET_INVALID_PORT_NUMBER 0
    #Define INTERNET_OPEN_TYPE_DIRECT 1
    #Define INTERNET_OPEN_TYPE_PROXY 3
    #Define INTERNET_DEFAULT_FTP_PORT 21
    #Define INTERNET_FLAG_ASYNC 268435456     && &H10000000
    #Define INTERNET_FLAG_FROM_CACHE 16777216 && &H1000000
    #Define INTERNET_FLAG_OFFLINE 16777216
    #Define INTERNET_FLAG_CACHE_IF_NET_FAIL 65536 　  && &H10000
    #Define INTERNET_OPEN_TYPE_PRECONFIG 0
    #Define FTP_TRANSFER_TYPE_ASCII 1
    #Define FTP_TRANSFER_TYPE_BINARY 2
    #Define INTERNET_SERVICE_FTP 1
    #Define INTERNET_SERVICE_GOPHER  2
    #Define INTERNET_SERVICE_HTTP    3
    #Define FILE_ATTRIBUTE_NORMAL    128    && 0x00000080
    Declare INTEGER InternetOpen IN wininet;
    STRING sAgent, INTEGER lAccessType, STRING sProxyName,;
    STRING sProxyBypass, STRING  lFlags
    Declare INTEGER InternetCloseHandle IN wininet INTEGER hInet
    Declare INTEGER InternetConnect IN wininet;
    INTEGER hInternetSession, STRING  sServerName,;
    INTEGER nServerPort, STRING  sUsername,;
    STRING  sPassword, INTEGER lService,;
    INTEGER lFlags, INTEGER lContext
    Declare INTEGER FtpGetFile IN wininet;
    INTEGER hFtpSession, STRING  lpszRemoteFile,;
    STRING  lpszNewFile, INTEGER fFailIfExists,;
    INTEGER dwFlagsAndAttributes,;
    INTEGER dwFlags, INTEGER dwContext
    sAgent = "var1"
    sProxyName = Chr(0)
    sProxyBypass = Chr(0)
    lFlags = 0
    hOpen = InternetOpen (sAgent, INTERNET_OPEN_TYPE_DIRECT,;
    sProxyName, sProxyBypass, lFlags)
    If hOpen = 0
    =MESSAGEBOX("找不到库 WinInet.Dll 的入口",16," 警告")
    Return
    Endif
    *在此修改自己的FTP服务器数据
    strHost = "ftp.  &&存放升级文件的FTP服务器地址
    strUser = "user"  &&升级的FTP用户名
    strPwd  = "1111"  &&FTP用户密码
    hFtpSession = InternetConnect (hOpen, strHost,;
    INTERNET_INVALID_PORT_NUMBER,;
    strUser, strPwd,;
    INTERNET_SERVICE_FTP, 0, 0)
    If hFtpSession = 0
    = InternetCloseHandle (hOpen)
    =MESSAGEBOX("找不到指定的服务器",16,"警告")
    Return
    Endif
    *以下设置FTP的路径和文件名
    lpszRemoteFile = "/aaa.exe"         && FTP上的路径和文件名
    lpszNewFile = "./aaa.exe"          && 下载到本地的路径和文件名,默认在同一目录中
    fFailIfExists = 0        && 如果此文件已经存在,直接进行覆盖,不提问
    dwContext = 0
    lnResult = FtpGetFile (hFtpSession, lpszRemoteFile, lpszNewFile,;
    fFailIfExists, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_ASCII,;
    dwContext)
    = InternetCloseHandle (hFtpSession)
    = InternetCloseHandle (hOpen)
    If lnResult # 1
    =MESSAGEBOX("升级失败！请检查用户名和密码是否正确。",16,"  警告")
    ELSE
    =MESSAGEBOX("升级成功！请退出升级程序。",64,"提示")
    thisform.Release      &&升级成功可自动离开表单
    Endif
    Return

谢谢你，我是个业余的，你的方法太专业了，有很多我做起来都很费力。但是我用你提示的AGETFILEVERSION( )函数检测应用程序版本号，然后编了个更新用的EXE。如果有新的版本，先删除本地计算机的应用程序，然后用copy file 命令从服务端把新版的复制到本地计算机，从而实现自动更新。现在问题已解决。谢谢！

分享下我的自动更新代码，菜鸟制作，大神莫笑！分享一下，只为互相交流。

****号处改成自己的文件名或目录。
第一，用VFP制作编译一个更新用的应用软件update.exe
  新建一个表单，controlbox属性.f. ，添加一个命令按钮command1和一个标签Label1。
   Label1的caption属性为：” 发现新版本，请更新！”
   command1的caption 属性为：”更新”
   command1的click事件为：

if file("./****.exe")=.f. &&判断文件是否存在
  COPY FILE "//****/****.exe" TO "./****.exe"   &&如果文件不存在，直接从服务端复制文件到本地计算机。
   =MESSAGEBOX("升级成功！请退出升级程序。",64,"提示")
   thisform.label1.caption="已是最新版本，请关闭升级程序！"
    this.caption="关闭"
else
  if this.caption="更新"
    DIMENSION aFiles1[1]
    DIMENSION aFiles2[1]
    AGETFILEVERSION(aFiles1," //****/****.exe ")&&检查服务端的软件版本号
    AGETFILEVERSION(aFiles2,". /****.exe ")&&检查本地计算机当前目录的软件版本号
    if  aFiles1[11]>aFiles2[11]   &&判断文件是否为最新版本
       delete file "./****.exe "  &&如果文件不是最新版本，删除老版本文件
       COPY FILE "//****/****.exe" TO "./****.exe" &&从服务端复制文件到本地计算机
        =MESSAGEBOX("升级成功！请退出升级程序。",64,"提示")
        thisform.label1.caption="已是最新版本，请关闭升级程序！"
        this.caption="关闭"
    else
        =MESSAGEBOX("已是最新版本。",64,"提示")
    endif
   else
    quit
   endif
endif

第二，在你的主程序中加入下列代码。
….
….
DIMENSION aFiles11[1]
DIMENSION aFiles21[1]
AGETFILEVERSION(aFiles11,"//****/****.exe")  &&检查服务端的软件版本号
AGETFILEVERSION(aFiles21,"./****. exe ")     &&检查本地计算机当前目录的软件版本号
if  aFiles11[11]>aFiles21[11]   &&如果存在新版本，执行更新程序（update.exe）
    DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER , STRING , STRING , STRING , STRING ,INTEGER
    = SHELLEXECUTE(0,0,'update.exe',0,0,1)
    quit
else
….          &&执行自己的应用程序
….
Endif

第三，在自己的项目中添加应用程序update.exe，编译生成应用程序。试用OK！

注意：update.exe要和自己的应用程序在同一目录下。如果第一次更新时，本地应用程序被删除，当新的文件未复制成功，可以直接运行update.exe更新一次来达到修复目的。

只是更新了应用软件，不修改数据库，升级对客户数据没任何影响。只是升级后，你可以实现新的功能或者修复原来的BUG。但是对于要升级数据库的不能用这个，比如增加字段等，需要单独编个程序升级，不可以采取简单复制数据库。那样做就会清空客户的数据了。