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:
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...
Fonte: Lucky VbGame
