Flycode (codeur)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <ComboConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("flycode", 228, 306, 192, 124)
$fichier = GUICtrlCreateMenu("fichier")
$ouvrir = GUICtrlCreateMenuItem("ouvrir", $fichier)
GUICtrlCreateMenuItem("", $fichier)
$quitter = GUICtrlCreateMenuItem("quitter", $fichier)
$aide1 = GUICtrlCreateMenu("aide")
$aide = GUICtrlCreateMenuItem("aide", $aide1)
$propos = GUICtrlCreateMenuItem("a propos", $aide1)
$Input1 = GUICtrlCreateInput("", 8, 8, 209, 21)
$Button1 = GUICtrlCreateButton("FIRE", 8, 56, 209, 25)
$Button2 = GUICtrlCreateButton("presse papier", 8, 88, 211, 25)
$Checkbox1 = GUICtrlCreateCheckbox("decoder!", 8, 32, 113, 17)
$Combo1 = GUICtrlCreateCombo("puissance", 136, 32, 81, 25,BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1, "1|2|3|4|5|6|7|8|9|10")
$Label1 = GUICtrlCreateEdit("", 8, 120, 209, 153, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
#EndRegion ### END Koda GUI section ###
GUISetBkColor(0xC0C0C0)
GUISetState(@SW_SHOW)
;---------------------boucle
While 1
        $nbr =  GUICtrlRead($Combo1)
        $ok = 0
        $nMsg = GUIGetMsg()

        Switch $nMsg
                Case $propos
                    MsgBox(64,"flycode","logiciel fait par Flypip.")

                Case $quitter
                    Exit

                Case $ouvrir
                    $s_AttachFiles = FileOpenDialog("choisir le fichier", @DesktopDir, "All (*.*)")

                Case $aide
                    MsgBox(64,"flycode","c'est un logiciel qui sert a cripter vos messages.")

                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Button1
                    If GUICtrlRead($Input1) <> "" Then
                            $fi = GUICtrlRead($Input1)
                        Else
                            FileOpen($file)
                            $fi = FileRead($file)
                        EndIf
                        If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                            GuiCtrlSetData($Label1,"en cour de decode...")
                            $res =  _StringEncrypt(0, $fi,2850,$nbr)
                            GuiCtrlSetData($Label1,$res)

                        Else
                            GuiCtrlSetData($Label1,"en cour de codage...")
                            $res =  _StringEncrypt(1, $fi,2850,$nbr)
                            GuiCtrlSetData($Label1,$res)

                        Endif


                Case $Button2
                    ClipPut($res)

       EndSwitch
WEnd