0x79 problems

[Arthas]

Problem: my decline function works. But my accept function DOSNT.

Decline:

Code Select Expand

Public Sub Command1_Click()
With pBuffer
   .InsertDWORD c_Cookie
   .InsertNonNTString StrReverse(c_Tag)
   .InsertNTString c_Leader
   .InsertBYTE &H4
   If xMode = 1 Then
       .SendPacket frmMain.sckBnet, &H79
   ElseIf xMode = 2 Then
       .SendPacket frmMain.sckBnet, &H72
   End If
End With
addText "BNET: You have rejected Clan " & Text1.text & "'s invitation.", vbRed
Me.Hide
End Sub

Accept:

Code Select Expand

Public Sub Command2_Click()
With pBuffer
   .InsertDWORD c_Cookie
   .InsertNonNTString StrReverse(c_Tag)
   .InsertNTString c_Leader
   .InsertBYTE &H6
   If xMode = 1 Then
       .SendPacket frmMain.sckBnet, &H79
   ElseIf xMode = 2 Then
       .SendPacket frmMain.sckBnet, &H72
   End If
End With
addText "BNET: You accepted Clan " & Text1.text & "'s invitation. You are now a member of that clan.", vbGreen
Me.Hide
End Sub

[MyndFyre]

Problem: my decline function works. But my accept function DOSNT.

Decline:

Code Select Expand

Public Sub Command1_Click()
With pBuffer
   .InsertDWORD c_Cookie
   .InsertNonNTString StrReverse(c_Tag)
   .InsertNTString c_Leader
   .InsertBYTE &H4
   If xMode = 1 Then
       .SendPacket frmMain.sckBnet, &H79
   ElseIf xMode = 2 Then
       .SendPacket frmMain.sckBnet, &H72
   End If
End With
addText "BNET: You have rejected Clan " & Text1.text & "'s invitation.", vbRed
Me.Hide
End Sub

Accept:

Code Select Expand

Public Sub Command2_Click()
With pBuffer
   .InsertDWORD c_Cookie
   .InsertNonNTString StrReverse(c_Tag)
   .InsertNTString c_Leader
   .InsertBYTE &H6
   If xMode = 1 Then
       .SendPacket frmMain.sckBnet, &H79
   ElseIf xMode = 2 Then
       .SendPacket frmMain.sckBnet, &H72
   End If
End With
addText "BNET: You accepted Clan " & Text1.text & "'s invitation. You are now a member of that clan.", vbGreen
Me.Hide
End Sub

Code Select Expand


   If xMode = 1 Then
       .SendPacket frmMain.sckBnet, &H79
   ElseIf xMode = 2 Then
       .SendPacket frmMain.sckBnet, &H72
   End If


What's your xMode variable set to?

Also -- damn man, do you name your form variables?  Command1_Click() ?  How about cmdDecline or btnDecline?

Last thought -- is the InsertNonNTString function operating correctly?  I can't recall offhand, but I know with certainty that when a string isn't all four bytes (the DWORD length), the other bytes are zero -- what I can't recall is whether they are at the front or the end of the tag.  So, for example, my tag is AoA, it might end up being sent as:

Code Select Expand


00 41 6f 41                         . A o A


or it might be sent as

Code Select Expand


41 6f 41 00                         A o A .


I believe it is the former.  Check your packet buffer class.