用DDE的方式通知,用SOCKET开通FTP下载!比较难哦~

解决方案 »

  1.   

    我的办法很土,但功能实现了
    在ini文件里写入版本号,如果运行程序的时候发现版本号与数据库的记录不符合,
    就提示有新的版本,然后指向到某个网页下载,当然也可以自动从服务器上拷贝过来,从服务器拷贝的时候别忘了传登陆服务器的用户名和密码
      

  2.   

    客户端自动探测,使用DLL或文档升级;
      

  3.   

    你可以这样:
    做一个程序,每次启动自动运行,判定本地的exe文件的修改日期与服务器上升级文件夹里的exe文件日期是否一致,若比服务器的早,说明未升级,则自动从服务器上copy到本地
      

  4.   

    我目前的解决方法,非常方便:
    客户端连接的是专门编制的一个小程序,首先读取服务器某个共享目录下面的txt文件,根据txt文件的内容,来进行控制。
    可以暂时停用,可以发布公告,可以提示运行升级文件(升级dll、ocx等)
    如果是exe的更新,则直接改名字copy后更改txt文件模块内容(从Sub Main启动):
    Public strMsg As String  '存放公告信息
    Public strUpFile As String  '存放升级文件信息
    Public Sub Main()
        Dim strFile As String
        On Error GoTo Main_Error
        Open "\\myserver\EXEC$\NEW FILE.txt" For Input As #1 
        Line Input #1, strFile
        Line Input #1, strMsg
        Line Input #1, strUpFile
        strFile = Trim(strFile)
        strMsg = Trim(strMsg)
        strUpFile = Trim(strUpFile)
        If strMsg <> "0" Then
            If strMsg Like "*系统暂停使用*" Then
                MsgBox strMsg, vbCritical
                Exit Sub
            Else
                frm_scjh.Show 1
            End If
        End If
        Shell strFile, vbNormalFocus
    Exit Sub
    Main_Error:
    MsgBox "不能打开程序,请联系IT部门!", vbCritical
    End Sub
    frm_scjh内容:
    Private Sub Command1_Click()
        Unload Me
    End SubPrivate Sub Command2_Click()
        On Error GoTo Command2_Click_Error
        Shell strUpFile, vbNormalFocus
        Exit Sub
    Command2_Click_Error:
    MsgBox "升级失败,请联络IT部门!"
    End SubPrivate Sub Form_Activate()
        Label2 = strMsg
        If strUpFile = "0" Then Command2.Visible = False
    End Sub给你参考一下。
      

  5.   

    目前我的NEW FILE.txt文件内容:\\myserver\Exec$\生产统计系统.exe
      由于近期程序改动比较频繁,建议大家当不使用系统时,马上退出程序,以便及时升级系统。
    0
    *************************************
    控制文件使用说明:
    一到三行起作用:
    第一行:实际系统文件名第二行:设置值 作用
    ------------------------------------------
    0    正常运行
            字符串包含“系统暂停使用”   显示此信息,然后退出程序
    其他字符串 显示系统公告信息

    示例:
    系统文件升级,如果你是第一次看到此信息,请按升级按钮,更新系统,否则请按继续按钮,继续执行。
    第三行  对应系统公告信息内升级按钮所执行的程序,为0则不显示升级按钮。

    示例:
    \\Fastenjv2\public\PROGRAM\UPDATE\OCX_EF~1\UPDATE.BAT系统文件升级,如果你是第一次看到此信息,请按升级按钮,更新系统,否则请按继续按钮,继续执行。
    调整数据库,系统暂停使用!
      

  6.   

    DDE: dynamic data exchange / 动态数据交换说白了就是进程间通讯的一种方式,在不同应用程序之间交换信息,跟ole差不多
    并且dde是ole的爸爸。