AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
_Apropos()

Func _Apropos()
    $sHTML = 'This software convert some POI speedcam ascii<br>' & _
            'file resulting from the following sites :</a><br>' & _
            '*    <a href=http://www2.alertegps.com/download_basic.asp?id_matos=8&menu=1&sous_menu=1>www.alertegps.com</a><br>' & _
            '*    <a href=http://www.gpspassion.com/forumsen/default.asp>GpsPassion.com</a><br>' & _
            '*    <a href=http://www.trapster.com/index.php>Trapster.com</a><br>' & _
            '*    <a href=http://speedcamerapoi.com/download.php>SpeedCamPoi.com</a><br><br>' & _
            'to create a compatible output <a href=http://www.mp3car.com/vbulletin/rr-plugins/127134-gpsexec-plugin.html>GpsExec</a> file<br>' & _
            'of Guino for <a href=http://www.nisuautomotive.com>Ride Runner</a> created by Guino ...<br><br>' & _
            'We obtain at exit :<br>' & _
            'Latitude,Longitude,MinHdg,MaxHdg,,,Distance,Unités,"TYPE_RADAR_VITESSE"<br>' & _
            'soit au final :<br>' & _
            '-21.30224,55.50166,,,500,M,"RADAR_FIXE_110"<br>' & _
            '-21.30207,55.42566,,,500,M,"RADAR_FEU_ROUGE_110"<br>' & _
            '-21.23435,55.30042,,,500,M,"RADAR_MOBILE_90"<br>' & _
            '-20.96288,55.30413,,,500,M,"ZONE_DANGER_0"<br><br>' & _
            'Csv2GpsExec use gpsbabel downloadable <a href=http://www.gpsbabel.org/download.html>here</a> for<br>' & _
            'to visualize your POI on GoogleEarth .<br><br>' & _
            'Thanks :<br>' & _
            'This logiel was carried out with the assistance of :<br>' & _
            'Tlem in the forum <a href=http://www.autoitscript.fr/forum/>AutoIt France</a>'


    _IEErrorHandlerRegister()
    $oIE = _IECreateEmbedded()

    $GuiApropos = GUICreate("", 640, 550, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 500)
    $OK7 = GUICtrlCreateButton("OK", 300, 515, 75, 25)

    _IENavigate($oIE, "")
    _IEBodyWriteHTML($oIE, $sHTML)

    GUISetState()

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE Or $msg = $OK7
                ExitLoop
        EndSelect
    WEnd

    GUIDelete($GuiApropos)
EndFunc   ;==>_Apropos

Code : Tout sélectionner

; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
;              outside of history bounds does not abort script
;              (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 580, _
        (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

GUISetState()      ;Show GUI

_IENavigate ($oIE, "http://www.braqueurs.fr/braquer.php?t=1")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GUI_Button_Home
            _IENavigate ($oIE, "http://www.braqueurs.fr/braquer.php?t=1")
        Case $msg = $GUI_Button_Back
            _IEAction ($oIE, "back")
        Case $msg = $GUI_Button_Forward
            _IEAction ($oIE, "forward")
        Case $msg = $GUI_Button_Stop
            _IEAction ($oIE, "stop")
    EndSelect
WEnd

GUIDelete()

Exit