ANSI-Binary, il mio primo programma utile

#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#include <skincrafter.au3>

SkinStartLibrary()
$Form1 = GUICreate("Convertitor", 633, 380, 192, 124)
AddSkin($Form1,"skin.skf")
$Label1 = GUICtrlCreateLabel("Binary to ANSI", 272, 24, 81, 17)
$Input1 = GUICtrlCreateInput("Binary", 40, 64, 561, 21)
$Label2 = GUICtrlCreateLabel("ANSI to Bynary", 264, 168, 92, 17)
$Input2 = GUICtrlCreateInput("ANSI", 40, 216, 561, 21)
GUICtrlSetCursor (-1, 5)
$Button1 = GUICtrlCreateButton("Binary to ANSI", 152, 104, 305, 41, 0)
$Button2 = GUICtrlCreateButton("ANSI to Binary", 152, 272, 305, 41, 0)
$Label3 = GUICtrlCreateLabel("Copyright di Stoke non è possibile copiarlo, distribuirlo o venderlo senza il permesso dell'autore", 104, 352, 445, 17)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$a=GUICtrlRead($Input1)
$ba=BinaryToString($a)
msgbox(0,"binary to ANSI",$ba)
Case $Button2
$b=GUICtrlRead($Input2)
$ab=StringToBinary($b)
msgbox(0,"ANSI to Binary",$ab)
EndSwitch
WEnd

@antru: sei contento adesso? XDXDXDXD