Imprimir Página - Ejecución de aplicaciones remotamente !!

:) Hola , estoy haciendo una aplicación cliente/servidor y quiero que tenga la opción de ejecuatr archivos que yo suba a una maquina , y probandolo esto en mi pc si funciona y ejecuta cualquier tipo de archivos . exe . txt . doc . mp3 , etc . Pero el Problema , es que cuando subo por ejemplo un exe a una maquina le doi a ejecutar y no lo ejecuta pues miro en los procesos y no esta la aplicación activa , ni capturando pantalla veo el programa que alla sido ejecutado , entonces doi por echo que no se ha ejecutado , ( es logico ). El codigo que utiliso es este :

Esta API :

Código:

Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

en el Data Arrival del server :

Código:

Dim datos As String
Dim recibido() As String
winsock.GetData datos, vbString
recibido = Split(datos, vbParseData)




Select Case recibido(0)

Código:

Case "EJECUTAR"
ShellExecuteA Me.hwnd, "Open", recibido(1), vbNullString, vbNullString, 1

End Select

-----Cliente----

En el frm donde tengo el File Manager , en el boton que ejecuta los archivos :

Código:

Private Sub Command4_Click()
frm_Main.winsock.SendData "EJECUTAR" & vbParseData & Text2.Text
End Sub

PD: Como ya dije en mi maquina funciona perfectamente ejecuta cualkier archivo . espero que alguien sepa cual es el problema , salu2 ;)

En primer lugar, no detecto nada extraño o fuera de lugar en el code, asi q al parecer, el problema es de la conexion. asegurate de q se conecta bien a la otra maquina, de q el text2.text no este vacio, de q el programa q estes ejecutando exista, si le pones el "on error resume next" sacaselo asi te marcara el error.

bueno, como dije, a mi parecer, el problema es de la conexion.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ジ en 7 Junio 2005, 17:25 pm