au3scr Posted October 18, 2008 Posted October 18, 2008 If i compile this and then try decompile it then it says: Error: The executable file is not recognised as a compiled AutoIt script. here is source that I tried to decompile after i compiled it. expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <GDIPlus.au3> Opt("GUIOnEventMode", 1) Opt("GUICloseOnESC", 1) #Region ### START Koda GUI section ### Form= Global $FilesToArray = _FileListToArray(@ScriptDir & "\start", "*.lnk", 1) Global $Shortcuts[$FilesToArray[0] + 1] $x = 0 $y = 60 $gui1height = 0 $gui2height = 467 $gui1widh = 0 $gui2widh = 457 ;~ GUICreate("title",width,height,left,top) $Form2 = GUICreate("Form2transF32", 260, 447, 0, @DesktopHeight - 487, $WS_POPUP) GUISetOnEvent($GUI_EVENT_CLOSE, "Close") ;you forgot to add this line which is vital OnEvent WinSetTrans("Form2transF32", "", 160) GUISetState(@SW_SHOW) $Form1 = GUICreate("Form1Sartmenuform32", 250, 457, 0, @DesktopHeight - 457 - 20, $WS_POPUP) GUISetOnEvent($GUI_EVENT_CLOSE, "Close") ;you forgot to add this line which is vital OnEvent For $i = 1 To $FilesToArray[0] $file = FileGetShortcut(@ScriptDir & "\start" & "\" & $FilesToArray[$i]) $Shortcuts[$i] = GUICtrlCreateButton($FilesToArray[$i], 20, $y, 36, 36, BitOR($BS_PUSHBOX, $BS_FLAT, $BS_ICON)) GUICtrlSetOnEvent(-1, "clicked") $imgpath = $file[0] If StringRight($imgpath, 4) = ".exe" Then GUICtrlSetImage(-1, $imgpath, 0) $label = GUICtrlCreateLabel($FilesToArray[$i], 60, $y, 200, 36) GUICtrlSetOnEvent(-1, "clicked") GUICtrlSetFont(-1, 10, "Palatino Linotype") $y = $y + 36 Next $Pic1 = GUICtrlCreatePic(@ScriptDir & "\pictures" & "\New Bitmap Image24.bmp", 0, 0, 20, 447, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Pic2 = GUICtrlCreatePic(@ScriptDir & "\pictures" & "\logo2.bmp", 180, 5, 50, 50, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) GUICtrlCreateLabel("Logged in as: " & @UserName, 25, 2) GUICtrlCreateLabel("Current Date: " & @WDAY & ":" & @MON & ":" & @YEAR, 25, 5 + 9) GUICtrlCreateLabel("Current Time: " & @HOUR & ":" & @MIN, 25, 5 + 15 + 5) GUICtrlCreateLabel("Current IP: " & @IPAddress1, 25, 5 + 15 + 17) $halt = GUICtrlCreateButton("", 25, $gui2height - 51, 36, 36, BitOR($BS_PUSHBOX, $BS_FLAT, $BS_ICON)) GUICtrlSetImage(-1, @ScriptDir & "\icons\halt.ico", 0) GUICtrlCreateLabel("Halt", 25 + 36 + 5, $gui2height - 41) WinSetOnTop("Form1Sartmenuform32", "", 1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 Sleep(200) WEnd Func clicked() $lnk = FileGetShortcut(@ScriptDir & "\start" & "\" & GUICtrlRead(@GUI_CtrlId)) ShellExecute($lnk[0], $lnk[2], $lnk[1]) EndFunc ;==>clicked Func Close() ;added this function which handles the Close event Exit EndFunc ;==>Close
BrettF Posted October 18, 2008 Posted October 18, 2008 Decomplation is no more. Search for it. Cheers, Brett Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
Recommended Posts