chrome en picturebox mandar informacion o comandos

Iniciado por dmgdani, 17 Julio 2015, 00:58 AM

0 Miembros y 1 Visitante están viendo este tema.

dmgdani

hola a todos.
Tengo el siguiente código que encontré por aquí el cual mete chrome en el picturebox.
y necesito en enviarle algún código javascrypt por ejemplo a la consola pero no se como hacer lo.
la única manera que e conseguido es abriendo la consola y con sendkey mandar le código y enter.
hay alguna manera mejor de hacer lo se podría recibir también datos desde vb6.

por si decís que use el control webbroser ya lo use y me da muchos fallos prefiero el chrome así y el único problema es ese.
un saludo


Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, _
ByVal HWNDParent As Long) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long

'//Funcion API para obtener el handle de la aplicación que se quiere menter en el Picture
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

'//Ejecuta el programa
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(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

'//Función para cerrar la aplicación incrustada
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Const SHOW_FULLSCREEN = 3
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SWP_NOZORDER = &H4
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060&

        Dim HWNDParent As Long

Private Sub Commandmeterchrome_Click()
HWNDParent = 0
   ShellExecute Me.hwnd, "", "chrome.exe", _
    "https://farmsatoshi.com", Environ("programfiles") & "\Google\Chrome\Application\", SW_SHOWMINIMIZED
   Espera (1)  'Espera 1 segundo a que se cargue
   Do While HWNDParent = 0
   HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
   DoEvents
   Loop

Do While N& = 0
N& = SetParent(HWNDParent, Picture1.hwnd) 'Meter la apcliación en el picture
DoEvents
Loop

'Ajusta la ventana de Chrome al Picture
Call SetWindowPos(HWNDParent, HWND_TOP, 0, 0, _
Picture1.ScaleWidth, _
Picture1.ScaleHeight, _
SWP_NOZORDER)
End Sub

79137913

HOLA!!!

Tenes que manejarte como si la ventana de GChrome estuviese fuera del Picturebox, ya que en efecto lo esta, solo es una virtualizacion y limitacion eso que realizas.

Haz testeos y busca como controlar chrome desde vb, seguramente lo logres con sendmessages, pero creo que estas intentando hacer un bot para el juego... no me parece muy etico robarles dinero asi.

Por lo cual hasta aqui llego mi ayuda.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*