Visual Basic 6 - Chat in VB6

04/03/07 14:08

jack1988

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:

aaa

04/03/07 14:16

jack1988

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:

aaa

04/03/07 14:18

c.ronaldo

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:

aaa

04/03/07 15:21

jack1988

dv posso scaricarli?
mi dai qualke link?

Grazie!!! :k:

aaa

04/03/07 15:33

prova a dare uno sguardo tra le sorgenti di VB a sinistra...dovresti trovare qualcosa che può servirti

04/03/07 16:32

c.ronaldo

Devi fare una cosa tipo questa :

[b]Client[/b]
Private Sub Connetti_Click()
    txtReply.Text = txtReply.Text & "Connessione in corso..."
    txtReply.SelStart = Len(txtReply.Text)
    wskClient.Close
    wskClient.LocalPort = 0
    wskClient.Connect txtHostName.Text, 2000
End Sub
Private Sub Invia_Click()
    If wskClient.State <> sckConnected Then
        txtReply.Text = txtReply.Text & "Non connesso"
        txtReply.SelStart = Len(txtReply.Text)
        Exit Sub
    End If
    wskClient.SendData txtOut.Text & vbCrLf
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
    Dim DATI As String
    wskClient.GetData DATI
    txtReply.Text = txtReply.Text & DATI & vbCrLf
    txtReply.SelStart = Len(txtReply.Text)
End Sub


[b]Server[/b]
Private Sub Invia_Click()
    If wskServer.State <> sckConnected Then
        txtReply.Text = txtReply.Text & "Non connesso" & vbCrLf
        txtReply.SelStart = Len(txtReply.Text)
        Exit Sub
    End If
    wskServer.SendData txtOut.Text & vbCrLf
End Sub

Private Sub Listen_Click()
 wskServer.Close
    wskServer.LocalPort = 2000
    wskServer.Listen
    txtReply.Text = txtReply.Text & "Server in attesa..." & vbCrLf
    txtReply.SelStart = Len(txtReply.Text)
End Sub

Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
    If (wskServer.State <> sckClosed) Then wskServer.Close
    wskServer.Accept requestID
    txtReply.Text = txtReply.Text & "Connessione accettata..." & vbCrLf
    txtReply.SelStart = Len(txtReply.Text)
End Sub

Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
    Dim DATI As String
    wskServer.GetData DATI
    txtReply.Text = txtReply.Text & DATI & vbCrLf
    txtReply.SelStart = Len(txtReply.Text)
End Sub

Mi hai fatto sudare

Se non hai capito qualcosa dimmelo! :k:

aaa

04/03/07 16:35

jack1988

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: