----------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