Hey man !! que extraño que poco despues de yo postear la misma pregunta ( casi lo mismito) tú psotees preguntando algo que yo pregunte ¬¬ NO me hace gracia!! OK!! Espero que no te cojas mas "quedaditas =les"
Por si te sirve de algo podrias aver leido mi post y ver un codigo de ejemplo que ya solucione el problema y no era por el codigo , osea si que funciona mi codigo , ya tengo ese porblema resuelto
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 Wink
Salu2.
Autor
En línea
