AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("IMG2TxT", 413, 231, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 393, 209)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("HTML")
$Label1 = GUICtrlCreateLabel("URL de l'image : ", 32, 56, 85, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 120, 56, 265, 21)
$Label2 = GUICtrlCreateLabel("Caractères", 32, 96, 55, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input2 = GUICtrlCreateInput("", 88, 96, 241, 21)
$Label5 = GUICtrlCreateLabel("Nombre de caractère par ligne :", 33, 133, 153, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input5 = GUICtrlCreateInput("100", 193, 133, 121, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_NUMBER))
$Button1 = GUICtrlCreateButton("Start", 88, 176, 75, 25, $WS_GROUP)
$TabSheet2 = GUICtrlCreateTabItem("ASCII")
$Label4 = GUICtrlCreateLabel("URL de l'image : ", 31, 56, 85, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input4 = GUICtrlCreateInput("", 119, 56, 265, 21)
$Label3 = GUICtrlCreateLabel("Nombre de caractère par ligne :", 32, 88, 153, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input3 = GUICtrlCreateInput("100", 192, 88, 121, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_NUMBER))
$Button2 = GUICtrlCreateButton("Start", 68, 120, 75, 25, $WS_GROUP)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If GUICtrlRead($Input1) <> '' And GUICtrlRead($Input3) <> '' And GUICtrlRead($Input2) <> '' Then
                $pSite_HTML = _INetGetSource("http://www.degraeve.com/img2txt-yay.php?url=" & GUICtrlRead($Input1) & "&mode=H&size=" & GUICtrlRead($Input3) & "&charstr=" & StringReplace(GUICtrlRead($Input2), " ", "+") & "&order=O&invert=N")
                $pSite_2_HTML = StringReplace($pSite_HTML, '<img src="' & GUICtrlRead($Input1) & '"/>', "")
                FileDelete(@DesktopDir & "\generateur.html")
                FileWrite(@DesktopDir & "\generateur.html", $pSite_2_HTML)
                ShellExecute(@DesktopDir & "\generateur.html")
            Else
                MsgBox(16, "Générateur", "Des champs ne sont pas remplis")
            EndIf
        Case $Button2
            If GUICtrlRead($Input4) <> '' And GUICtrlRead($Input5) <> '' Then
                $pSite_ASCII = _INetGetSource("http://www.degraeve.com/img2txt-yay.php?url=" & GUICtrlRead($Input4) & "&mode=A&size=" & GUICtrlRead($Input5) & "&charstr=&order=O&invert=N")
                $pSite_2_ASCII = StringReplace($pSite_ASCII, '<img src="' & GUICtrlRead($Input4) & '"/>', "")
                FileDelete(@DesktopDir & "\generateur.html")
                FileWrite(@DesktopDir & "\generateur.html", $pSite_2_ASCII)
                ShellExecute(@DesktopDir & "\generateur.html")
            Else
                MsgBox(16, "Générateur", "Des champs ne sont pas remplis")
            EndIf
    EndSwitch
WEnd