Commands

[Hdx]

[C>0x0E]        SID_CHATCOMMAND
[S>0x0F]    SID_CHATEVENT

0x0E is C->S only, 0x0F is S->C only.

As for what I said this might be better:

Code Select Expand

Public Sub OMGOMGOMGPARSE0x0F(strData as string)
   Dim ID as long, UN as string, MSG as string
   ID = GetDWORD(Mid(strData, 5, 4))
   strData = Mid(strData, 25)
   UN = Left(strdata, Instr(StrData, Chr(&H0)) - 1)
   StrData = Mid(StrData, Len(UN) + 2)
   MSG = Left(strdata, Instr(StrData, Chr(&H0)) - 1)
   
   If ID = &H5 or ID = &H4 then
          Call OMGHandelCommands(UN, MSG)
   End If
End Sub

Public Sub OMGHandelCommands(UN as string, MSG as string)
    If Left(MSG, 5) = ".say " then AddQ UN & "says: " & Mid(MSG, 6)
End Sub

:/
Anyways... Like I said, when you recive a whisper of chat text. Call a seprate sub to handleel the diffrent commands.
~-~(HDX)~-~

[MyndFyre]

Code Select Expand

Public Sub OMGOMGOMGPARSE0x0F(strData as string)

WTF?

[Hdx]

Some random sub to Parse incoming 0x0F.

Sorta like mine:

Code Select Expand

Public Sub Handle0x0F(Index As Integer, EID As Long, Flags As String, Ping As Long, Void As String, _
                    Name As String, Message As String)
    Select Case EID
        Case ID_TALK: Call OnTalk(Index, Name, Flags, Message, Ping)
        Case ID_EMOTE: Call OnEmote(Index, Name, Flags, Message)
        Case ID_CHAN: Call OnChannel(Index, Message)
        Case ID_USER: Call OnUser(Index, Name, Flags, Message, Ping)
        Case ID_JOIN: Call OnJoin(Index, Name, Flags, Message, Ping)
        Case ID_LEAVE: Call OnLeave(Index, Name, Flags)
        Case ID_WHISPTO: Call OnWhisperTo(Index, Name, Flags, Message, Ping)
        Case ID_WHISPFROM: Call OnWhisperFrom(Index, Name, Flags, Message)
        Case ID_INFO: Call OnInfo(Index, Message)
        Case ID_FLAGS: Call OnFlags(Index, Name, Flags, Message, Ping)
        Case ID_BROADCAST: Call OnInfo(Index, Message)
        Case ID_ERROR: Call OnError(Index, Message)
        Case Else: Call OnUnknown(Index, Message)
    End Select
End Sub
...
~-~(HDX)~-~

[Warrior]

Haha, totally misread what you said. Must be having an off day.

[Lordrune]

What I think is going on is he wants a one-line segment of code that magically connects to battle.net.

Code Select Expand

ws.Connect "USEast.battle.net", 6112
ws.Send Chr(&H3) & chr(&H4) & "anonymous" & vbcrlf & vbcrlf
Wow... 2 lines?
~-~(HDX)~-~

My bot already connnects to bnet..
Im trying to add commands to it

[Hdx]

*pokes the last few posts of his*
It's not hard, the hard part is figure out what commands to add. :/
~~(HDX)~-~

[Kp]

Lordrune is either a troll or supremely inept at communicating his intent.  Assuming you all haven't been feeding a troll for the past couple of days:

Lordrune: specify precisely what you want, or you're not going to get any help.

[R.a.B.B.i.T]

What I think is going on is he wants a one-line segment of code that magically connects to battle.net.

Code Select Expand

ws.Connect "USEast.battle.net", 6112
ws.Send Chr(&H3) & chr(&H4) & "anonymous" & vbcrlf & vbcrlf
Wow... 2 lines?
~-~(HDX)~-~

My bot already connnects to bnet..
Im trying to add commands to it

It connects but you can't write a simple command parser?  Tsk.  Tsk.  Sounds like someone isn't doing all the work they say they are...

[Lordrune]

Iight wuts wrong wit this code cause i keep gettin an error

Public Function StartCommands(Username As String, message As String)
Dim Stuff() As String
Stuff = Split(message, " ")
Command = Stuff(0)
Select Case LCase(Command)
Case ".say"
frmMain.wsBNET.SendData Stuff(2)
End Select
End Function

the error is Command = Stuff(0)

[MyndFyre]

If there is no message, and therefore no item at index 0 of your array, you'll generate an Index-out-of-Bounds error.

In the future, post the error message you receive and the conditions in which it is received.

[Lordrune]

ok..

[Lordrune]

well uh lets see here still doin the same shyt

[Hdx]

Code Select Expand


Stuff = Split(message & Space(&H1337), " ")
Should fix your peoblem.

If your next post dosent have more info, I willpersonally do anything to get a mod to trash this.

What we need: (so it's perfectly clear)
The contents of Each vareable, at EVERY stage. And a properly formatted snippit of code incased in the [ code] tags.
~-~(HDX)~-~

[Blaze]

He also didn't declare "Command".

[MyndFyre]

We also need an exact error message, conditions for reproducing the error, and when it occurs (compile-time or run-time).