Imprimir Página - chrome en picturebox mandar informacion o comandos

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

Código:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: dmgdani en 17 Julio 2015, 00:58 am