Visual Basic 6 - help programma in vb6

Forum - Visual Basic 6 - help programma in vb6

Pagine: [ 1 2 ]

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 22:33
Mercoledì, 04/06/2008

salve sto facendo una semplice chat in vb6 composta da un client e un server che si collegano con il winsock. vorrei fare che quando nella chat scrivo ad esempio "messaggio" nel pc dove gira il server appaia un msgbox. ho provato a fare così:

Codice sorgente - presumibilmente VB.NET

Private Sub Timer1_Timer()
if txtReply.text = "messaggio" then
MsgBox "Ciao", vbDefaultButton1, "Ciao utente!"
end if
end sub

ma non funziona sapete darmi una mano?? grazie in anticipo!!

Ultima modifica effettuata da super rambo il 04/06/2008 alle 22:48

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 22:43
Mercoledì, 04/06/2008

il codice che hai postato nn sa una piega, quindi l' errore deve essere da un' altra parte
se posti tutto il codice possiamo aiutarti

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 22:49
Mercoledì, 04/06/2008

Il codice che hai mostrato utilizza un timer ... cosa c'entra con la comunicazione in rete?

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 22:52
Mercoledì, 04/06/2008

allora io vorrei fare che se nel client scrivo al server la parola "messaggio" nel pc dove gira il server appaia un msgbox ho messo il timer che dovrebbe controllare se nella txtReply del server c'è la parola messaggio e nel caso ci fosse esegue msgbox... ma non va come mai??

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 22:55
Mercoledì, 04/06/2008

Senti super ... ma tu l'hai scritto il codice del server e quello del client?

O non hai ancora scritto nulla?

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 22:57
Mercoledì, 04/06/2008

scusate eccolo
client

Codice sorgente - presumibilmente VB.NET

Option Explicit
 
Public 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 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
 
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
End Sub

server

Codice sorgente - presumibilmente VB.NET

Option Explicit
 
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 Timer1_Timer()
If txtReply.Text = "messaggio" Then
MsgBox "Ciao", vbDefaultButton1, "Ciao utente!"
End If
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
 
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

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 23:01
Mercoledì, 04/06/2008

Prima di inserire altro codice e timer ... i programmi funzionano?

Ovvero, se li avvii si collegano?

E se scrivi qualcosa nel client, appare nel textbox del server?

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 23:08
Mercoledì, 04/06/2008

si, la conessione avviene correttamente in quanto nel serer mi dice connessione accettata e quello che scrivo nel clien appare nella txtReply del server...

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 23:17
Mercoledì, 04/06/2008

Quindi cosa c'entra il timer?

Se devi controllare quello che ricevi lo devi fare nella

wskServer_DataArrival

Pagine: [ 1 2 ]