用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)