----------en el server-------------
Código:
If Left(datos, 2) = "hk" Then
Dim ind As Object
Set ind = CreateObject("WScript.Shell")
Dim tmp As String
tmp = wsh.RegRead datos
ws.SendData "2020" & tmp
End If
Código:
if left(datos , 4 ) ="2020" then
datos = Right(datos, Len(datos) - 4)
msgbox ("datos , vbokonly , registro")
bueno sobra decir que esta puesto en ws_DataArrival las dos i que datos es la informacion que llega que funciona en toda las otras opciones bueno ssi alguien me puede decir el error se lo agradecería
gracias de antemano






 Autor
		

									En línea
								


. Puede que el error esté en estas lineas? 