inser.bas

来自「星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网」· BAS 代码 · 共 55 行

Attribute VB_Name = "Inser"
'软宇公司

Public Sub Inser_in()

        On Error GoTo Err

   Dim Vrs_gw As String

   Vrs_gw = Update.Inet1.OpenURL(Update.Uhtt)

   Vrs_gw = Mid$(Vrs_gw, InStr(Vrs_gw, "[Version]"), 999)
    
  Vrs_gw = Replace(Vrs_gw, "[Version]", "")
  Vrs_gw = Replace(Vrs_gw, "Vername=网络服务器", "")
  Vrs_gw = Replace(Vrs_gw, "Version=", "")

     Update.Vrs = Vrs_gw

     If Update.Vers = Update.Vrs Then

   MsgBox "已经是最新版！", 64, "提示"
   End

   ElseIf Update.Vers < Update.Vrs Then

   
   Call Reinfo_Ini '升级开始

   ElseIf Update.Vers > Update.Vrs Then

   MsgBox "该版本比你现在的还要旧！", 64, "提示"
   
    End

   Else
   
   MsgBox "服务器繁忙,请稍后再试！", 64, "提示"
   
    End

   End If
   
   Exit Sub
   
Err:

 MsgBox "服务器还没启动,请稍后再试！", 64, "提示"
 
 End

End Sub