VB.NET: rilevare un server di Quake3 su una rete locale
Classica applicazione inutile ma divertente da sviluppare :-)
Qualche giorno fa ho iniziato a chiedermi come il mio amato Quake3 Arena lavorasse per ricercare i server per il gioco in multiplayer sulla rete locale.
Dopo una breve ricerca su Google mi sono imbattuto in questo articolo che spiega a grandi linee come funziona il protocollo utilizzato dal motore di Q3A: tutto basato su UDP (scelta obbligata, per la maggiore velocità) e a dire il vero abbastanza semplice e lineare.
Quindi, per rilevare se su una macchina remota sia attivo un server è sufficiente forgiare un pacchetto UDP come descritto sopra, inviarlo sulla porta 27960 e attendere una eventuale risposta (non all'infinito, essendo UDP un protocollo 'connection-less').
Con queste informazioni la realizzazione di una semplice funzione in VB.NET è cosa da poco:
[sourcecode language='vb']
Imports System.Net
Public Function CheckServer(ByVal hostaddress As String)
Dim _UdpClient As New System.Net.Sockets.UdpClient
Dim client As New Sockets.Socket(Sockets.AddressFamily.InterNetwork, Sockets.SocketType.Dgram, Sockets.ProtocolType.Udp)
client.ReceiveTimeout = 5
client.Connect(IPAddress.Parse(hostaddress), 27960)
Dim bytCommand As Byte() = System.Text.Encoding.ASCII.GetBytes("xxxxxgetstatus")
bytCommand(0) = Byte.Parse("255")
bytCommand(1) = Byte.Parse("255")
bytCommand(2) = Byte.Parse("255")
bytCommand(3) = Byte.Parse("255")
bytCommand(4) = Byte.Parse("02")
Dim remoteEndPoint As New IPEndPoint(IPAddress.Any, 0)
Dim pret As String = client.Send(bytCommand, socketFlags:=Sockets.SocketFlags.None)
Dim bufferRec(65000) As Byte
Try
client.Receive(bufferRec)
Return System.Text.Encoding.ASCII.GetString(bufferRec)
Catch ex As Exception
Return ""
End Try
End Function
[/sourcecode]
Da notare che ho settato manualmente il timeout della connessione e 'trappato' l'errore di connessione, verificando in questo modo se il server sia in funzione o meno.
La funzione mi restituisce una stringa contenente (qualora sia attivo un server sulla macchina esaminata) una serie di informazioni sulla partita in corso; nel caso la connessione vada in timeout, restituisce una stringa vuota.
Ora so verificare se su un determinato sistema stia girando Q3A in modalità multiplayer, il passo successivo è ripetere questa procedura per tutti quelli presenti sulla mia rete locale.
Per farlo questo mi sono affidato a una soluzione 'sporca' ma funzionale: utilizzo il comando 'net view' di windows, ne analizzo il risultato ottenendo un elenco di indirizzi:
[sourcecode language='vb']
Public Function GetIpAddresses()
Dim addresses As New ArrayList
Dim MyAdd As String = Dns.GetHostByName(Dns.GetHostName()).AddressList(0).ToString
Dim psi As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
psi.FileName = ("C:\WINDOWS\System32\cmd.exe")
psi.Arguments = "/c net view > lista.txt"
psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
Application.DoEvents()
System.Diagnostics.Process.Start(psi)
Dim sr As System.IO.StreamReader = Nothing
Dim run As Boolean = False
While run = False
Application.DoEvents()
Try
System.Threading.Thread.Sleep(1000)
sr = New System.IO.StreamReader(Application.StartupPath & "\lista.txt")
run = True
Catch ex As Exception
run = False
End Try
End While
While sr.ReadLine().StartsWith("--") True
Application.DoEvents()
End While
Dim str As String = ""
Dim comp(64) As String
Dim i As Integer = 0
While str.StartsWith("The") True
Application.DoEvents()
str = sr.ReadLine
comp(i) = str.Split(Char.Parse(" "))(0)
comp(i) = comp(i).Substring(2, comp(i).Length - 2)
If comp(i) = "e" Then
Application.DoEvents()
comp(i) = Nothing
End If
i = i + 1
End While
sr.Close()
sr = Nothing
For Each s As String In comp
If s Nothing Then
If s.ToUpper Dns.GetHostName.ToUpper Then
addresses.Add(Dns.GetHostByName(s).AddressList(0).ToString)
End If
End If
Next
Return addresses
End Function
[/sourcecode]
a questo punto non mi resta che sottoporre l'array di indirizzi restituito dalla funzione GetIpAddresses a CheckServer e, se viene rilevato un server, leggere i dati restituiti e formattarli adeguatamente:
[sourcecode language='vb']
Dim lista As ArrayList = GetIpAddresses()
For Each riga As String In lista.ToArray
Dim server As String = CheckServer(riga)
If server "" Then
Dim ServerName As String = server.Split("\")(Array.IndexOf(server.Split("\"), "sv_hostname") + 1)
Dim MapName As String = server.Split("\")(Array.IndexOf(server.Split("\"), "mapname") + 1)
Dim FragLimit As String = server.Split("\")(Array.IndexOf(server.Split("\"), "fraglimit") + 1)
Dim TimeLimit As String = server.Split("\")(Array.IndexOf(server.Split("\"), "timelimit") + 1)
Dim Version As String = server.Split("\")(Array.IndexOf(server.Split("\"), "version") + 1)
risultato = risultato & "--- Trovato Server ---" & vbCrLf
risultato = risultato & "Ip Address:" & riga & vbCrLf
risultato = risultato & "Server Name: " & ServerName & vbCrLf
risultato = risultato & "Mappa: " & MapName & vbCrLf
risultato = risultato & "FragLimit: " & FragLimit & vbCrLf
risultato = risultato & "TimeLimit: " & TimeLimit & FragLimit & vbCrLf
risultato = risultato & "Versione: " & Version & FragLimit & vbCrLf
TextBox1.Text = TextBox1.Text & risultato
End If
Application.DoEvents()
Next
End Sub
[/sourcecode]
Ho completato il tutto con il codice necessario a ridurre l'applicazione nella system tray (facendo ripetere la procedura di scan ogni 5 secondi) e a far riapparire un form qualora la ricerca fornisca esito positivo.
Il sorgente completo è scaricabile da QUI.
(e sperate che non finisca mai tra le mani del vostro capoufficio!) :-D
Qualche giorno fa ho iniziato a chiedermi come il mio amato Quake3 Arena lavorasse per ricercare i server per il gioco in multiplayer sulla rete locale.Dopo una breve ricerca su Google mi sono imbattuto in questo articolo che spiega a grandi linee come funziona il protocollo utilizzato dal motore di Q3A: tutto basato su UDP (scelta obbligata, per la maggiore velocità) e a dire il vero abbastanza semplice e lineare.
To query a server is very simple. Send a connectionless (UDP) packet with 4 OOB header bytes (0xff) and the text string getstatus. There are many sites which contain a thorough description of this so I won't go into details.
Quindi, per rilevare se su una macchina remota sia attivo un server è sufficiente forgiare un pacchetto UDP come descritto sopra, inviarlo sulla porta 27960 e attendere una eventuale risposta (non all'infinito, essendo UDP un protocollo 'connection-less').
Con queste informazioni la realizzazione di una semplice funzione in VB.NET è cosa da poco:
[sourcecode language='vb']
Imports System.Net
Public Function CheckServer(ByVal hostaddress As String)
Dim _UdpClient As New System.Net.Sockets.UdpClient
Dim client As New Sockets.Socket(Sockets.AddressFamily.InterNetwork, Sockets.SocketType.Dgram, Sockets.ProtocolType.Udp)
client.ReceiveTimeout = 5
client.Connect(IPAddress.Parse(hostaddress), 27960)
Dim bytCommand As Byte() = System.Text.Encoding.ASCII.GetBytes("xxxxxgetstatus")
bytCommand(0) = Byte.Parse("255")
bytCommand(1) = Byte.Parse("255")
bytCommand(2) = Byte.Parse("255")
bytCommand(3) = Byte.Parse("255")
bytCommand(4) = Byte.Parse("02")
Dim remoteEndPoint As New IPEndPoint(IPAddress.Any, 0)
Dim pret As String = client.Send(bytCommand, socketFlags:=Sockets.SocketFlags.None)
Dim bufferRec(65000) As Byte
Try
client.Receive(bufferRec)
Return System.Text.Encoding.ASCII.GetString(bufferRec)
Catch ex As Exception
Return ""
End Try
End Function
[/sourcecode]
Da notare che ho settato manualmente il timeout della connessione e 'trappato' l'errore di connessione, verificando in questo modo se il server sia in funzione o meno.
La funzione mi restituisce una stringa contenente (qualora sia attivo un server sulla macchina esaminata) una serie di informazioni sulla partita in corso; nel caso la connessione vada in timeout, restituisce una stringa vuota.
Ora so verificare se su un determinato sistema stia girando Q3A in modalità multiplayer, il passo successivo è ripetere questa procedura per tutti quelli presenti sulla mia rete locale.
Per farlo questo mi sono affidato a una soluzione 'sporca' ma funzionale: utilizzo il comando 'net view' di windows, ne analizzo il risultato ottenendo un elenco di indirizzi:
[sourcecode language='vb']
Public Function GetIpAddresses()
Dim addresses As New ArrayList
Dim MyAdd As String = Dns.GetHostByName(Dns.GetHostName()).AddressList(0).ToString
Dim psi As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo()
psi.FileName = ("C:\WINDOWS\System32\cmd.exe")
psi.Arguments = "/c net view > lista.txt"
psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
Application.DoEvents()
System.Diagnostics.Process.Start(psi)
Dim sr As System.IO.StreamReader = Nothing
Dim run As Boolean = False
While run = False
Application.DoEvents()
Try
System.Threading.Thread.Sleep(1000)
sr = New System.IO.StreamReader(Application.StartupPath & "\lista.txt")
run = True
Catch ex As Exception
run = False
End Try
End While
While sr.ReadLine().StartsWith("--") True
Application.DoEvents()
End While
Dim str As String = ""
Dim comp(64) As String
Dim i As Integer = 0
While str.StartsWith("The") True
Application.DoEvents()
str = sr.ReadLine
comp(i) = str.Split(Char.Parse(" "))(0)
comp(i) = comp(i).Substring(2, comp(i).Length - 2)
If comp(i) = "e" Then
Application.DoEvents()
comp(i) = Nothing
End If
i = i + 1
End While
sr.Close()
sr = Nothing
For Each s As String In comp
If s Nothing Then
If s.ToUpper Dns.GetHostName.ToUpper Then
addresses.Add(Dns.GetHostByName(s).AddressList(0).ToString)
End If
End If
Next
Return addresses
End Function
[/sourcecode]
a questo punto non mi resta che sottoporre l'array di indirizzi restituito dalla funzione GetIpAddresses a CheckServer e, se viene rilevato un server, leggere i dati restituiti e formattarli adeguatamente:
[sourcecode language='vb']
Dim lista As ArrayList = GetIpAddresses()
For Each riga As String In lista.ToArray
Dim server As String = CheckServer(riga)
If server "" Then
Dim ServerName As String = server.Split("\")(Array.IndexOf(server.Split("\"), "sv_hostname") + 1)
Dim MapName As String = server.Split("\")(Array.IndexOf(server.Split("\"), "mapname") + 1)
Dim FragLimit As String = server.Split("\")(Array.IndexOf(server.Split("\"), "fraglimit") + 1)
Dim TimeLimit As String = server.Split("\")(Array.IndexOf(server.Split("\"), "timelimit") + 1)
Dim Version As String = server.Split("\")(Array.IndexOf(server.Split("\"), "version") + 1)
risultato = risultato & "--- Trovato Server ---" & vbCrLf
risultato = risultato & "Ip Address:" & riga & vbCrLf
risultato = risultato & "Server Name: " & ServerName & vbCrLf
risultato = risultato & "Mappa: " & MapName & vbCrLf
risultato = risultato & "FragLimit: " & FragLimit & vbCrLf
risultato = risultato & "TimeLimit: " & TimeLimit & FragLimit & vbCrLf
risultato = risultato & "Versione: " & Version & FragLimit & vbCrLf
TextBox1.Text = TextBox1.Text & risultato
End If
Application.DoEvents()
Next
End Sub
[/sourcecode]
Ho completato il tutto con il codice necessario a ridurre l'applicazione nella system tray (facendo ripetere la procedura di scan ogni 5 secondi) e a far riapparire un form qualora la ricerca fornisca esito positivo.
Il sorgente completo è scaricabile da QUI.
(e sperate che non finisca mai tra le mani del vostro capoufficio!) :-D