Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Chat in VB6
Forum - Visual Basic 6 - Chat in VB6

Pagine: [ 1 2 3 4 5 6 7 8 9 10 ] Precedente | Prossimo
Avatar
jack1988 (Normal User)
Pro


Messaggi: 117
Iscritto: 27/02/2007

Segnala al moderatore
Postato alle 15:08
Domenica, 04/03/2007
Ciao da jack1988...volevo sapere se si può creare una chat in visual basic?...se si dp si può mettere su internet?

Grazie mille!!!:k:
complimenti a ki a pensato a questo forum!!!C sn tutte persone bravissime ed eccezionali!!!:k::k:

PM Quote
Avatar
jack1988 (Normal User)
Pro


Messaggi: 117
Iscritto: 27/02/2007

Segnala al moderatore
Postato alle 15:16
Domenica, 04/03/2007
Ho letto sempre in questo forum, ke già se ne è parlato d questo programma...la mia domanda è un'altra ke si aggiunge alle precedenti,e cioè:

Winsock?cos'è?...La mia chat può contenere al massimo 50 utenti?

Grazie in anticipo!!!:k::k::k:

PM Quote
Avatar
c.ronaldo (Normal User)
Expert


Messaggi: 577
Iscritto: 01/02/2007

Segnala al moderatore
Postato alle 15:18
Domenica, 04/03/2007
Bè si...
Creare una chat in vb col winsock è semplicissimo...
ci sono molti sorgenti in giro...Vedi un pò!
Se hai bisogno di chiederci qualcosa siamo qui! :k:

PM Quote
Avatar
jack1988 (Normal User)
Pro


Messaggi: 117
Iscritto: 27/02/2007

Segnala al moderatore
Postato alle 16:21
Domenica, 04/03/2007
dv posso scaricarli?
mi dai qualke link?

Grazie!!!:k:

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 16:33
Domenica, 04/03/2007
prova a dare uno sguardo tra le sorgenti di VB a sinistra...dovresti trovare qualcosa che può servirti

PM Quote
Avatar
c.ronaldo (Normal User)
Expert


Messaggi: 577
Iscritto: 01/02/2007

Segnala al moderatore
Postato alle 17:32
Domenica, 04/03/2007
Devi fare una cosa tipo questa :
Codice sorgente - presumibilmente VB.NET

  1. [b]Client[/b]
  2. Private Sub Connetti_Click()
  3.     txtReply.Text = txtReply.Text & "Connessione in corso..."
  4.     txtReply.SelStart = Len(txtReply.Text)
  5.     wskClient.Close
  6.     wskClient.LocalPort = 0
  7.     wskClient.Connect txtHostName.Text, 2000
  8. End Sub
  9. Private Sub Invia_Click()
  10.     If wskClient.State <> sckConnected Then
  11.         txtReply.Text = txtReply.Text & "Non connesso"
  12.         txtReply.SelStart = Len(txtReply.Text)
  13.         Exit Sub
  14.     End If
  15.     wskClient.SendData txtOut.Text & vbCrLf
  16. Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
  17.     Dim DATI As String
  18.     wskClient.GetData DATI
  19.     txtReply.Text = txtReply.Text & DATI & vbCrLf
  20.     txtReply.SelStart = Len(txtReply.Text)
  21. End Sub
  22.  
  23.  
  24. [b]Server[/b]
  25. Private Sub Invia_Click()
  26.     If wskServer.State <> sckConnected Then
  27.         txtReply.Text = txtReply.Text & "Non connesso" & vbCrLf
  28.         txtReply.SelStart = Len(txtReply.Text)
  29.         Exit Sub
  30.     End If
  31.     wskServer.SendData txtOut.Text & vbCrLf
  32. End Sub
  33.  
  34. Private Sub Listen_Click()
  35.  wskServer.Close
  36.     wskServer.LocalPort = 2000
  37.     wskServer.Listen
  38.     txtReply.Text = txtReply.Text & "Server in attesa..." & vbCrLf
  39.     txtReply.SelStart = Len(txtReply.Text)
  40. End Sub
  41.  
  42. Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
  43.     If (wskServer.State <> sckClosed) Then wskServer.Close
  44.     wskServer.Accept requestID
  45.     txtReply.Text = txtReply.Text & "Connessione accettata..." & vbCrLf
  46.     txtReply.SelStart = Len(txtReply.Text)
  47. End Sub
  48.  
  49. Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
  50.     Dim DATI As String
  51.     wskServer.GetData DATI
  52.     txtReply.Text = txtReply.Text & DATI & vbCrLf
  53.     txtReply.SelStart = Len(txtReply.Text)
  54. End Sub


Mi hai fatto sudare :D
Se non hai capito qualcosa dimmelo! :k:

PM Quote
Avatar
jack1988 (Normal User)
Pro


Messaggi: 117
Iscritto: 27/02/2007

Segnala al moderatore
Postato alle 17:35
Domenica, 04/03/2007
ho trovato un programma, ma funziona sl x 2 persone cioè il server e un client, invece io volevo creare un chat ke comprendi almeno 50 utenti...io cm server e gli altri utenti...si può fare?

Se si mi aiutate?...un chat privata...io questo intendo...si può fare?...cosa devo inserire nelle form x iniziare?

Grazie a ki risp x la disponibilità!!!:k::k::k:

PM Quote
Avatar
jack1988 (Normal User)
Pro


Messaggi: 117
Iscritto: 27/02/2007

Segnala al moderatore
Postato alle 17:38
Domenica, 04/03/2007
Grazie c.ronaldo ora lo provo...Ma è il tuo giocatore preferito?...se si complimenti,vuol dire ke ne capisci d calcio, ma nn solo...:k:


Grazie d nuovo!!!:k::k::k:

PM Quote
Avatar
jack1988 (Normal User)
Pro


Messaggi: 117
Iscritto: 27/02/2007

Segnala al moderatore
Postato alle 17:41
Domenica, 04/03/2007
1)Cosa devo inserire nella form Client?Quali controlli?

2)Cosa devo inserire nella form Server?Quali controlli?
:k::k::k:

PM Quote
Pagine: [ 1 2 3 4 5 6 7 8 9 10 ] Precedente | Prossimo