Trocar Informação Entre 2 Pc's

[Lucas Phillip]

bom.. o título do tópico não sei se é o melhor pro q eu quero, mas não pensei em algo melhor

bom, o q eu quero fazer é o seguinte:

tem 2 usuarios conectados atraves do winsock.. ai quando um clica num botão aparece um numero aleatorio de 1 a 20 pra ele.. ai quando os 2 apertam o botão, o programa confere qual é o maior e fala pro usuario q ganhou q ele ganhou e pro q perdeu q ele perdeu... mas o script q eu fiz não ta funcionando não ... na verdade eu não tinha a mínima ideia de como fazer isso, então eu sai tentando e acabo saindo isso ai:

botão para gerar o numero e enviar:

Private Sub Command1_Click()
    Dim a As Integer
    Randomize
    D1 = Int(Rnd() * 20) + 1
    Text1.Text = Text1.Text + vbCrLf + USER + " - Tirou " & D1 & " de iniciativa"
    PRONTO = True
    Command1.Visible = False
    For u = 1 To iUsers
    If Winsock(u).State = 7 Then
        Winsock(u).SendData D1
        Winsock(u).SendData USER + " - Tirou " & D1 & " de iniciativa"
    End If
    Next u
End Sub

botão pra receber:

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim STR As String

Winsock.GetData STR, vbString, bytesTotal

If (STR > 0) Then
    If (PRONTO = False) Then
        D2 = STR
        Command1.Enabled = True
        PRONTO = True
    End If
Else
    Text1.Text = Text1.Text + vbCrLf & STR
End If

If (STR = "perdeu") Then
    RL = True
    Text1.Text = Text1.Text + vbCrLf + USER + " - Rodada Livre"
    comum.Enabled = True
End If

If (D2 > D1) Then
        Text1.Text = Text1.Text + vbCrLf + USER + " - Rodada Livre"
        For u = 1 To iUsers
        If Winsock.State = 7 Then
            Winsock.SendData USER + " - Rodada Livre"
        End If
        Next u
        RL = True
    End If
    If (D2 < D1) Then
        For u = 1 To iUsers
        If Winsock.State = 7 Then
            Winsock.SendData "perdeu"
        End If
        Next u
        RL = False
    End If
End Sub

são 2 forms, um abre o ip, e o outro conecta... esse codigo acima é de quem abre o ip pra outra pessoa conectar, mas o codigo de quem conecta é quase igual e não faz mt diferença eu posta aqui não...

bom, se alguém entender meu problema, me de uma luz plz

vlw

[Lucas Phillip]

esquece esse tópico.. já bolei um jeito de fazer isso..

[William Rodrigues]

Beleza cara...

Precisando brother, é só fazer uma busca aqui no fórum

Abraços,

William Rodrigues