[VB] - Force Newest Version

[KDawg08]

How would I have the server check a users version of the game, and if not the most current version then say something like… Please update to the newest version: Version x.xx      (x.xx being the version aka 1.01 or something)

[unnown]

if app.version = (something like this)

[KDawg08]

@unnown:

> if app.version = (something like this)

Okay thanks that's all I needed, I'll read up on it :)

[Godlord]

Send the major version, minor version and revision version (either define your own or use App.Major, App.Minor, App.Revision, or something similar)

So, in the client make a new packet or use an existing one:

> Sub Send_VersionInfo(ByVal Major As Long, ByVal Minor As Long, ByVal Revision As Long)
>   Dim Packet As String
>
>   Packet = "VERSIONINFO" & SEP_CHAR & CStr(Major) & SEP_CHAR & CStr(Minor) & SEP_CHAR & CStr(Revision) & SEP_CHAR & END_CHAR
>
>   Call SendData(Packet) ' The sub might be wrong…
> End Sub

Then use:

> Call Send_VersionInfo(app.major, app.minor, app.revision)

The place where you use it depends on your client initialisation sequence…

For the server you'll need to add a new case in the handledata module.

> Case "versioninfo"
>         If (app.major > CLng(Parse(1)) And app.minor > CLng(Parse(2)) And app.revision > CLng(Parse(3))) Then
>             Call AlertMsg("Your version is out-dated. See http://www.mywebsite.com to download a new version of the client.")
>             ' Disconnect…
>         End If

This is rough though, but you should get the idea.

Regards,
  Godlord.

[KDawg08]

Awesome, Thanks You guys, This will help a lot!

Currently just trying to find a VB6 Tutorial site for some of these things so i don't have to keep asking questions and sound like a child. Aha…