Hola, lo probé y aún así persiste el problema, lo curioso es que cuando al proyecto.exe le doy a compatibilidad - configuracion - ejecutar con 256 colores, ahí sí , se soluciona el problema.
Otra cosa que me di cuenta es que sólo pasa con mi PC y mi laptop que tienen Windows 7 'registrado', cuando lo probé en otra PC que tiene W7 pero no lo tiene registrado, entonces lo abre normal.
En mi PC y mi Laptop, el borde del navegador Chrome, es color negro En la otra PC, el borde del navegador es Azul,
Estoy seguro que en el virtualbox que tienes, cuando abres Chrome, el borde es de color azul (como en la PC que lo probe que no tiene W7 registrado), en cambio en mi PC y mi laptop el borde es de color negro.
Quería consultarte algo que mencionaste al final, lo de sustituir "http://www.elhacker.net" por vbNullString, lo hice y efectivamente me abre chrome en una nueva ventana, pero ¿Cómo hago para que en esa nueva ventana abra http://elhacker.net?
Bueno compañero, aquí estoy de nuevo. He ejecutado el programa bajo las siguientes condiciones:
- Máquina: VirtualBox - SO: Windows 7 Enterprise SP1 64 bits - Chrome: Google Chrome Versión 40.0.2214.111 m (última)
Y estamos donde estábamos, porque a mi me sigue funcionando perfectamente salvo un excepción: Chrome se incrusta mostrando una pestaña de color negro. Para solucionarlo he añadido ShowWindow en el código para refrescar la ventanan de Chrome con SW_RESTORE.También ocurre que tarda un poco en mostrarse, pero también es verdad que W7 me va algo lento en el VirtualBox. Supongo que será por eso.
Esperaba que me pasara lo mismo que a ti y luego intentar solucionar el problema pero no ha sido así.
Para corregir el problema de visualización, como he dicho antes he añadido "ShowWindow HWNDParent, SW_RESTORE"(línea 18))
Espera (1) 'Espera un segundo a que se cargue Chrome
DoWhile HWNDParent = 0
HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
DoEvents
Loop
DoWhile N& = 0
N& = SetParent(HWNDParent, Picture1.hwnd) 'Meter la apcliación en el picture
DoEvents
Loop
'Refresca Chrome por si no se visualiza correctamente
ShowWindow HWNDParent, SW_RESTORE
'Ajusta la ventana de Chrome al Picture
Call SetWindowPos(HWNDParent, HWND_TOP, 0, 0, _
Picture1.ScaleWidth, _
Picture1.ScaleHeight, _
SWP_NOZORDER)
EndSub
A ver si lo averiguas o alguien sabe algo y te contesta de porqué este fallo. Incluso que haya otra forma de hacerlo. ¿Por qué no pruebas con Firefox? Yo ya no puedo aportar nada más.
Por cierto, si no quieres que se cree una pestaña nueva sustituye "http://www.elhacker.net" por vbNullString en ShellExecute. Yo lo puse como demostración, pero si no quieres ponerlo pues no hace falta.
VB6 ya que da un poco viejo para Windows7. Además tu Windows es de 64 bits y VB6 es de 32. Tu Chrome también debe ser una versión de 64bits.
Creo que cosas así te van a ocurrir constantemente si mezclas ambas cosas VB6 y W7 64bits.
Lo que voy ha hacer, por mera curiosidad, es instalarme en VirtualBox el Windows7 64bits y probar el programa, a ver que pasa.
Mientras, se me ocurre que ejecutes el programa con "Compatibilidad con win 98 o XP" y a ver que pasa. No se me ocurre otra cosa.
Pudiera ser que cuando se ejecuta VB6 se activa algún servicio de compatibilidad y cuando se cierra VB6 se desactiva. Pero solo son suposiciones mías.
No se si tienes VB.NET, pero si no lo usas y vas a crear programas para W7 64bits ya pudieras ir pensando en cambiar a VB.Net. Yo he usado VB6 durante más de 10 años, como aficionado, pero ahora he empezado con VB.Net2010. Al principio cuesta un poco, por que ha cambiado mucho, pero poco a poco vas aprendiendo. De echo el programa para incrustar el curso de ingles que te comenté lo hice con VB.Net2010.
Probaré el programa en las dos versiones, a ver que pasa...
Gracias por tu respuesta, probé con conpatibilidad de win98 y Win XP, pero aún así, sigue surgiendo el mismo problema y no tengo instalado VB.NET sólo Vb6.
Espero puedas decirme qué tal te fue cuando instalaste el W7 64 bits.
Hola, acabo de probarlo y aún así. Te explico lo que sucede.
Tengo Chrome abierto, está en pantalla completa pero minimizado, y al iniciar el proyecto.exe y por primera vez le doy click al "command_button", sólo abre la página en una nueva pestaña de Chrome y me muestra Chrome pero no lo incrusta al picture.
Cuando le doy nuevamente click al "Command_button", abre la página en otra nueva pestaña , me muestra chrome y recién la incrusta al picture.
Y después ya normal, cada vez que le doy click, abre Chrome y lo incrusta al picture y así sucesivamente.
(incluso probé el parameto de Chrome para que lo abra en una nueva ventana --new-window, pero nada, ese no era el problema)
Aquí te dejo el video de lo que te explico.
Lo que creo es que quizá en el FormLoad el código no carga bien ya que solamente al comienzo es que no lo incrusta al picture, pero después sí.
Que curioso... A mi me pasaba lo mismo pero con el otro programa de inglés que te comenté, el que he incrustado en un form porque se muestra a pantalla completa y me oculta la barra de tareas. Es antiguo y de 16bits. Cuando se inicia sale un video y hay que hacer clic para iniciar el programa. El problema resultó ser porque incrustaba desde Form_Load. Parace ser que todo se tiene que hacer en un orden: Cargar form, cargar el otro programa, incrustar. Cuando se intenta hacer todo de golpe o no se le da el tiempo suficiente que se necesite para cualquiera de los tres pasos, se produce un fallo. He solucionado el problema haciendo que espere un segundo antes de ejecutar el código, a que le de tiempo a cargarse el form, antes de ejecutar el otro programa. Pero yo creo que el caso es distinto por que a ti el Chrome se te carga y no produce error. Siemplemente no se introduce en el Picture.
Prueba a hacer lo siguiente. Del mismo modo que nos hemos asegurado que obtenemos el handle de Chrome con el Do/Loop, hacemos otro Do/Loop para asegurarnos que Chrome se ha introducido en el Picture:
Código
DoWhile N& = 0
N& = SetParent(HWNDParent, Picture1.hwnd) 'Meter la apcliación en el picture
DoEvents
Loop
Si Chrome no se ha introducido en el Picture, N& tiene valor 0. Entonces vuelve a reintentar el proceso hasta que N& sea distinto de 0, es decir, que se haya introducido Chrome en el form.
Y dado que hay un bucle Loop y DoEvents es recomendable añadir en al Form_Unload el evento END.
Código
PrivateSub Form_Unload(Cancel AsInteger)
Call Cerrar_Chrome(HWNDParent) 'Cierra Chrome
End
EndSub
Esto es porque si el valor de N& fuera siempre 0 por no poder cargar Chrome, luego no podrías cerrar el form.
Dado que Do/Loop es un bucle que no termina nunca yo pondría, en cualqueira de los bucles un contador para que cuando por ejemplo llegase a X intentos, se parara el proceso y mostrara un mensaje informando de lo sucedido y saliera del bucle. En este caso ya no necesitarías poner END en Form_Unload.
Por cierto, si esto último no sirviera y a pesar de ello solucionas el problema, cuentame como lo has hecho o porqué te pasaba eso. No me dejes en ascuas.
Lo he probado, pero aún así no logro abrir el ejecutable en mi laptop, lo probé en otra PC, y en la PC sí lo abre.
Lo curioso es que en mi laptop el 50% abre chrome y lo incrusta al picture, y el otro 50% sólo abre chrome pero no lo incrusta y efectivamente también el nombre de la clase es "Chrome_WidgetWin_1", lo cual no creo que sea el error
Por qué es que en mi PC funciona normal cuando genero el .exe, pero cuando intento abrir el ejecutable en otra PC, sólo se abre Chrome mas no lo incrusta en el picture del form.
Supuse que quizá el problema esté en esta parte
Código
HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
Call SetParent(HWNDParent, Picture1.hwnd) 'Meter la apcliación en el picture
Quizá el problema esté en no poder obtener el handle padre o no poder meter la aplicación al picture.
Reitero que en mi PC funciona perfecto, pero cuando pruebo el .exe generado en otra PC no logra incrustar Chrome al picture.
Esta idea de meter una aplicación dentro de un form, me ha venido genial para un viejo programa de inglés que tengo que requiere ejecutarse a pantalla completa y una resolución de 640x480, tapándome la barra de tareas de windows. El programa se veía en un cuadrito en el centro de la pantalla y el resto en negro, a no ser que redujese la resolución. Así que gracias.
En cuanto al código que puse he visto fallos. Por ejemplo al cerrar la aplicación también se cerraban todas las ventanas de Chrome, la de dentro del form y las que estaban fuera si era el caso. Se debe a que valor del handle no es público. También ocurre que al utilizar ShowWindow se genera un error de visualización si la última vez que se cerró Chrome estaba en modo Normal. Lo he sustituido por SetWindowPos.
Aquí dejo el código algo mejorado:
Código
'Nombres de clase (ClassName) de Chrome
'Chrome_WidgetWin_1 <---Padre
'Chrome_RenderWidgetHostHWND <---hijo
'//Funciones API para incrustar la aplicación en el picture
HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
Call SetParent(HWNDParent, Picture1.hwnd) 'Meter la apcliación en el picture
'Ajusta la ventana de Chrome al Picture
Call SetWindowPos(HWNDParent, HWND_TOP, 0, 0, _
Picture1.ScaleWidth, _
Picture1.ScaleHeight, _
SWP_NOZORDER)
EndSub
PrivateSub Espera(Segundos AsSingle)
Dim ComienzoSeg AsSingle
Dim FinSeg AsSingle
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
DoWhile FinSeg > Timer
DoEvents
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
EndIf
Loop
EndSub
PrivateSub Cerrar_Chrome(hwnd AsLong)
If HWNDParent <> 0 Then
Call SetParent(HWNDParent, 0) ' Libera el programa
Call SendMessage(HWNDParent, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&) 'Cierra el programa
HWNDParent = 0
EndIf
EndSub
PrivateSub Form_Load()
Picture1.ScaleMode = 3 'pixels <-importante para mover _
y establecer correctamente las dimensiones de la ventana _
de chrome dentro del picture
EndSub
PrivateSub Form_Unload(Cancel AsInteger)
Call Cerrar_Chrome(HWNDParent) 'Cierra Chrome
EndSub
El handle (hwnd) o 'asa' es un número aleatorio que Windows asigna a cada ventana que se abre en el escritorio. Se pueden cambiar características o enviar mensajes a dichas ventanas usando ese número. Como se ha podido ver con SetWindowPos, SetParent, SendMessage y ShowWindow.
Si claro que se puede. Se me ocurren varias maneras.
Pero antes de nada permíteme corregir unas líneas del código que te he dado antes. Hice un copia y pega de mi propio código en Form_Unload y se han colado un par de líneas que no tienen utilidad ahí, se trata de la variable hWndChild que fue un intento de introducir sólamente la Web en el Picture, funcionaba con el Notepad por ejemplo, pero no con Google Chrome. Lo borré en otras partes del código, pero no en el Form_Load, se me pasó. También está lo de Espera(5) que si que es necesario más arriba, porque hay que esperar a que se cargue Google Chrome antes de introducirlo en el Picture, pero para cerrar no hace falta.
En cuanto a lo de - Primera opción: Crear un código de busqueda de Chrome.exe y obtener su directorio (ideal para programas que al actualizarse van cambiando la ubicación) por ejemplo si fuera "\Google\Chrome\Application\V0014\Chrome.exe" y al actualizarse cambiara a "\Google\Chrome\Application\V00321\Chrome.exe". Que no es el caso. Te lo digo por si alguna vez te encuentras alguna cosa así.
- Segunda opción: Obtener mediante la función Environ el directorio de \program files\ del sistema:
Código
PrivateSub Command1_Click()
Print Environ("programfiles")
EndSub
y luego añades el resto "\Google\Chrome\Application\chrome.exe"
Hola @okik , probé tu código y funciona perfecto. Tengo una duda, ¿Es posible detectar automáticamente la Ruta de Chrome, sin necesidad de que el usuario busque la ruta, en mi caso es "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"?, me preguntaba si hay alguna forma de detectar la ruta de chrome.exe automáticamente.