Bom hoje vou explicar como fazer um chat in-game, usando o DirectPlay (Extensao do DirectX)
A Principio existem 2 tipos de mensagem, a mensagem definida pelo usuario (usado para conversação etc..) e a mensagem de Sistema (Aquelas basicas You Advanced……) Por exemplo a mensagem de sistema pode ser “Novo usuario entrou no chat!”.
Vamos ao que interessa:
Primeiro precisamos adicionar referencia ao DirectX
Menu Project > References…
Codigo:
Const MSG_CHATTEXT=0 ‘constante para identificar que é chat
Dim DP as DirectPlay ‘objeto DirectPlay
Dim dpMsg as DirectPlayMessage ‘declara a variavel que vai controlar as msg
Function SendSysMessage(strMessage as String)
‘ criamos o objeto mensagem
Set dpMsg=dp.CreateMessage
dpMsg.WriteLong MSG_CHATTEXT
dpMsg.WriteString strMessage
dp.SendEx lngPlayerID, DPID_ALLPLAYERS,DPSEND_GUARANTEED,dpMsg,0.0.0
End Function
Como meu tempo agora ta corrido eu explico como enviar para player especifico depois...
info
Grupo: Artesão
Registrado: 29/12/06
Posts: 111
Reputação: 0
Char no Tibia: King Unagi
E ai Galera!!!!
Bom hoje vou explicar como fazer um chat in-game, usando o DirectPlay (Extensao do DirectX)
A Principio existem 2 tipos de mensagem, a mensagem definida pelo usuario (usado para conversação etc..) e a mensagem de Sistema (Aquelas basicas You Advanced……) Por exemplo a mensagem de sistema pode ser “Novo usuario entrou no chat!”.
Vamos ao que interessa:
Primeiro precisamos adicionar referencia ao DirectX
Menu Project > References…
Codigo:
Como meu tempo agora ta corrido eu explico como enviar para player especifico depois...
Fonte: Lucky VbGame