Sign In
Register
Help
Posted 23 April 2009 - 01:28 PM
Steps for using :
Select the file to be converter to exe
give the name of the exe file to which it must be converted .
press ok then give the name of the exe file to be saved , then press ok to create the executables .
Download location is
http://rapidshare.com/files/215974936/Exe_converter.exe
please try and post up your feedback
for main program the source is
main.au3
#Include <File.au3> #include <Process.au3> #Region ### START Koda GUI section ### Form= #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon #Region ### START Koda GUI section ### Form=d:\setup\koda_2008-03-20\forms\execreator.kxf $Form1_1 = GUICreate("Exe creator", 438, 259, 193, 125) $Label1 = GUICtrlCreateLabel("--------Portable EXE Creator--------", 96, 8, 237, 24) GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif") $Edit1 = GUICtrlCreateEdit("", 8, 48, 393, 105) GUICtrlSetData(-1, StringFormat("Exe creator ...\r\n\r\nThis software can covert jpg , avi , mp3 , amr and bat files to exe .\r\nThis software is provided without any warrenty , the authour \r\nis not responsible for any damage or misuse caused ...")) $Button1 = GUICtrlCreateButton("Start", 16, 176, 161, 41, 0) GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("About", 216, 176, 169, 41, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 start() Case $Button2 MsgBox(0,"About",StringFormat("Program version 1.01\r\nDesign and created by vengadanathan\r\nfor more info pls contact\r\nfantastic.next@gmail.com")) EndSwitch WEnd Func start() $a = FileOpenDialog("Select the files to be converted into exe ","", "Supported Files (*.jpg;*.avi;*.bat;*.mp3) ",1) ;ConsoleWrite("hai"&$a) If $a <> "" Then $k = InputBox("Enter the name ","enter the name of the file say hai.jpg , hello.mp3 which will be name of the file packed within the exe file ") EndIf if @error <> 1 Then operate($a,$k) EndIf EndFunc func operate($a,$k) $o = _FileWriteToLine(@ScriptDir&"\data.au3", 1,"FileInstall("""&$a&""""&","&""""&@TempDir&"/"&$k&" "")",1) $o = _FileWriteToLine(@ScriptDir&"\data.au3",2 ,"ShellExecute("""&@TempDir&"/"&$k&""")",1) ;MsgBox(0,@ScriptFullPath&"hai.txt",@error) If $o <> 0 Then excecute() Else MsgBox(0,"Error","Reinstalling this application may fix this problem") EndIf EndFunc Func excecute() $t = FileGetShortName(@ScriptDir&"\data.au3") $out = FileSaveDialog("Enter the executable file name ","","Exe files (*.exe)",16) $out = $out&".exe" $r = FileOpen($out,1) FileClose($r) $out = FileGetShortName($out) ;$g = Run(@ScriptDir&"\Aut2Exe.exe /in "&@ScriptDir&"\data.au3 /out "&$out,"") $g = Run(@ScriptDir&"\Aut2Exe.exe /in "&$t&" /out "&FileGetShortName($out),"") ConsoleWrite(@ScriptDir&"\Aut2Exe.exe /in "&$t&" /out "&FileGetShortName($out)) If $g == 0 Then MsgBox(0,"Error","Reinstalling this application may fix this problem") Else MsgBox(0,"Success","Exe created ") EndIf EndFunc
before executing this script , please place an empty file data.au3 on same folder and also place Aut2exe.exe and icons folder(from auto it installation folder) on the same folder .
This post has been edited by vengat: 23 April 2009 - 02:40 PM
MultiQuote
