[vbs] Problemi Winsock

[drake88]

salve a tutti

sto creando un applicazione client-server tramite winsock, però ho un problema, cerco di spiegarvelo:

nel client attraverso un bottone devo assegnare ad una variabile (a$) una stringa ("mess") + il valore, o il testo che scrivo in una textbox

client

Private Sub Command2_Click()

a$="mess"

Winsock1.SendData a$ + Text1.Text

End Sub

oppure

Private Sub Command2_Click()

a$="mess" + text1.text

Winsock1.SendData a$

End Sub

ora il problema e nel server, xche io vorrei che ricevendo il contenuto, se

a$ ="mess" then msgbox (con il valore della text1)

sostanzialmente dovrei assegnare ad a$ un parte stringa (mess) + un altra parte variabile, ossia la text1.text

io ho provato cosi, ma nn funziona:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData(a$, vbString) 'scarica il conenuto in a$

if a$="mess" then

msgbox"text1.text"

ma nn funziona

spero di essere stato chiaro il piu possibile!

[Bug]

Se non ho capito male il client dovrebbe mandare la stringa "mess" + il contenuto della textbox, il server dovrebbe controllare che la stringa ottenuta inizi con "mess", a quel punto restituire il contenuto della textbox.

Per questo puoi usare la funzione Mid che prende una sottostringa in una stringa data e segue questa sintassi:

Mid(<stringa>,<inizio>[,<lunghezza>])

Dove:

• Stringa è dove si andrà a cercare
  
• Inizio è il carattere da dove si inizierà a prelevare
  
• Lunghezza corrisponde al numero di caratteri che dovrà avere la sottostringa
  

A questo punto nell'evento DataArrival del Winsock potresti mettere questo:

Winsock1.GetData a$, vbString
If Mid( a$, 1, 4 ) = "mess" Then
  MsgBox Mid( a$, 5, len( a$ ) - 4 )
End If

:up1: