Autor
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 línea
ya esta solucionado !! salu2.
