AutoIt Français

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.16.0
 Author:         myName

 Script Function:
   Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <date.au3>

Opt("GUIOnEventMode", 1)
GUICreate("Navigateur Perso", 800, 600, 0, 0, $WS_OVERLAPPEDWINDOW)
$lblAdresse = GUICtrlCreateLabel(" Adresse : ", 0, 8)
$txtAdresse = GUICtrlCreateInput("", 60, 5, 700)
$cmdGo = GUICtrlCreateButton(" Go ! ", 760, 5, 40, 22)
GUICtrlSetOnEvent($cmdGo, "go")
$lblHistorique = GUICtrlCreateLabel(" Historique : ", 0, 34)
$listeHistorique = GUICtrlCreateCombo("", 60, 30, 700)
$cmdGo2 = GUICtrlCreateButton(" Go ! ", 760, 30, 40, 22)
GUICtrlSetOnEvent($cmdGo2, "go2")
$gauche = 50
$cmdPrecedent = GUICtrlCreateButton(" <---- ", 60, 55, 70, 22)
GUICtrlSetOnEvent($cmdPrecedent, "precedent")
$cmdSuivant = GUICtrlCreateButton(" ----> ", 130, 55, 70, 22)
GUICtrlSetOnEvent($cmdSuivant, "suivant")
$cmdArreter = GUICtrlCreateButton(" Arrêter ", 200, 55, 70, 22)
GUICtrlSetOnEvent($cmdArreter, "arreter")
$cmdAcutaliser = GUICtrlCreateButton(" Acutaliser ", 270, 55, 70, 22)
GUICtrlSetOnEvent($cmdAcutaliser, "actualiser")
$cmdDemarrage = GUICtrlCreateButton(" Démarrage ", 340, 55, 70, 22)
GUICtrlSetOnEvent($cmdDemarrage, "demarrage")
$cmdRechercher = GUICtrlCreateButton(" Rechercher ", 410, 55, 70, 22)
GUICtrlSetOnEvent($cmdRechercher, "rechercher")
$cmdEnregistrer = GUICtrlCreateButton(" Enregistrer ", 480, 55, 70, 22)
GUICtrlSetOnEvent($cmdEnregistrer, "enregistrer")
$cmdImprimer = GUICtrlCreateButton(" Imprimer ", 550, 55, 70, 22)
GUICtrlSetOnEvent($cmdImprimer, "imprimer")

_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie, 0, 82, 800, 540)
$ancien = ""
$go = 1

_IENavigate($ie, "https://www.youtube.com",1)

HotKeySet("{esc}", "arreter")
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
GUISetState()

While 1

    If ControlGetFocus("Navigateur Perso") = "Edit1" Then
        HotKeySet("{enter}", "go")
    Else
        If ControlGetFocus("Navigateur Perso") = "Edit2" Then
            HotKeySet("{enter}", "go2")
        Else
            HotKeySet("{enter}")
        EndIf
    EndIf

    Sleep(10)

    GUICtrlSetResizing($ieobject, $GUI_DOCKAUTO + $GUI_DOCKBOTTOM + $GUI_DOCKTOP)
    GUICtrlSetResizing($lblAdresse, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE)
    GUICtrlSetResizing($txtAdresse, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
    GUICtrlSetResizing($cmdGo, $GUI_DOCKRIGHT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
    GUICtrlSetResizing($lblHistorique, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE)
    GUICtrlSetResizing($listeHistorique, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
    GUICtrlSetResizing($cmdGo2, $GUI_DOCKRIGHT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
    GUICtrlSetResizing($cmdPrecedent, $GUI_DOCKALL)
    GUICtrlSetResizing($cmdSuivant, $GUI_DOCKALL)
    GUICtrlSetResizing($cmdArreter, $GUI_DOCKALL)
    GUICtrlSetResizing($cmdAcutaliser, $GUI_DOCKALL)
    GUICtrlSetResizing($cmdDemarrage, $GUI_DOCKALL)
    GUICtrlSetResizing($cmdRechercher, $GUI_DOCKALL)
    GUICtrlSetResizing($cmdEnregistrer, $GUI_DOCKALL)
    GUICtrlSetResizing($cmdImprimer, $GUI_DOCKALL)

    $nouveau = _IEPropertyGet($ie, "locationurl")
    If $ancien <> $nouveau Then
        GUICtrlSetData($txtAdresse, $nouveau)
        GUICtrlSetData($listeHistorique, _Now() & " => " & $nouveau, _Now() & " => " & $nouveau)
        $ancien = $nouveau
        $go = 0
    EndIf

WEnd

Func go()
    _IENavigate($ie, GUICtrlRead($txtAdresse), 0)
EndFunc   ;==>go

Func go2()
    _IENavigate($ie, StringMid(GUICtrlRead($listeHistorique), 24), 0)
EndFunc   ;==>go2

Func precedent()
    _IEAction($ie, "back")
    If @error Then
        MsgBox(0, "", "")
    EndIf
EndFunc   ;==>precedent

Func suivant()
    _IEAction($ie, "forward")
EndFunc   ;==>suivant

Func arreter()
    _IEAction($ie, "stop")
EndFunc   ;==>arreter

Func actualiser()
    _IEAction($ie, "refresh")
EndFunc   ;==>actualiser

Func demarrage()
    _IEAction($ie, "home")
EndFunc   ;==>demarrage

Func rechercher()
    _IENavigate($ie, "http://www.google.fr", 0)
EndFunc   ;==>rechercher

Func enregistrer()
    _IEAction($ie, "saveas")
EndFunc   ;==>enregistrer

Func imprimer()
    _IEAction($ie, "print")
EndFunc   ;==>imprimer

Func quitter()
    Exit
EndFunc   ;==>quitter

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$ParentTitle      = 'Parent'
$ParentHandle  = GUICreate( $ParentTitle, 633, 454, 193, 125, BitOR( $WS_SYSMENU, $WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_CLIPCHILDREN))
$ChildFile        = 'C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe'
;$ChildFile       = 'Children.exe'

$iPID = Run( $ChildFile,"",@SW_HIDE) ; lancer le programme

;Sleep(1000)
;WinExists( WinGetProcess( $iPID))
WinWaitActive("[CLASS:Chrome_WidgetWin_1]")

$aList = WinList()

For $i = 1 to $aList[0][0]
   $IsVisible = WinGetState ($aList[$i][0])
   Select
      Case BitAND ( $IsVisible,1) And $aList[$i][0] <> ""
         $PID = WinGetProcess( $aList[$i][0])
         If $PID = $iPID Then
            ;ConsoleWrite( "$aList["&$i&"][1]=" & $aList[$i][1] & ", WinGetTitle( $aList["&$i&"][1])="& WinGetTitle( $aList[$i][1]) &@CRLF)
            $ChildTitle = $aList[$i][1]
         EndIf
   EndSelect
Next

$ChildHandle= WinGetHandle($ChildTitle)
_SetParent($ChildHandle, $ParentHandle)
WinSetState($ChildHandle, "", @SW_SHOWMAXIMIZED)
GUISetState(@SW_SHOW)

Do
   Sleep(10)
Until GuiGetMsg() =-3

Func _SetParent($id_child, $h_parent)
    If Not IsHWnd($h_parent) Then $h_parent = HWnd($h_parent)
    If Not IsHWnd($id_child) Then $id_child = GUICtrlGetHandle($id_child)
    If DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $id_child, "hwnd", $h_parent) <> 0 Then
        Return 1
    Else
        seterror(1)
        Return 0
    EndIf
EndFunc

#include <GUIConstantsEx.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>

; https://peter.sh/experiments/chromium-command-line-switches/

Local $hFile      = '"C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" --devtools-flags "https://www.youtube.com/c/AutoitFrench"'
Local $iPID    = Run( $hFile, "", @SW_HIDE)
Local $hParent = WinWaitActive("[CLASS:Chrome_WidgetWin_1]")

Local $hForm = GUICreate('Test ' & StringReplace(@ScriptName, '.au3', '()'), 640, 480, -1, -1, $WS_SYSMENU+$WS_MINIMIZEBOX+$WS_MAXIMIZEBOX+$WS_SIZEBOX)

Local $idEDGE = GUICtrlCreateLabel("Green Label", 8, 8, 623, 440)
GUICtrlSetBkColor(-1, 0x00FF00)

; Attach window to the desktop (always on bottom)
_WinAPI_SetParent($hParent, $hForm)

WinMove($hParent, "", 18, 18, 600, 420)
GUICtrlSetResizing( $idEDGE, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE+ $GUI_DOCKBOTTOM + $GUI_DOCKHCENTER + $GUI_DOCKRIGHT)

GUISetState(@SW_SHOWNOACTIVATE)

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Exit