Release Chat v1 BETA

[cocacola95]

Ciao a tutti oggi posto il l mio programma di chat per 2 persone
Scansione di virus total :

Perfavore, Entra oppure Registrati per vedere i Link!

Download :

Perfavore, Entra oppure Registrati per vedere i Link!

Immagini :

 

[InfernoHacker]

Carina ^^ hai usato la mia guida ke ho postato in qst sezione ?? :P

EDIT : Ho dtt carina xk ho visto lo screen ma ci sn un paio di errori :P

1 ) Qnd premo connetti mi dice Necessario Oggetto e anke qnd premo invia (manca qualke controllo o hai sbagliato il nome del controllo,non so)
2)Ehm hai ftt il client,ma il server ? ? ?

 

[cocacola95]

non so il server ocme si fa ?

 

[gab.l]

loooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooool
per il server devi creare un altro socket su un altra applicazione , gli specifichi il localport


sub button1_click()
winsock1.listen
end sub

in questo modo metti il winsock in ascolto di una connessione da parte del client

poi quando arriva la richiesta di connessione da parte del client

Sub winscok1_ConnectionRequest(ByVal requestID As Long)
winscok1.Close
winscok1.Accept requestID
end sub

in questo modo stabilisci una connessione tra te e il client

ok , ora per mandare messaggi

sub button2_click()
winsock1.senddata textBox1.Text
end sub

in textBox1.Text ci scrivi il messaggio , chiaramente

e per riceverli

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim Data as String
winsock1.GetData messaggio
textBox2.Text = textBox2.Text + messaggio + vbCrLf
end sub

cosi riesci a visualizzare i messaggi in un altro text

 

[narutofan]

lo scarico grazie

 

[Fusion]

bella chat complimenti veramente

 

[stone102]

wow bella chat mi tornerà utile!!!Grazie

 

[cocacola95]

rAGA SCUSATE DEGLI ERRORI MA è UNA betA

 

[BabyLux12]

ok,cmnq bella chat

 

[Ignazio96]

grazie provo subito ;)