Voici mon code actuel ,
Merci
► Afficher le texte
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
Dim $s_html, $ZoomLevel = 10
$oIE = _IECreateEmbedded()
GUICreate("Google", 800, 600, 0, 0, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
$Button_Up = GUICtrlCreateButton("UP", 120, 90, 40, 40,$BS_DEFPUSHBUTTON, $WS_EX_APPWINDOW )
$Button_Down = GUICtrlCreateButton("DOWN", 120, 260, 40, 40,$BS_DEFPUSHBUTTON, $WS_EX_APPWINDOW )
$Annuler = GUICtrlCreateButton("CANCEL", 0, 370, 80, 80,$BS_DEFPUSHBUTTON, $WS_EX_APPWINDOW )
$GUIActiveX = GUICtrlCreateObj($oIE, -380, -130, 1180, 590)
GUISetState()
GUISetState(@SW_SHOW)
_IENavigate ($oIE, "http://maps.google.com/maps?hl=en&ie=UT ... .033401&z=" & $ZoomLevel & "&layer=t")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Annuler
Exit
Case $Button_Up
$ZoomLevel = $ZoomLevel + 1
_IENavigate ($oIE, "http://maps.google.com/maps?hl=en&ie=UT ... .033401&z=" & $ZoomLevel & "&layer=t")
_IEAction($oIE, "refresh")
Case $Button_Down
$ZoomLevel = $ZoomLevel - 1
_IENavigate ($oIE, "http://maps.google.com/maps?hl=en&ie=UT ... .033401&z=" & $ZoomLevel & "&layer=t")
_IEAction($oIE, "refresh")
EndSwitch
WEnd
GUIDelete()
#include<WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
Dim $s_html, $ZoomLevel = 10
$oIE = _IECreateEmbedded()
GUICreate("Google", 800, 600, 0, 0, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
$Button_Up = GUICtrlCreateButton("UP", 120, 90, 40, 40,$BS_DEFPUSHBUTTON, $WS_EX_APPWINDOW )
$Button_Down = GUICtrlCreateButton("DOWN", 120, 260, 40, 40,$BS_DEFPUSHBUTTON, $WS_EX_APPWINDOW )
$Annuler = GUICtrlCreateButton("CANCEL", 0, 370, 80, 80,$BS_DEFPUSHBUTTON, $WS_EX_APPWINDOW )
$GUIActiveX = GUICtrlCreateObj($oIE, -380, -130, 1180, 590)
GUISetState()
GUISetState(@SW_SHOW)
_IENavigate ($oIE, "http://maps.google.com/maps?hl=en&ie=UT ... .033401&z=" & $ZoomLevel & "&layer=t")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Annuler
Exit
Case $Button_Up
$ZoomLevel = $ZoomLevel + 1
_IENavigate ($oIE, "http://maps.google.com/maps?hl=en&ie=UT ... .033401&z=" & $ZoomLevel & "&layer=t")
_IEAction($oIE, "refresh")
Case $Button_Down
$ZoomLevel = $ZoomLevel - 1
_IENavigate ($oIE, "http://maps.google.com/maps?hl=en&ie=UT ... .033401&z=" & $ZoomLevel & "&layer=t")
_IEAction($oIE, "refresh")
EndSwitch
WEnd
GUIDelete()
