vb³ÌÐòÔÚÏß×Ô¶¯Éý¼¶ÎÊÌâ

Public Sub UpData()              'ÔÚÏßÉý¼¶
          On Error Resume Next
          Dim MyData()    As Byte, VerInfo()      As Byte, Ti      As Long, Tj      As Long
           
          If Inet1.StillExecuting = True Then Exit Sub
          VerInfo() = Inet1.OpenURL("http://www.xxx.com/uploadsoft/update.txt", icString)
          Ti = InStr(1, VerInfo, vbCrLf) + 2
          Tj = InStr(Ti, VerInfo, vbCrLf)
           
          '¼ì²â°æ±¾ºÅ
          If Val(Left$(VerInfo, Ti - 3)) <= Val(App.Major & "." & App.Minor & App.Revision) Then Exit Sub
          If MsgBox("SWpsF  ·¢²¼ÁËеİ汾£º" + Left$(VerInfo, Ti - 3) + "£¬Îļþ´óС£º" + Mid$(VerInfo, Tj + 2) + "£¬ÊÇ·ñ½øÐÐÔÚÏßÉý¼¶  £¿", vbYesNo + vbQuestion, "ÔÚÏßÉý¼¶") = vbNo Then Exit Sub
          IsUp = True
           
  '¿ªÊ¼ÏÂÔظüÐÂÎļþ
          MyData() = Inet1.O