How can i get server info...

[xmRipper]

Code: [Select]

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim Buffer() As Byte
  Winsock1.GetData Buffer
  parseASEPacket Buffer
  Text2.Text = MapName
End Sub

what's wrong

[chrisgbk]

Code: [Select]

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim Buffer() As Byte
  Winsock1.GetData Buffer
  parseASEPacket Buffer
  Text2.Text = MapName
End Sub

what's wrong

The code I provided has all the variables private to the function; to make them accessible outside the function you would need to make them global instead. Also, I highly recommend that any code you write in VB uses the Option Explicit directive, otherwise if you use a variable that doesn't exist VB creates it for you automatically; this has the effect of making your code run without errors, but not functioning the way you intend.

[FliesLikeABrick]

Can anyone post an ASE parser in PHP (if they already have one) ?

edit: I'm writing one now, I'll have it done in a few hours (I'm at work and its quite busy, so I'm not sure how long it'll actually take)

[chrisgbk]

Can anyone post an ASE parser in PHP (if they already have one) ?

edit: I'm writing one now, I'll have it done in a few hours (I'm at work and its quite busy, so I'm not sure how long it'll actually take)

You can use the one Frenchie used as the base of his ASE lobby which is available here: http://www.tuts.net/~titulaer/rcon-0.38.0.tar.gz
then modify it as I detail here: http://forums.soldat.pl/index.php?topic=2928.msg34131#msg34131
or here: http://forums.soldat.pl/index.php?topic=2928.msg34172#msg34172
(or go one step further and modify it to be generic and parse the flag byte and use the value of it to determine what to parse.

However, it's rather trivial to write your own, as it's a simple protocol; particularily when you have visual basic code to follow since VB is reasonably close to psuedo-code.

Also, a followup to xmRipper:

Code: [Select]

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim Buffer() As Byte
  ReDim Buffer(bytesTotal - 1)
  Winsock1.GetData Buffer
  parseASEPacket Buffer
End Sub

should work; I didn't notice the lack of ReDim when I last looked at it.

[FliesLikeABrick]

I made another PHP one, I think it is more efficient a bit more featureful than Frenchie's.  It provides some "fixed" versions of things like time remaining, time limit, and other values (strips text so they're int-only and ready for use)
http://forums.soldat.pl/index.php?topic=12200