用DDE的方式通知,用SOCKET开通FTP下载!比较难哦~
解决方案 »
- vb作为中间件连接SQL2005和Oracle9i
- 如何判断某个文件夹下有几个文件啊? 然后在逐一选中它?
- 关于树视图焦点控制问题,求教各位大虾
- VirtualDesktop(吴滂:欢迎到我的Blog转转 ^_^) 进来拿分:)
- 如何将Visual Basic做出的程序能拥有美丽的界面?
- VB做计算器中的%功能怎么实现?
- 大家帮我看看这个SQL语句有什么错误
- 请问截取字符串的函数是什么>?(急急急,就要下班拉)
- [问]怎样读取Thumbs.db文件内容?100分
- 急求:vb制作浏览器进度条原码!
- 初学编成,想用VB编一个词法分析器,不清楚如何下手,帮帮忙
- VB中怎样用程序给access数据库加密码?
在ini文件里写入版本号,如果运行程序的时候发现版本号与数据库的记录不符合,
就提示有新的版本,然后指向到某个网页下载,当然也可以自动从服务器上拷贝过来,从服务器拷贝的时候别忘了传登陆服务器的用户名和密码
做一个程序,每次启动自动运行,判定本地的exe文件的修改日期与服务器上升级文件夹里的exe文件日期是否一致,若比服务器的早,说明未升级,则自动从服务器上copy到本地
客户端连接的是专门编制的一个小程序,首先读取服务器某个共享目录下面的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给你参考一下。
由于近期程序改动比较频繁,建议大家当不使用系统时,马上退出程序,以便及时升级系统。
0
*************************************
控制文件使用说明:
一到三行起作用:
第一行:实际系统文件名第二行:设置值 作用
------------------------------------------
0 正常运行
字符串包含“系统暂停使用” 显示此信息,然后退出程序
其他字符串 显示系统公告信息
示例:
系统文件升级,如果你是第一次看到此信息,请按升级按钮,更新系统,否则请按继续按钮,继续执行。
第三行 对应系统公告信息内升级按钮所执行的程序,为0则不显示升级按钮。
示例:
\\Fastenjv2\public\PROGRAM\UPDATE\OCX_EF~1\UPDATE.BAT系统文件升级,如果你是第一次看到此信息,请按升级按钮,更新系统,否则请按继续按钮,继续执行。
调整数据库,系统暂停使用!
并且dde是ole的爸爸。