HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
Call SetParent(HWNDParent, Picture1.hwnd) 'Meter la apcliación en el picture

HWNDParent = 0
   ShellExecute Me.hwnd, "", "chrome.exe", _
    "www.elhacker.net", Environ("programfiles") & "\Google\Chrome\Application\", SW_SHOWMINIMIZED
   Espera (1)  'Espera  un segundo antes de intantar obtener el handle
   Do While HWNDParent = 0
   HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
   DoEvents
   Loop

Private Sub Command1_Click()
HWNDParent = 0
   ShellExecute Me.hwnd, "", "chrome.exe", _
    "www.elhacker.net", Environ("programfiles") & "\Google\Chrome\Application\", SW_SHOWMINIMIZED
   Espera (1)  'Espera  un segundo antes de intantar obtener el handle
   Do While HWNDParent = 0
   HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
   DoEvents
   Loop
 
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)
End Sub

Private Type POINTAPI
x As Long
y As Long
End Type
 
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" _
(ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" _
(ByVal hModule As Long, _
ByVal lpFileName As String, _
ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function GetParent Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
 
Const GWW_HINSTANCE = (-6)
Const GWW_ID = (-12)
Const GWL_STYLE = (-16)
Dim DATOS As String
 
Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
 
Sub Timer1_Timer()
Dim pt32 As POINTAPI
Dim ptx As Long
Dim pty As Long
Dim sWindowText As String * 100
Dim sClassName As String * 100
Dim hWndOver As Long
Dim hWndParent As Long
Dim sParentClassName As String * 100
Dim wID As Long
Dim lWindowStyle As Long
Dim hInstance As Long
Dim sParentWindowText As String * 100
Dim sModuleFileName As String * 100
Static hWndLast As Long
 
Call GetCursorPos(pt32)                ' obtiene la posición del cursor
ptx = pt32.x
pty = pt32.y
hWndOver = WindowFromPointXY(ptx, pty) ' Obtiene el handle debajo del cursor
If hWndOver <> hWndLast Then
hWndLast = hWndOver
DATOS = ""
 
' Muestra el handle de la ventana
DATOS = DATOS & "Window Handle: &H" & Hex(hWndOver) & vbCrLf
r = GetWindowText(hWndOver, sWindowText, 100)      ' Window text
DATOS = DATOS & "Window Text: " & Left(sWindowText, r) & vbCrLf
r = GetClassName(hWndOver, sClassName, 100)         ' Window Class
DATOS = DATOS & "Window Class Name: " & Left(sClassName, r) & vbCrLf
lWindowStyle = GetWindowLong(hWndOver, GWL_STYLE)   ' Window Style
DATOS = DATOS & "Window Style: &H" & Hex(lWindowStyle) & vbCrLf
 
hWndParent = GetParent(hWndOver) ' Consigue el handle padre de una ventana
 
'Obtiene más información si hay un handle padre
If hWndParent <> 0 Then
wID = GetWindowWord(hWndOver, GWW_ID) ' Obiene el ID
DATOS = DATOS & "Window ID Number: &H" & Hex(wID) & vbCrLf
DATOS = DATOS & "Parent Window Handle: &H" & Hex(hWndParent) & vbCrLf
 
'Obiene el texto de la ventana
r = GetWindowText(hWndParent, sParentWindowText, 100)
DATOS = DATOS & "Parent Window Text: " & Left(sParentWindowText, r) & vbCrLf
 
'Consigue el ClassName de la ventana padre
r = GetClassName(hWndParent, sParentClassName, 100)
DATOS = DATOS & "Parent Window Class Name: " & Left(sParentClassName, r) & vbCrLf
Else
 
'Obtiene los campos cuando no es padre:
DATOS = DATOS & "Window ID Number: N/A" & vbCrLf
DATOS = DATOS & "Parent Window Handle: N/A" & vbCrLf
DATOS = DATOS & "Parent Window Text : N/A" & vbCrLf
DATOS = DATOS & "Parent Window Class Name: N/A" & vbCrLf
End If
' Consigue el  window instance:
hInstance = GetWindowWord(hWndOver, GWW_HINSTANCE)
 
'Consigue el modulo de nombre de archivo (obsoleto)
r = GetModuleFileName(hInstance, sModuleFileName, 100)
DATOS = DATOS & "Module: " & Left(sModuleFileName, r)
End If
Text1.Text = DATOS
End Sub
 

'Nombres de clase (ClassName) de Chrome
'Chrome_WidgetWin_1           <---Padre
'Chrome_RenderWidgetHostHWND  <---hijo
 
'//Funciones API para incrustar la aplicación en el picture
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&
 
'//////////////////////////////////////////////
'//'Variable para el handle padre de Chrome  //
'//Debe ser variable pública para que al     //
'//cerrar el form únicamente se cierre el    //
'//chrome incrustado en el picture y no      //
'//otra ventana externa de chrome         /////
        Dim HWNDParent As Long
'//////////////////////////////////////////////
 
Private Sub Command1_Click()
   ShellExecute Me.hwnd, "", "chrome.exe", _
    "www.elhacker.net", Environ("programfiles") & "\Google\Chrome\Application\", SW_SHOWMINIMIZED
   Espera (5)  'Espera cinco segundos a que se cargue
   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)
End Sub
Private Sub Espera(Segundos As Single)
 Dim ComienzoSeg As Single
 Dim FinSeg As Single
 ComienzoSeg = Timer
 FinSeg = ComienzoSeg + Segundos
 Do While FinSeg > Timer
     DoEvents
     If ComienzoSeg > Timer Then
         FinSeg = FinSeg - 24 * 60 * 60
     End If
 Loop
End Sub
 
Private Sub Cerrar_Chrome(hwnd As Long)
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
End If
   End Sub
Private Sub Form_Load()
    Picture1.ScaleMode = 3 'pixels <-importante para mover _
    y establecer correctamente las dimensiones de la ventana _
    de chrome dentro del picture
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
   Call Cerrar_Chrome(HWNDParent) 'Cierra Chrome
End Sub
 
 

Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long,  _
ByVal szURL As String,  _
ByVal szFileName As String,  _
ByVal dwReserved As Long,  _
ByVal lpfnCB As Long) As Long
Dim Contador As Integer
    Const ERROR_SUCCESS As Long = 0
    Const INTERNET_FLAG_RELOAD As Long = &H80000000
    Const BINDF_ASYNCHRONOUS = &H1
    Const BINDF_ASYNCSTORAGE = &H2
    Const BINDF_NOPROGRESSIVERENDERING = &H4
    Const BINDF_OFFLINEOPERATION = &H8
    Const BINDF_GETNEWESTVERSION = &H10 ' El funcionamiento del lazo debe recuperar la más nueva versión de los datos.
    Const BINDF_NOWRITECACHE = &H20
    Const BINDF_NEEDFILE = &H40
    Const BINDF_PULLDATA = &H80
    Const BINDF_IGNORESECURITYPROBLEM = &H100
    Const BINDF_RESYNCHRONIZE = &H200
    Const BINDF_HYPERLINK = &H400
    Const BINDF_NO_UI = &H800
    Const BINDF_SILENTOPERATION = &H1000
    Const BINDF_PRAGMA_NO_CACHE = &H2000
    Const BINDF_FREE_THREADED = &H10000
    Const BINDF_DIRECT_READ = &H20000
    Const BINDF_FORMS_SUBMIT = &H40000
    Const BINDF_GETFROMCACHE_IF_NET_FAIL = &H80000
 
 
 
Public Function DownloadFile(URL As String,  _
LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0&, URL, LocalFilename, BINDF_ASYNCHRONOUS , 0&)
    If lngRetVal = 0 Then DownloadFile = True
End Function

GetModuleFileName(NULL, EXEFullPath, MAX_PATH);
 

Private Sub Command1_Click()
Dim X As Variant
Dim Y As Variant
   Set X = CreateObject("Wscript.Shell")
    Set Y = X.Environment("Process")
    Print Y("PROGRAMFILES")
End Sub

 Dim hModule%, Buffer$, Length%, Msg$
         hModule% = GetModuleHandle("notepad.exe")
         Buffer$ = Space$(255)
         Length% = GetModuleFileName(hModule%, Buffer$, Len(Buffer$))
         Buffer$ = Left$(Buffer$, Length%)
         Msg$ = Buffer$
         Msgbox Msg$

Private Sub Form_Unload(Cancel As Integer)
    Dim hwnd As Long
    Dim hWndChild As Long  '<---- BORRAR ESTA LÍNEA
    'Espera (5) '<---- BORRAR ESTA LÍNEA
    hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    Call Cerrar_Google(hwnd) 'cierra Google
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim hwnd As Long
    hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    Call Cerrar_Google(hwnd) 'cierra Google
End Sub

Private Sub Command1_Click()
Print Environ("programfiles")
End Sub
 

Print Environ("programfiles") & "\Google\Chrome\Application\chrome.exe"

   '//Funciones API para incrustar el programa en el picture
    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
    Const SHOWMAXIMIZED_eSW = 3&
 
    '//Funciones API para obtener el handle de la aplicación que queremos meter en un 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
 
    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 WM_SYSCOMMAND = &H112
    Const SC_CLOSE = &HF060&
 
'ClassName Chrome
'Chrome_RenderWidgetHostHWND  <---hijo
'Chrome_WidgetWin_1  <----Padre
Private Sub Command1_Click()
    Dim hwnd As Long
    ' "C:\Program Files\Google\Chrome\Application\chrome.exe", vbHide 'No sirve
    ShellExecute Me.hwnd, "Open", "C:\Program Files\Google\Chrome\Application\chrome.exe",  _
"www.elhacker.net", "", 1
    Espera (5) 'Espera cinco segundos a que se cargue
    hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
Call SetParent(hwnd, Picture1.hwnd) 'Meter la apcliación en el picture
Call ShowWindow(hwnd, SHOWMAXIMIZED_eSW) 'Lo ajusta al cuadro
End Sub
 
Private Sub Espera(Segundos As Single)
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + Segundos
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
End Sub
 
    Private Sub Cerrar_Google(hwnd As Long)
    If hwnd <> 0 Then
    Call SetParent(hwnd, 0)  ' Libera el programa
    Call SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&) 'Cierra el programa
    hwnd = 0
    End If
    End Sub
 
 
Private Sub Form_Unload(Cancel As Integer)
    Dim hwnd As Long
    hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString)
    Call Cerrar_Google(hwnd) 'cierra Google
End Sub

Public Shared Function ValidateServerCertificate(ByVal sender As Object, ByVal certificate As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
        Return True
    End Function
    Private Sub WebBrowser1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.Validated
        System.Net.ServicePointManager.ServerCertificateValidationCallback = AddressOf ValidateServerCertificate
    End Sub

WebBrowser1.ScriptErrorsSuppressed = True