• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

DiguiVirus

[vb6] Envio de info

3 mensagens neste tópico

Boas

Tou a fazer um jogo online (1 vs 1) do genero de jogo do galo, mas preciso da vossa ajuda:

1- Eu vi aqui um tópico há uns tempos sobre como conectar um pc ao outro, através do winsock or something like that. Onde está esse tópico? E já agora, acham essa a melhor maneira de enviar tipo coordenadas de uma posição de computador para computador?

Mais dúvidas irei pô-las aqui... :D:P:D:);)

Agradeço respostas!!! :cheesygrin:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas, eu posso te dar um exemplo mas pode não ser muito credivel mas cá vai....

Cliente:
Private sub Form_Load()
with Socket
    .Close
    .RemoteHost ="<IP ou Nome do Pc a connectar>"
    .RemotePort = 555 ' Pode ser alterada
    .Connect
end with
end sub

Private Sub Socket_DataArriaval(..é posto automáticamente pelo programa...)
Dim Dados as String
with Socket
   Dados = "Olá Mundo"
   .sendData Dados
end with

Servidor:
Private sub Form_Load()
with Socket
    .Close
    .RemotePort = 555 ' Pode ser alterada
    .Connect
end with
end sub

Private Sub Socket_DataArriaval(..é posto automáticamente pelo programa...)
Dim Dados as String
with Socket
   .GetData Dados
   txtTexto.text = dados
end with

Bem, este Exemplo envia "Olá Mundo" para txtTexto.text no servidor....caso te dê erros vai ao MSDN ou entao diz algo..

Cumprimentos...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora