Is there a code that will check a website to see if the program that the user is using is the current version. I got a code from http://www.vb-world.net/articles/cu...tup/index7.htmland I have fulled around with it, but i still can't get it to work. I keep getting the message "You have the current version."
Code:
Public Sub NetCheck()
On Error GoTo ErrUpdate 'Err Handling

Dim intMyVersion As Integer
Dim b() As Byte
Dim intRemoteVer As Integer
Dim strRemoteVer As String
Dim iCheck As Integer

'Be polite and ask the user!
iCheck = MsgBox("Do you want to check if a never version is available on the web?" & _
"If yes, then connect to the net and press YES.", _
vbYesNo + vbQuestion, "New Version Available")

If iCheck = vbNo Then Exit Sub ' If user says no, exit sub

'If yes, then open the file for reading!
b() = Inet1.OpenURL("http://www.geocities.com/tmanchat2000/Untitled.bin", 1)

intMyVersion = 0 'Add your version here
strRemoteVer = ""

For t = 0 To UBound(b)
    ' the version i have on the file on the website is 1
    strRemoteVer = strRemoteVer + Chr(b(t))
Next

'Check the info
' commented this out because look at the if statement below,
' it wouldn't work ever time it it was set to equal each other.
'intRemoteVer = intMyVersion

If intRemoteVer > intMyVersion Then
    ' Inform the user!
    MsgBox "A newer version of this software is available at www.mysite.com"
Else
    MsgBox "You have the latest version available."
End If

ErrUpdate:
'Nothing here
MsgBox "nope" 'To see if i get an error
End Sub