Valhalla Legends Forums Archive | Battle.net Bot Development | SID_GETADVLISTEX

AuthorMessageTime
JoeTheOdd
What goes in all these fields? The following warrant's an IPBan:

[pre]        Case "/gamelist"
            With PBuffer
                If UBound(Splt) < 1 Then
                    .InsertWORD 0
                Else
                    Select Case LCase(Splt(1))
                        Case "meele":          .InsertWORD &H2
                        Case "ffa":            .InsertWORD &H3
                        Case "1v1":            .InsertWORD &H4
                        Case "ctf":            .InsertWORD &H5
                        Case "greed":          .InsertWORD &H6
                        Case "slaughter":      .InsertWORD &H7
                        Case "sudden death":    .InsertWORD &H8
                        Case "ladder":          .InsertWORD &H9
                        Case "ironman":        .InsertWORD &H10
                        Case "ums":            .InsertWORD &HA
                        Case "team meele":      .InsertWORD &HB
                        Case "team ffa":        .InsertWORD &HC
                        Case "team ctf":        .InsertWORD &HD
                        Case "tvb":            .InsertWORD &HF
                        Case Else:              .InsertWORD 0
                    End Select
                End If
                .InsertWORD 0
                .InsertDWORD 0
                .InsertDWORD 0
                .InsertDWORD 0
                .InsertDWORD 100
                .InsertNTString ""
                .InsertNTString ""
                .InsertNTString ""
                .SendBNCSPacket &H9
            End With[/pre]
February 2, 2006, 1:08 PM
Ringo
Hmm, the only reall things i can see that your doing wrong, is the list type thingy (0x30 for showall or 0x1F for other) and maybe the stats code (if its used in 0x09 list requests, i forget) and 1 DWORD to many :P

Try somthing like this:
[code]
        Case "/gamelist"
            With PBuffer
                Dim G As Long, L As Long, S As Long
                S = &H0
                If UBound(Splt) < 1 Then
                    G = &H0'show all
                Else
                    Select Case LCase(Splt(1))
                        Case "show all":     G = &H0
                        Case "meele":        G = &H2
                        Case "ffa":          G = &H3
                        Case "1v1":          G = &H4
                        Case "ctf":          G = &H5
                        Case "greed":        G = &H6
                        Case "slaughter":    G = &H7
                        Case "sudden death": G = &H8
                        Case "ladder":       G = &H9:  S = &H1
                        Case "ironman":      G = &H10: S = &H3
                        Case "ums":          G = &HA
                        Case "team meele":   G = &HB
                        Case "team ffa":     G = &HC
                        Case "team ctf":     G = &HD
                        Case "tvb":          G = &HF
                        Case Else:           G = &H0'show all
                    End Select
                End If
                If G = 0 Then L = &H30 Else L = &H1F
                .InsertDWORD G 'Game type & 0x00 penalty
                .InsertDWORD L 'List type?
                .InsertDWORD S 'Stats code
                .InsertDWORD 20 'show 20 games max
                .InsertNTString ""
                .InsertNTString ""
                .InsertNTString ""
                .SendBNCSPacket &H9
            End With
[/code]

Hope this helps
February 2, 2006, 1:55 PM
JoeTheOdd
Thanks! I'm at school right now, but I'll test that out when I get home. I should have a copy of JBBE with me at all times, but eh, outgoing ports are blocked other than 80 and perhaps 81.
February 2, 2006, 6:08 PM
JoeTheOdd
[MyndFyre] Suffice it to say, it worked.[/MyndFyre]

Thanks!
February 3, 2006, 3:50 AM

Search