salve a tutti sono nuovo di questo forum e sono alle prime armi con visual basic...stavo creando un client/server ma ho un problema quando tento di connetermi mi da un'errore sulla porta da me scelta ora posto il codice per farvi vedere meglio
Client:
codice:
Public Class Form1
Dim Data As String
Private Property bytestotal As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static Stat As Boolean
If Stat = False Then
If Len(IPBox.Text) > 0 And Len(PortaBox.Text) > 0 Then
wskclient.Connect(IPBox, Val(PortaBox))
Button1.Text = "Disconnetti"
Stat = True
Label3.Text = "Connettendo"
Else
MsgBox("Dati mancanti!", vbExclamation)
End If
Else
wskclient.Close()
Stat = False
Label3.Text = "Chiudendo"
Button1.Text = "Connetti"
End If
End Sub
Private Sub wskclient_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles wskclient.CloseEvent
wskclient.Close() ' Per chiudere definitivamente la socket senno rimane .State = sckClosing
Label3.Text = "Disconnesso"
End Sub
Private Sub wskclient_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles wskclient.ConnectEvent
Label3.Text = "Connesso"
End Sub
Private Sub wskclient_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles wskclient.Error
wskclient.Close()
Label3.Text = "Errore TCP "
End Sub
End Class
Server:
codice:
Public Class Form1
Private Sub wskserver_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wskserver.ConnectEvent
wskserver.LocalPort = 7879
wskserver.Listen()
End Sub
End Class
voglio solo riuscire a connettermi qualcuno sa darmi una mano????
premetto che come ip metto 127.0.0.1 e la porta 7879....
vi prego help me...