Newsgroup: it.comp.lang.visual-basic
Titolo: winsock per principianti

Ho trovato questo tutorial per un'applicazione server-client con
winsock che per ora funziona solo in locale; qualche buon'anima
potrebbe commentarmi il codice, in modo da poter riuscire a
modificarlo e mettere l'exe server su un pc e il client su un altro?
(ovviamente se mi suggerite già il nuovo codice non mi offendo... :P 
) Grazie in anticipo...
codice server:
Private Sub Form_Load()
 
    Label2.Caption = Winsock1.LocalIP
 
    Label3.Caption = Winsock1.LocalHostName
 
    Winsock1.LocalPort = 4444
 
    Winsock1.Listen
 
End Sub
Private Sub Winsock1_Close()
 
    Shape1.BackColor = 255
 
    Winsock1.Close
 
    Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
 
    Shape1.BackColor = &HC000&
 
    If Winsock1.State <> sckClosed Then Winsock1.Close
 
    Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim InDati As String
    Winsock1.GetData InDati, vbString
 
    Label1.Caption = InDati                                         '
End Sub
codice client:
Private Sub Command1_Click()
 
    Winsock1.RemoteHost = Text1.Text
 
    Winsock1.RemotePort = 4444
 
    Winsock1.Connect
 
    Command2.Enabled = True
 
    Command3.Enabled = True
 
    Command1.Enabled = False
 
End Sub
Private Sub Command2_Click()
 
    Winsock1.Close
 
    Command1.Enabled = True
 
    Command2.Enabled = False
 
    Command3.Enabled = False
 
    Shape1.BackColor = 255
 
End Sub
Private Sub Command3_Click()
    If Winsock1.State = sckConnected Then
 
        Winsock1.SendData Text2.Text
 
        Text2.Text = ""
 
    Else
 
        Shape1.BackColor = 65535
    End If
 
End Sub
Private Sub Winsock1_Connect()
 
    Shape1.BackColor = &HC000&
 
End Sub

 ) Grazie in anticipo...
[cut]
Prima che ti sbranino, vorrei solo farti notare che se selezioni il
controllo e pigi F1 e dopo clicchi sul link delle proprietą puoi comodamente
commentartelo da solo il codice....
ciaociao

 [cut]
ti suggerisco di consultare questo tutorial:
http://www.redangel.it/programmatori/marco_turrini/winsock/winsock.asp
ciao
-- 
Fabio Angela (aka Red Angel) ICQ: 95966807
http://www.redangel.it
 : il portale sulla programmazione

 ciaociao
Inanzitutto non ho la guida installata e purtroppo nemmeno il cd,
quindi il tasto F! non funziona, poi non vedo perché qualcuno debba
sbranarmi: sto sempre attento a non atteggiarmi da saccente con chi è
meno ferrato di me in una data materia, se non altro per evitare
figure di m... (quell'ignorante potrebbe a sua volta ridicolizzarmi
appena cambiamo argomento, o magari nello stesso non appena "si fa le
ossa"..).
Per questo non mi faccio mai problemi ad ammettere di essere un
principiante quando intraprendo nuove strade ed è esattamente quello
che ho fatto: ho chiesto un aiuto, siamo in un paese libero (checché
ne dica il TG3 :P )) quindi chiunque può scegliere se rispondere o
meno e mi pare che è andata esattamente così. grazie comunque a chi mi
ha sisposto, bye

 ha sisposto, bye
Io volevo solo farti capire che comunque non è il modo giusto di postare qui
e che per un principiante la guida è il più prezioso dei componenti!
Altrimenti sarai costretto sempre a chiedere aiuto ogni volta che scrivi 2
righe di codice, magari per una banalissima proprietà della quale non ti è
chiaro il significato e l'utilizzo.
Comunquesia hai avuto la tua risposta, quindi per questa volta ti è andata
bene...;-)
ciaociao