Koden som i har givet mig du'er ikke her er hele min kode så kan i rette den og lægge den nye ud...
Private Sub Command1_Click()
Dim TransferSuccess As Boolean
UpdateTime = 0
Timer2.Interval = 1000
Command1.Enabled = False
ProgressBar1.Value = 1
status$ = "Checking for updated version."
TransferSuccess = GetInternetFile(Inet1, "
http://update.150m.com/Update.txt", App.Path & "\Update")
If TransferSuccess = False Then
ProgressBar1.Value = 3
Timer2.Interval = 0
Exit Sub
End If
ProgressBar1.Value = 2
status$ = "Version check success."
Open "Update.txt" For Input As #1
Input #1, updatever$
Close #1
If updatever$ > myVer Then
Label1.Caption = "There is an update available to version " + updatever
Else
Label1.Caption = "There is no update available."
ProgressBar1.Value = 3
Command1.Enabled = True
Timer2.Interval = 0
Exit Sub
End If
status$ = "Getting updated file."
MsgBox ("This is where you put the updated .exe file")
TransferSuccess = GetInternetFile(Inet1, "
http://update.150m.com/NETSecure.exe", App.Path & "\Update")
If TransferSuccess = False Then
ProgressBar1.Value = 3
Command1.Enabled = True
Timer2.Interval = 0
Exit Sub
End If
ProgressBar1.Value = 3
Timer2.Interval = 0
X = MsgBox("Live Update Complete!", vbInformation)
Command1.Enabled = True
frmAbout.Show
End Sub
Private Sub Form_Load()
On Local Error GoTo 200
' myVer = App.Major & "." & App.Minor & "." & App.Revision
' this is where the updated program needs to write it's current version
' number to. The above commented out line puts the version number in
' the correct format.
status$ = "Idle"
UpdateTime = 0
Open "Update.txt" For Input As #1
Input #1, myVer
Close #1
Exit Sub
200 myVer = "1.0.0"
X = MsgBox("Version information has not been found, Live Update will assume it's Version 1.0.0")
Resume 205
205 End Sub
Private Sub mnufile_Click()
End Sub
Private Sub Timer1_Timer()
If Inet1.StillExecuting = False Then
StatusBar1.Panels(1).Text = "Status: Idle"
Else
StatusBar1.Panels(1).Text = "Status: " & status$
End If
End Sub
Private Sub Timer2_Timer()
UpdateTime = UpdateTime + 1
StatusBar1.Panels(2).Text = "Download Time:" & Str$(UpdateTime) & " Seconds"
End Sub
Så kan det være man kan få en kode som du'er hehehehehe! ;D i ved hvad jeg mener...