Fout bij update

[eeyk]

de bedoeling is dat die Automatische Checkt op updates
Hij download ver.html in ver.html staat

510

dit vergelijkt die in Text1.text maar dat is het juist
Text1.text blijft leeg dus krijg je nooit een melding.

Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
Screen.MousePointer = 11
Label1.Caption = InetStatus
TransferFile = Xfer(Inet1, "http://crime-ware.nl/vnd/ver.html", App.Path + "\ver.txt")
Timer1.Enabled = True
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If InetStatus = "Done" Then
Dim versa As String
Open App.Path + "\ver.txt" For Input As #1
Line Input #1, versa
Text1.Text = versa
Close #1
If Text1.Text > App.Major & App.Minor & App.Revision Then
    MsgBox "There is an update available!", vbInformation, "update"
    rules.Show
Else
MsgBox "No updates found.!", vbInformation, "Update"
End If
End If
End Sub

 

[bn2vs]

Hey,

ff wat opmerkingen:
1. wrom een html file en niet gewoon txt?
2. je kan die hele zooi beter in een apparte thread steken, zo blokt je prog niet terwijl die aant downloaden is.

ik neem aan dat je die text van je textfile in een textbox probeert te mollen en dan te vergelijken? waarom? is toch niet nodig? vergelijk de inhoud van je lokale txt gewoon met de app versie

heb een tijdje geleden een update dialog gemaakt bestaande uit een logische en een layout class, mss kan je hier wat inspiratie uit op doen:
http://code.bn2vs.com/viewtopic.php?t=140
http://code.bn2vs.com/viewtopic.php?t=141

Cheers
BN

 

[eeyk]

Erg bedankt het werkt nu goed.

 

[bn2vs]

Kan je dat dan AUB in je eerste post zetten?