Creare applicazione Client/Server in vb 6.0 [Operazione parte 2]

Eccoci qua!
La seconda parte del nostro programmino infernale!!!
Stiamo quindi creando l'interfaccia client. Quello che bisogna inserire nel nostro form sono:

- 4 Command Button
- 1 Winsock control
- 1 Textbox
- 1 Label



Rinominare ( campo Name ) il tutto in questo modo:

Command1 - cmdconnect
Command2 - cmddisconnect
Command3 - cmdopen
Command4 - cmdclose
Label1 - lblstatus
Text1 - txtip
Winsock1 - tcpclient



Per cambiare invece le scritte potete utilizzare il campo "Caption" per Bottoni e Label, e il campo "Text" per i Textbox!!!

Andiamo a vedere un po' di codice!!!
Fate doppio click sul bottone Connetti e inserisci questo codice!!!

Private Sub cmdconnect_Click()
cmdconnect.Enabled = False 'Disabilita il bottone connetti
lblstatus.Caption = "Connessione in corso..." 'Mostra questa scritta nel campo label
If txtip.Text = "" Then ' Se questa textbox è vuota
MsgBox "Inserisci un indirizzo IP valido", vbCritical ' mostra questo messaggio di errore
End If
tcpclient.Connect txtip.Text, 999 ' altrimenti si connette sulla porta 999 dell'indirizzo ip
End Sub

Commenti

  1. The owner of this blog has a strong personality because it reflects to the blog that he/she made.

    RispondiElimina
  2. i'm also into those things. care to give some advice?

    RispondiElimina
  3. i'm also into those things. care to give some advice?

    RispondiElimina
  4. Ciao sto aspettando la continuazionee!!!!
    Se per caso puoi inviarmela fammi sapere il mio indirizzo è syrion_9@hotmail.com
    ciao ciao e grazie:D

    RispondiElimina

Posta un commento