vengat

nice effort , i have never seen any thing like this before , it is cool :-)

I think it doesnt works well on vista ,as i cannot see any transparency over the circle or rectangle , i can just see a blue screen filled rectangles and circles , what is the reason , can any body jot it out ?

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 .

Hi guys , please take a look over this page about http://aimlbot.sourceforge.net/ , this is a dll it name is aimlbot.dll ( an aiml intepreter) , using this one can load and create artificial intelligent answering machine by make it reading a set of aiml files .I dont know how to use this dll in auto it and use it's function , can anyone help me ,or give this dll a try ,please

hi guys , i have created this exe creator , using this one can convert jpg , avi ,mp3 ,amr and bat files into executables . I use Aut2Exe.exe which comes with auto it setup used for creating executables from auto it source code . 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 .

very nice dude!

cool converter tool , i should give it a try!

it seems to be a nice job !

nice one