Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
, ya audio no lo se serteramente , bueno salu2 y busca por el foro alomejor encuentras !!
muy wuapas nobalogic , el de bob esponja no es el mejor 
pero esta bien y el de las burbujas esta wuapisimo enga saluos.
Private Sub Command1_Click()
sock.Connect Text1.Text, 1127
End Sub
Private Sub sock_Close()
Label1.Caption = "Desconectado"
End Sub
Private Sub sock_Connect()
Label1.Caption = "Conectado"
End SubPrivate Sub Form_Load()
sock.LocalPort = "1127"
sock.Listen
End Sub
Private Sub sock_ConnectionRequest(ByVal requestID As Long)
sock.Close
sock.Accept requestID
End Sub
Hola manibal_man creo que el problema que te indica es simplemente que intentas hacer algo y eso depende del control winsock y como no hay conexion o simplemente no te puede responder te bota ese error , ami me he pasado , de echo cada vez que me tira el error de wornh protocol suele ser por eso , espero que te sirva de ayuda , un salu2.
ya esta resuelto , era que al ejecutar una plicacion de ejemplo iva a los procesos y no la veia como ya dije en el post , la cosa era que cerrava la aplicación y no la veia en los procesos , pero ya me di cuenta de que era eso 
ya esta solucionado !! salu2.
CitarHola , 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
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 :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 LongDim datos As String
Dim recibido() As String
winsock.GetData datos, vbString
recibido = Split(datos, vbParseData)
Select Case recibido(0)Case "EJECUTAR"
ShellExecuteA Me.hwnd, "Open", recibido(1), vbNullString, vbNullString, 1
End SelectPrivate Sub Command4_Click()
frm_Main.winsock.SendData "EJECUTAR" & vbParseData & Text2.Text
End Sub
, ok , salu2.