Twitch nutzt IRC-Server für die Abwicklung des Chats.
Leider scheitere ich schon beim Login.
Hier mein Testcode:
Code: Alles auswählen
#BOT_NICK = "xyz"
#BOT_PASS = "oauth:xyz"
#BOT_CHANNEL = "xyz"
Global Handle.i
Global Event.i
Global Exit.i
Global Dim Packet.b(65536)
Global PacketSize.i
Procedure.i botConnect()
ProcedureReturn OpenNetworkConnection("irc.chat.twitch.tv",6667,#PB_Network_TCP)
EndProcedure
Procedure.i botAuth(Nick.s,Pass.s,Chan.s)
SendNetworkString(Handle,"PASS " + Pass + Chr(13) + Chr(10))
SendNetworkString(Handle,"NICK " + Nick + Chr(13) + Chr(10))
SendNetworkString(Handle,"USER " + Nick + " 0 * " + Nick + Chr(13) + Chr(10))
SendNetworkString(Handle,"JOIN #" + Chan + Chr(13) + Chr(10))
EndProcedure
If InitNetwork()
Handle = botConnect()
If Handle
botAuth(#BOT_NICK,#BOT_PASS,#BOT_CHANNEL)
Repeat
Event = NetworkClientEvent(Handle)
Select Event
Case #PB_NetworkEvent_Data
PacketSize = ReceiveNetworkData(Handle,@Packet,65536)
Debug PeekS(@Packet,PacketSize,#PB_UTF8|#PB_ByteLength)
Case #PB_NetworkEvent_Disconnect
Exit = #True
EndSelect
Until Exit
CloseNetworkConnection(Handle)
EndIf
EndIf