[VB6] Auto Client update System, Need Help

[Dyndrilliac]

I am trying to implement an auto update client system into one of my programs and looked through several sources claiming to give examples of this as well as the search function in these forums.

The code I came across to most promisingly suit my needs is something along the line of the following:

Code Select Expand

Version = App.ProductName & " v" & App.Major & "." & App.Minor & "." & App.Revision
Dim Update As String

Update = Me.Inet.OpenURL("http://66.177.173.240/bot/update.txt")
If Update = Version Then
    AddC Me.Intro, vbGreen, "Welcome to " & Version
Else
    Call GetUpdate
End If

However, this does not work.

Upon doing the following:

Code Select Expand

Debug.Print Version
Debug.Print UpdateIn the section where sccuss would be false, I discovered that the string update gets no data written to it - it is blank. I have checked to make sure that my webserver is active, and has the required file on it and the correct value in it's place,  but to no avail.

I am wondering if anyone can help me fix what is wrong with what I am doing or help me by giving some good suggestions on how to go about getting a fresh solution to my problem.

[Eric]

Your webserver is requiring that the file must be downloaded; Inet's OpenURL() function can only view the contents of documents that don't require a download.

[Dyndrilliac]

Hmm, thanks - that explains the problem.

Can you reference me to a free webserver that would fit my purpose, like Geocities or some such place?

Edit: Nevermind, Geocities suited my needs fine. Thanks for your help.

[Eric]

Can you reference me to a free webserver that would fit my purpose, like Geocities or some such place?

I don't know of any decent ones offhand, but it would be easier to just rename the .txt to a .html. Surely your webserver won't force the download of an html file.

[Adron]

Umm, I don't see how the webserver is forcing anything... All it's saying is that the file is missing, 404?

[Fr0z3N]

You could try

Code Select Expand


Version = App.ProductName & " v" & App.Major & "." & App.Minor & "." & App.Revision
Dim Update As String

Update = Me.Inet.OpenURL("http://66.177.173.240/bot/update.txt")
Do While Me.Inet.StillExecuting: Loop
Debug.Print Version
If Update = Version Then
   AddC Me.Intro, vbGreen, "Welcome to " & Version
Else
   Call GetUpdate
End If


Edit: forgot code tags

[Eric]

Umm, I don't see how the webserver is forcing anything... All it's saying is that the file is missing, 404?

The file was renamed to a .html.