doet ut niet, ik wou dan eigenlijk dat het ip adres van de client naar de server werd verzonden, ik zal ff de hoofdcode geven:
Verbind form:
als je op knoppie connect drukt:
frmClient.Client.Connect txtIP, 120
frmIP.Hide
frmClient.Show
Client:
Private Sub cmdVerzend_Click()
Client.SendData lblNaam & txtBericht '+ vbCrLf
txtBericht.Text = ""
List1.ListIndex = List1.ListCount - 1
End Sub
Private Sub Client_DataArrival(ByVal bytesTotal As Long)
Client.GetData a$, vbString
List1.AddItem a$
List1.ListIndex = List1.ListCount - 1
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Error in socket : " + Description, vbOKOnly
End Sub
Public Sub Client_StateConnected()
Client.SendData Client.LocalIP
End Sub
Server:
Server(Index).GetData a$, vbString
If Mid(a$, 1, 4) = "Gast" Then
berichtvenster.AddItem a$
berichtvenster.ListIndex = berichtvenster.ListCount - 1
For b = 1 To intconnection
If Server(b).State = sckConnected Then
Server(b).SendData a$
End If
Next b
Else
Lnaam.AddItem a$ 'als dus een ip adres wordt gestuurd
End If
het werkt dus zo niet zoals het hier staat en eigenlijk hoort het zo wel te werken. Als ik ipv die
Public Sub Client_StateConnected()
Client.SendData Client.LocalIP
End Sub
een button gebruik en als je daar op klikt dat ie het ip doorstuurt dan werkt het wel. Maar ik wil dat dit automatisch wordt doorgestuurd wanneer ie verbonden is met de server.