这是我的,仅供参考!
If TryConnectHost("XXXX.me") Then
If Network.Ping("XXXX.me") Then
RemoteUpdate = True
UpdatePath = "http://XXXX.me/XX"
Else
RemoteUpdate = False
UpdatePath = "http://192.168.1.250/XX"
End If
Else
RemoteUpdate = False
UpdatePath = "http://192.168.1.250/XX"
End If
If Syscmd.Project.Update(False,False) = False Then
Forms("登录").Open()
End If