我目前启动器用vb6写的 如果要自动更新,可能要用vb6写专案,然后套入启动器
我自己有简单的构想,是这样的:
★先开启动器,按下自动更新纽
然后 AutoUpdate.Show
[AutoUpdate] <-专案名称
首先读取 Data\Setting\Save.ini 的 [Version]
New=电脑中的主程式版本
Tem=则是在Google协助平台读取到的版本
接者用IF 这些指令比大小
若 New < Tem 则下载
"
http://sites.google.com/site/whwnsuntea/Files/Full_" + Val(Tem) + ".LS", App.Path & "/Updates.exe"
Msgbox "程式将自动更新到" + Val(Tem) + ",请耐心等候",VbOkOnly, "Wait..."
Shell "Updates.exe"
End if
If Tem <New Then
msgbox "这是私人版本,无法更新...", vbOkOnly, "Error"
End if
If New = Tem Then
Msgbox "恭喜您," + Val(New) + "为最新版本", vbokOnly, "Happy"
End if
目前编辑的专案已经私信给您...