Hi,
I am in the process of making an application to query Quake 3 servers, but I am starting with querying the master server as I'd like to get the server list down so I can then start to query them individually.
I've read through a number of threads on various forums and while it has helped me to an extent, I've hit the proverbial brick wall.
My code is like this:
Option Explicit
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = "monster.idsoftware.com"
Winsock1.RemotePort = 27950
Winsock1.Protocol = sckUDPProtocol
Winsock1.Bind
Winsock1.SendData "ÿÿÿÿgetservers 68 'empty'"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Text1.Text = "Data Received" & vbCrLf
Dim strData As String, DataString
Winsock1.GetData strData, vbString
DataString = DataString & strData
Text1.Text = Text1.Text & DataString & vbCrLf
End Sub
When I run the app, and click the button (Command1), I get the following into the text box (Text1):
Data Received
ÿÿÿÿgetserversResponse\úym8\YjDmV\ÑÕÖŽm8\WbÚŠm8 \>@mB\Õû†Gm8\>KÞem8\Âiâfm9\>@m8\Âiâfm:\SˆYzq \UƒÝi‚\Uƒ‰3i‡\X¿7m8\X•—Éi\UÈsm8\JV-(mB\ÁÊsÝm9\ÂmE[m8\RÀNmB\?Ón8m8\Õäm8\úym;\Ãz‡PÃP\B–¼fm8\Î/»m8\U–um8\Âiâlm:\Î{FŠm8\U“¨m:\RÀNm8\Aµm8\EÜ?m\RÀNm8\B7Ÿ†m8\EqÂXm8\K~†ÁmB\X•—Êi{\Âiâ fm<\>QàÉm9\ÔH¯m;\Âiâlm<\U
ÄÆmB\>Qòu0\>QàÊm8\BÕÄem8\X•—Éi„\Á*Úm@\X•—Êi„\ȱå mB\ÔH¯Sm9\>•Ì•m8\úym=\ %m8\>K›m8\Km8\>QàÉm8\†Üˆm8\Ù—¦m8\[yV§m;\U
ÁTm8\EÜm\Ã
>o¸\ÎûIâmB\EOT
What do I need to do with that gobbledigook in order to make it readable, or is it meant to be like that, I capture it and send another message back over winsock?
Any help will be massively appreciated.
Thanks,
Jon