AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 384, 115, 228, 170)
$Input1 = GUICtrlCreateInput("Input1", 18, 40, 321, 21)
$Label1 = GUICtrlCreateLabel("chemin du fichier html a convertir", 20, 14, 159, 17)
$Button1 = GUICtrlCreateButton("Convertir vers le bureau", 46, 76, 279, 21)
$Button2 = GUICtrlCreateButton("add", 342, 40, 37, 21)
Global $destination_file = @DesktopDir& "\html converti\"
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            Case $Button2
            $get_local_html_file = FileOpenDialog("choisir fichier html",@DesktopDir& "\", "Fichier .HTML (*.html)")
            GUICtrlSetData($Input1,$get_local_html_file)
            
        Case $button1
            

    EndSwitch
WEnd

Code : Tout sélectionner

$sHtml = FileOpenDialog( "Conversion HTML -> PDF", @ScriptDir, "Fichiers HTML (*.html)")
If $sHtml = "" Then Exit

$sPdf = StringRegExpReplace($sHtml, "\.[^.]+$", ".pdf")


RunWait(@ScriptDir & '\imhtmltopdf.exe "' & $sHtml & '" "' & $sPdf & '"')
ShellExecute($sPdf)