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

H4IMRICK_PT

problema com winsock em vb6

2 mensagens neste tópico

boas...

não consigo enviar uma mensagem de um pc para outro com winsock dame o estado 6

codigo do server:


Dim S As Integer

Private Sub Command1_Click()
Text1.Text = a.LocalIP
SER(0).Listen
S = 0
End Sub

Private Sub ser_ConnectionRequest(Index As Integer, ByVal requestID As Long)
S = S + 1
Load SER(S)
SER(S).Close
SER(S).Accept requestID
End Sub

Private Sub ser_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim dat As String
SER(Index).GetData dat
List1.AddItem (dat)
End Sub

codigo do cliente:

Private Sub Command1_Click()
cli.Connect Text1.Text
End Sub

Private Sub Command2_Click()
cli.SendData Text2.Text
End Sub

Private Sub Command3_Click()
MsgBox (cli.Object & "  " & cli.State)
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

alguém me podia ajudar a encontrar o erro.

no mesmo PC funciona bem mas de um pc para outro da o tal estado 6

bons postes

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

a net e publica e cada um tem uma conta será disso que não consegue fazer a ligação.

eu ja tentei com outros programas tambem em vb e não consegui fazer a ligação 

será possível resolver esse problema?

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