0x71 C => S

[UserLoser.]

Looks like a valid response to me..

[vuther.de]

It is, but it's not sending a invitation. It's pissing the living fuck out of me.
Anyone have any suggestions?

I fixed up my code alitte:

Code Select Expand


Private Function FormatTag(ByVal strTag As String) As String
Select Case Len(strTag)
Case 2
FormatTag = vbNullChar & vbNullChar & StrReverse(strTag)
Case 3
FormatTag = vbNullChar & StrReverse(strTag)
Case 4
FormatTag = StrReverse(strTag)
End Select
End Function

--

Code Select Expand


Private Sub cmdInvite_click()
Dim ClanName As String, strCandidates As String
Dim I As Integer, intCount As Integer
   
    ClanName = txtClanName.Text
   
    For I = 1 To lstMembers.ListItems.Count
    If lstMembers.ListItems.Item(I).Checked Then: s
trCandidates = strCandidates & lstMembers.ListItems.Item(I).Text & Chr$(0)
    If lstMembers.ListItems.Item(I).Checked Then: intCount = intCount + 1
    Next I
   
    With PBuffer
        .InsertDWORD GetTickCount()
        .InsertNTString ClanName
        .InsertNonNTString FormatTag(txtTag.Text)
        .InsertBYTE intCount
        .InsertNonNTString strCandidates
        .sendPacket &H71
    End With
End Sub


Here's the packetlog with it:

[11:11:40 PM] BNET: Packet sent: 0x71
[11:11:40 PM] Output dump: 0000:  F3 37 A7 14 6F 68 68 69 00 00 00 76 65 09 4D 61   ó7§ohhi...ve.Ma
0010:  6C 69 63 65 31 31 32 00 64 73 66 73 66 64 33 64   lice112.dsfsfd3d
0020:  00 73 64 66 73 64 64 73 33 00 64 73 66 64 73 64   .sdfsdds3.dsfdsd
0030:  33 00 33 64 73 66 64 33 64 00 43 50 72 6F 67 72   3.3dsfd3d.CProgr
0040:  61 6D 69 6E 67 00 43 70 72 6F 67 72 61 6D 65 72   aming.Cprogramer
0050:  00 51 75 65 6C 6F 73 77 79 65 00 64 72 73 66 67   .Queloswye.drsfg
0060:  66 34 00                                          f4..............
[11:11:40 PM] BNET: Packet received: 0x71
[11:11:40 PM] Output dump: 0000:  FF 71 0A 00 F3 37 A7 14 02 00                     ÿq..ó7§.......

[Hdx]

[11:11:40 PM] BNET: Packet received: 0x71
[11:11:40 PM] Output dump: 0000:  FF 71 0A 00 F3 37 A7 14 02 00                     ÿq..ó7§.......

Wtf? A deformed response from Bnet?It should be a cookie, (F3 37 A7 14), then the response as a dword. But your reciving the response as a Word. Being the response of 02, it could safily be concived as failure.
~-~(HDX)~-~

[vuther.de]

That's what happenes when I use 2/3 lengths for tag.

[Eric]

Here's a suggestion: Learn what are and how to use binary datatypes (bytes, words, double-words and strings).  Then you'll need to learn how to impliment such datatypes using Visual Basic and finally, you'll need to learn how to use your packetbuffer properly.  When you have learned all of these things, sending this packet will be a walk in the park.

[Soul Taker]

I don't know why you go to such lengths to make the tag.  Just do something like String(4 - Len(Tag), vbNullChar), and then append or prepend the tag, depending on whatever you're doing with your weird non-DWORD handling of it.

[vuther.de]

I don't know why you go to such lengths to make the tag.  Just do something like String(4 - Len(Tag), vbNullChar), and then append or prepend the tag, depending on whatever you're doing with your weird non-DWORD handling of it.

I have.
Here's what I tried before using that:
ClanTag = String(4, vbNullChar) & StrReverse(txtTag.Text)
ClanTag = Right$(ClanTag, 4)

[UserLoser.]

I don't know why you go to such lengths to make the tag.  Just do something like String(4 - Len(Tag), vbNullChar), and then append or prepend the tag, depending on whatever you're doing with your weird non-DWORD handling of it.

I have.
Here's what I tried before using that:
ClanTag = String(4, vbNullChar) & StrReverse(txtTag.Text)
ClanTag = Right$(ClanTag, 4)

Why don't you just use CopyMemory()...?

[vuther.de]

I'll try it.

Edit:

Code Select Expand


Private Sub cmdInvite_Click()
Dim ClanTag As String, ClanName As String, strCandidates As String
Dim I As Integer, intCount As Integer
 
    ClanTag = PBuffer.GetDWORD(StrReverse(txtTag.Text))
    ClanName = txtClanName.Text
   
    For I = 1 To lstMembers.ListItems.Count
    If lstMembers.ListItems.Item(I).Checked Then: strCandidates = strCandidates & lstMembers.ListItems.Item(I).Text & Chr$(0)
    If lstMembers.ListItems.Item(I).Checked Then: intCount = intCount + 1
    Next I
   
    With PBuffer
        .InsertDWORD GetTickCount()
        .InsertNTString ClanName
        .InsertDWORD StrReverse(ClanTag)
        .InsertBYTE intCount
        .InsertNonNTString strCandidates
        .sendPacket &H71
    End With
End Sub


[QwertyMonster]

I'll try it.

Edit:

Code Select Expand


Private Sub cmdInvite_Click()
Dim ClanTag As String, ClanName As String, strCandidates As String
Dim I As Integer, intCount As Integer
 
    ClanTag = PBuffer.GetDWORD(StrReverse(txtTag.Text))
    ClanName = txtClanName.Text
   
    For I = 1 To lstMembers.ListItems.Count
    If lstMembers.ListItems.Item(I).Checked Then: strCandidates = strCandidates & lstMembers.ListItems.Item(I).Text & Chr$(0)
    If lstMembers.ListItems.Item(I).Checked Then: intCount = intCount + 1
    Next I
   
    With PBuffer
        .InsertDWORD GetTickCount()
        .InsertNTString ClanName
        .InsertDWORD StrReverse(ClanTag)
        .InsertBYTE intCount
        .InsertNonNTString strCandidates
        .sendPacket &H71
    End With
End Sub


Why did u just post some code? Without saying wether its working or something wrong? What do u want us to do with that code?

[UserLoser.]

Why did u just post some code? Without saying wether its working or something wrong? What do u want us to do with that code?

His problem has already been solved, yet he's coming back for more help on nothing.  I don't think he should be posting any code

[vuther.de]

Why did u just post some code? Without saying wether its working or something wrong? What do u want us to do with that code?

His problem has already been solved, yet he's coming back for more help on nothing.  I don't think he should be posting any code

No, on the invitation it only say's Clan, no name in it.

[Warrior]

Then thats and error on your side.

[vuther.de]

This has been working all along.. My god. I sent it and on the invitation it said "Clan". But I told people to accept it and everyone did and it made the clan I wanted it to. Would anyone know why it only says Clan?

[Blaze]

Because your not including the variable that shows the actual clans name on the display message?