Mensajes

Hola a todos.

Veran tengo el siguiente code que captura toda la pantalla.

Código [Seleccionar] Expandir



Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
  keybd_event 44, 0, 0&, 0&
End Sub



Mi problema es que no se como puedo transferir la imagen a 1 control PictureBox o Imagebox despues de capturarla.
No me deja guardarla en una variable

Alguien me puede echar 1 mano ?

Gracias

Durante su ejecucion

Eso es cambiar el nombre del exe, pero no mientras esta corriendo.

Hola, me preguntaba si es posible cambiar el nombre del programa durante su ejecucion.

Es decir, que si el programa compilado se llama res.exe que en la lista de procesos aparezca matrix.exe

Gracias

ASUNTO YA FINALIZADO EN OTRO POST ANTERIOR

GRACIAS A TODOS, MUCHAS GRACIAS



Aparte de algun fallo en el code, no me conectaban los programas porque intentaban conectarse a la misma IP.

Ya lo he solucionado.

A continuacion, les pongo el code que ya funciona.

Es por si a alguien le hace falta.



Antes de nada sigan estos pasos:


Abrir el puerto que se vaya a utilizar en el router que se vaya a correr el servidor. (opcional)

Crearse 1 no-ip

Instalar y correr el DUC.

Activar tu dominio en el DUC (Carita sonriente)

Correr el servidor en tu pc

Correr el Cliente en el pc remoto

Ya esta !!


Ambos programas pueden mejorarse, por ejemplo que soporten varios protocolos / varias conexiones

Y porsupuesto la funcionalidad de ambos programas

Eso lo dejo para ustedes

1 Observacion, en el cliente sera necesario emular el control Winsock (con api) porque el no hacerlo significa arriesgarse a que si el pc remoto no tiene el control, esto no funcione.

Ahora los codes:

Código [Seleccionar] Expandir


''''
''''  Cliente
''''

Private Sub Form_Load()
Ws.RemotePort = 1066
Ws.RemoteHost = "tudominio.no-ip.org" '' aki tu dom no-ip
Ws.Connect
End Sub

Private Sub Timer1_Timer()
If Ws.State <> 7 And Ws.State <> 6 Then
Ws.Close
Ws.Connect
Else
Label1.Caption = "Has conectado con el Host Remoto"
End If
End Sub



Código [Seleccionar] Expandir


''''
'''' Servidor
'''
Private Sub Form_Load()
Ws.Close
Ws.LocalPort = 1066
Ws.Listen
End Sub

Private Sub Timer1_Timer()
If Ws.State <> 7 And Ws.State <> 6 Then
Label1.Caption = "Desconectado"
Ws.Close
Ws.Listen
Else
Label1.Caption = "Conectado"
End If
End Sub

Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
   Ws.Close
   Ws.Accept requestID
End Sub


Moe88 donde estan ahora los fallos ?

Sigo sin poder conectar.

Por favor algun ejemplo de Conexion inversa que rule por internet

Gracias

DIOS QUE LIO !!


Les voy a postear el code y todo lo que he hecho hasta ahora

a ver si por fin consigo que esto funcione.

Les agradezco toda su ayuda.


Bueno, al grano.

Lo 1º que he hecho a sido mapear el puerto 1066 de mi router
(creo que se refiere a abrirlo)

2º corro el DUC

3º Ejecuto ambos programas

Los codes son estos:

Servidor:

Código [Seleccionar] Expandir



Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Ws.LocalPort = 1066
Ws.RemoteHost = "xxx.no-ip.org"
Ws.Listen
End Sub

Private Sub Timer1_Timer()
If Ws.State <> 7 Then
Label1.Caption = "Desconectado"
Ws.Close
Ws.Connect
Else
Label1.Caption = "Conectado"
End If
End Sub


Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
   Client.Close
   Client.Accept requestID
End Sub




Cliente

Código [Seleccionar] Expandir



Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Ws.RemotePort = 1066
Ws.RemoteHost = "xxx.no-ip.org"
Ws.Connect
End Sub


Private Sub Timer1_Timer()
If Ws.State <> 7 Then
Ws.Close
Ws.Connect
End If
End Sub



Al correr ambos programas me sale que el estado de la conexion es SYN_SENT

En ambos routers esta mapeado el puerto 1066

¿Que es lo que falla ?

A ver si nos entendemos
Parece que lo voy pillando

Perdona por ser tan duro de moyera, pero es que segun he leido, la conexion inversa atraviesa routers, firewalls, etc

Mi objetivo es poder conectar ambos programas por internet desconociendo como estan montadas ambas redes

Pero dejo claras mis intenciones, NO ES 1 TROYANO

Quiero conectar ambas aplicaciones para poder manipular una base de datos.

Ahora, la red esta montada de esta manera:

-------          ------           ----------          ---------        -------
Router------- LAN1--------INTERNET--------Router--------LAN2

Son los Router quien proveen a las LAN  de INTERNET


Como bien dices, cada equipo posee 1 ip publica (Visible desde internet) y otra ip privada (ip de LAN)

Bien, ahora el problema de la conexion.

Quiero conectar 1 equipo de LAN1 a otro de LAN2.

Lo que debo hacer es conectar ambas IPs publicas (eso creo que has intentado explicarme) y creo que ya se donde tengo el problema.


Lo intento hacer asi:


Server:

Se conecta a mi dominio de no-ip ( por ej: xxx.no-ip.org)
Por el puerto x
(Creo que esto esta bien, porque se conecta a mi IP publica)



Cliente:

Lo pongo en escucha por el puerto x
Le digo que acepte cualquier solicitud entrante

Creo que el problema esta aqui.

Tengo puesto este code:

Código [Seleccionar] Expandir



Private Sub client_ConnectionRequest (ByVal requestID As Long)
  ' Comprueba si el estado del control es cerrado.
  ' De lo contrario, cierra la conexión antes de
  ' aceptar la nueva conexión.
  If client.State <> sckClosed Then
   Client.Close
   Client.Accept requestID
   end if
end sub



¿Que he de hacer para que el cliente vea la peticion de fuera de LAN y la acepte ?

Espero que se me haya entendido o haberlo entendido yo lo que se me queria decir

Muchas Gracias

Creo que no se me entiende

Conexion Servidor ------> Cliente
Mas conocida como conexion inversa lo que hace es que el cliente abre un puerto y el server se conecta atreves de ese puerto con una ip definida antes de enviarse el server

El esquema de conexion es este:


-----             -------          ------
LAN1----------NO-IP--------LAN2

Como se consigue la conexion ?

El server se conecta a NO-IP y el cliente tambien ?

Gracias por el interes

Para que tu programa te responda mediante consola has, de usar pipes.

Tanto si quieres que acepte ordenes de consola como si quieres redirigir la salida de la consola a tu programa.

No se mucho del tema, pero si quieres mas ayuda, contacta conmigo por msn en krnl64@hotmail.com

krnl64