#include #include #include $Form1 = GUICreate("File To Hex", 450, 50, -1, -1,-1, $WS_EX_ACCEPTFILES) $Input1 = GUICtrlCreateInput("Drag & Drop File Here", 10, 10, 330, 30,1) GUICtrlSetState(-1, $GUI_DROPACCEPTED) $Button1 = GUICtrlCreateButton("Open File", 350, 10, 90, 30) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $GUI_EVENT_DROPPED $read = FileRead(@GUI_DragFile) $Hex = _StringToHex($read) $open = FileOpen(@GUI_DragFile & ".txt", 2) FileWrite($open, $Hex) GuiCtrlSetData($Input1, @GUI_DragFile & ".txt") Case $Button1 $aFile = FileOpenDialog("", @DesktopDir & "\", "") If @error Then Sleep(0) Else $read = FileRead($aFile) $Hex = _StringToHex($read) $open = FileOpen($aFile & ".txt", 2) FileWrite($open, $Hex) EndIf EndSwitch WEnd