用XML文件配置update程序自动更新

易语言 2020-07-17 17:47:17

用XML文件配置update程序自动更新

.如果真 (文件号 = 0)
.如果 (信息框 (“程序正在运行,无法进行更新!” + #换行符 + #换行符 + “是否强制结束继续进行更新?”, #信息图标 + #是否钮, “程序正在运行”) = #是钮)
终止进程 (程序名)
_开始更新_被单击 ()
.否则
销毁 ()
.如果结束
返回 (-1)

InternetGetConnectedState (dwFlags, 0) ' //获取当前网络连接信息
' sprintf(strAgent, "Agent%ld", timeGetTime()); //timeGetTime用以获取系统启动后的时间
strAgent = “Agent” + 到文本 (取启动时间 ())
.如果 (位与 (dwFlags, 4) = 0) ' INTERNET_CONNECTION_PROXY = 4
hOpen = InternetOpenA (strAgent, 4, 0, 0, 0) ' INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4
.否则
hOpen = InternetOpenA (strAgent, 0, 0, 0, 0) ' INTERNET_OPEN_TYPE_PRECONFIG = 0
.如果结束
.如果真 (hOpen = 0)
信息框 (“Internet连接错误!”, 0, )
返回 (-1)