KXM

I don't understand, it looks like all for the functions of you program come with the default autoit install. (Hell 2.64 should do all of that) At best it's an autoit based command prompt, without all that messy usefullness of CMD.exe? I could see not posting the source of something some one might like to steal, but at best this is 100 lines (Mostly calling Autoit builtins).

Looks like they are just files that have the system & hidden attrib turned on, nothing all that special. Here's some MSDN info: Super Hidden Files A new feature we have on Windows 2000 is Super Hidden Files. These are files with both the System and the Hidden attributes. The files are still there but when you are in Windows Explorer, these files are not going to show up. Even if you check Show Hidden Files, you won't see them. There is a new check box on the list of attributes for a folder that will allow the user to see these files that is unchecked by default. This is not really a compatibility problem for the 32-bit applications. Applications can see these files in the common Open File dialog box, and can open the files without any problem. The command line will still work. If you do a Dir /ASH to see the Super Hidden Files, you will see all the files. The only compatibility issue here is for 16-bit applications, which may fall into a trap if they make calls through the INT21 on MS-DOS. The INT21 on MS-DOS will only find the hidden service file, if you have actually asked to find hidden files. Some of the files that you'll find hidden: MS-DOS system files, such as io.dos and Office Fast Find files. From: http://msdn.microsoft.com/library/default....2000appcomp.asp

Added : Call with parameters (Doc missing but just add parameters as needed). Does this include HotKeySet, and other parameterless calling built-ins?

Do as you'd like with my code, but I don't think you can include the .dll in an AutoIt install.

This is killer! I'm a big fan of a little app called PowerMenu. I would have never thoght of rewriting it, untill I saw this... But I thought it would be fun to see how much of it's functrionallty I could duplicate using this as a base. It seems to work really well, I only had a little time to play with it, and didn't do much testing. So I'm sure there are some bugs. None-the-less: #include <GUIConstants.au3> opt("WinTitleMatchMode", 4) opt("TrayMenuMode", 1) Global $itemnum, $enum, $msg, $num, $proc, $gett, $gettif, $itemnum2, $recountt, $recount2, $bit, $state, $title, $exitc, $proclist, $upcount, $procupcount, $hUI_Popup Dim $hLastTopped = '' Dim $hLastTransed = '' Dim $trayitem1[100] Dim $procitem[100] Dim $trayrec[100] Dim $proclist[100][2] $execpath = @AutoItExe $string1 = StringInStr($execpath, "\", 0, -1) $string2 = StringTrimLeft($execpath, $string1) $proclist = ProcessList($string2) Do $upcount = $upcount + 1 If $proclist[$upcount][0] = $string2 Then $procupcount = $procupcount + 1 EndIf Until $upcount = $proclist[0][0] If $procupcount > 1 Then Exit HotKeySet("{F11}", "Menu") $trayitem2 = TrayCreateItem ("Exit") TrayCreateItem ("") TraySetState () TrayTip("Hide To Tray - Hot Key", "Press F11 to view HTT Menu.", 5) While 1 $msg = TrayGetMsg () Select Case $msg = $trayitem2 Exit EndSelect If $msg > 0 Then restore() WEnd Func hide() ; <-- To hide active window $title = "" $proc = WinGetProcess("active", "") If $itemnum > 0 Then Do $state = WinGetState("active", "") If Not BitAND($state, 2) Then recount() Return EndIf $num = $num + 1 If $procitem[$num] = $proc Then $gettif = TrayItemGetText ($trayitem1[$num]) WinSetTitle($gettif & $procitem[$num], "", $gettif) TrayItemDelete ($trayitem1[$num]) $procitem[$num] = 0 EndIf Until $num = $itemnum EndIf recount() $num = 0 $title = WinGetTitle("active", "") If @error Or $title = 1 Or $title = "" Then Return EndIf $itemnum = $itemnum + 1 WinSetTitle("active", "", $title & $proc) WinSetState("active", "", @SW_HIDE) $trayitem1[$itemnum] = TrayCreateItem ($title) $procitem[$itemnum] = $proc $bit = $bit + 1 EndFunc ;==>hide Func ontop() ; <-- Sets win on top $hLastTopped = WinGetHandle("active") WinSetOnTop("active", "", 1) EndFunc ;==>ontop Func semitrans() $hLastTransed = WinGetHandle("active") WinSetTrans("active", "", 175) EndFunc ;==>semitrans Func Menu() HotKeySet("{F11}", "killmenu");Reset so menu is only called once HotKeySet("1", "runhide");hide HotKeySet("2", "runontop");always on top HotKeySet("3", "runsemitrans");makse win semi transparent HotKeySet("4", "reset");resets all wins defaults HotKeySet("5", "exithtt");exits hide to tray ;now set the same for the numpad HotKeySet("{NUMPAD1}", "runhide");hide HotKeySet("{NUMPAD2}", "runontop");always on top HotKeySet("{NUMPAD3}", "runsemitrans");makse win semi transparent HotKeySet("{NUMPAD4}", "reset");resets all wins defaults HotKeySet("{NUMPAD5}", "exithtt");exits hide to tray ;let's make a 10 sec popup option menu $hUI_Popup = GUICreate("", 400, 150, Default, Default, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) GUISetBkColor(0xBCD2EE, Default) GUICtrlCreateLabel("1: Hide current window", 8, 10, 427, 57) GUICtrlSetFont(Default, 14, 1000) GUICtrlCreateLabel("2: Set current window on top", 8, 30, 427, 57) GUICtrlSetFont(Default, 14, 1000) GUICtrlCreateLabel("3: Make current window semi-transparent", 8, 50, 427, 57) GUICtrlSetFont(Default, 14, 1000) GUICtrlCreateLabel("4: Reset all windows to default settings", 8, 70, 427, 57) GUICtrlSetFont(Default, 14, 1000) GUICtrlCreateLabel("5: Exit HTT (resets all windows)", 8, 90, 427, 57) GUICtrlSetFont(Default, 14, 1000) GUICtrlCreateLabel("F11: Cancel (Close HTT menu)", 8, 120, 427, 57) GUICtrlSetFont(Default, 13, 1000) WinSetTrans($hUI_Popup, "", 200) GUISetState(@SW_SHOW) Sleep(10000) killmenu();delets menu, kills hkey regs EndFunc ;==>Menu Func restore(); <-- Unhides window If $itemnum < 1 Then Return $itemnum2 = $itemnum Do Select Case $msg = $trayitem1[$itemnum2] $enum = $itemnum2 EndSelect $itemnum2 = $itemnum2 - 1 Until $itemnum2 = 0 $gett = TrayItemGetText ($trayitem1[$enum]) WinSetState($gett & $procitem[$enum], "", @SW_SHOW) WinSetTitle($gett & $procitem[$enum], "", $gett) TrayItemDelete ($trayitem1[$enum]) $procitem[$enum] = 0 recount() Return EndFunc ;==>restore Func recount(); <-- Removes and recalculates variable and tray menu text If $itemnum = 0 Then Return $recountt = 0 $recount2 = 0 $bit = 0 Do $recountt = $recountt + 1 $trayrec[$recountt] = TrayItemGetText ($trayitem1[$recountt]) Until $recountt = $itemnum $recountt = 0 Do $recountt = $recountt + 1 If $procitem[$recountt] <> 0 Then $bit = $bit + 1 EndIf Until $recountt = $itemnum If $bit = 0 Then $itemnum = $bit Return EndIf $recountt = 0 Do $recountt = $recountt + 1 $recount2 = $recount2 + 1 If $procitem[$recountt] = 0 Then $recount2 = $recount2 + 1 EndIf If $recount2 < $itemnum Or $recount2 = $itemnum Then $procitem[$recountt] = $procitem[$recount2] EndIf Until $recount2 = $itemnum Or $recount2 > $itemnum $recountt = 0 Do $recountt = $recountt + 1 TrayItemDelete ($trayitem1[$recountt]) Until $recountt = $itemnum + 5 $recountt = 0 $recount2 = 0 Do $recount2 = $recount2 + 1 $recountt = $recountt + 1 If $trayrec[$recountt] = "" Then $recount2 = $recount2 + 1 EndIf If $recount2 < $itemnum Or $recount2 = $itemnum Then $trayitem1[$recountt] = TrayCreateItem ($trayrec[$recount2]) EndIf Until $recount2 = $itemnum Or $recount2 > $itemnum $itemnum = $bit Return EndFunc ;==>recount Func runhide() killmenu() hide() EndFunc ;==>runhide Func runontop() killmenu() If $hLastTopped <> '' Then WinSetOnTop($hLastTopped, "", 0);removes 'top' from last toped window ontop() EndFunc ;==>runontop Func runsemitrans() killmenu() If $hLastTransed <> '' Then WinSetTrans($hLastTransed, "", 255);resets last win set to trans semitrans() EndFunc ;==>runsemitrans Func killmenu();removes hkey registration, delets menu HotKeySet("{F11}", "Menu");RReenable F11 menu calls HotKeySet("1");called with no second parama, unregs hkey. HotKeySet("{NUMPAD1}") HotKeySet("2") HotKeySet("{NUMPAD2}") HotKeySet("3") HotKeySet("{NUMPAD3}") HotKeySet("4") HotKeySet("{NUMPAD4}") HotKeySet("5") HotKeySet("{NUMPAD5}") HotKeySet("{ESC}") GUIDelete($hUI_Popup) Sleep(20);grrr EndFunc ;==>killmenu Func reset() killmenu() If $itemnum > 0 Then Do $exitc = $exitc + 1 $gett = TrayItemGetText ($trayitem1[$exitc]) TrayItemDelete ($trayitem1[$exitc]) WinSetState($gett & $procitem[$exitc], "", @SW_SHOW) WinSetTitle($gett & $procitem[$exitc], "", $gett) Until $exitc = $itemnum EndIf If $hLastTopped <> '' Then WinSetOnTop($hLastTopped, "", 0);removes 'top' from last toped window If $hLastTransed <> '' Then WinSetTrans($hLastTransed, "", 255);resets last win set to trans EndFunc ;==>reset Func exithtt() Exit EndFunc ;==>exithtt Func OnAutoItExit(); <-- Unhides all windows that have been hidden with this app on exit reset() EndFunc ;==>OnAutoItExit

I am such a dumbass!!! THNX!

So schtasks.exe just isn't cutting it for me any more... I need more power. But I can't seem to get the syntax quite right: $oComError_UDFGlobal = ObjEvent("AutoIt.Error", "__Generic_COM_Error") $strComputer = "." $objWMIService = ObjCreate("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") $JobID = "Test" $objNewJob = $objWMIService.Get("Win32_ScheduledJob") $errJobCreate = $objWMIService.Create ("C:\windows\Notepad.exe", "********143000.000000-420", True , 1 OR 4 OR 16, ,True, $JobId) If $errJobCreate = 0 Then MsgBox(0, '', "Job created successfully: Notepad.exe scheduled to run repeately at 14.30 (2:30 P.M.) PST on Mon, Wed, and Fri.") Else MsgBox(0, '', "Job not created. Error code = " & $errJobCreate) EndIf Func __Generic_COM_Error() Local $hNumber = Hex($oComError_UDFGlobal.number, 8) ;blantly stolen from SvenP (We'll call it a 'port') MsgBox(0, 'XZip Com Error', 'There was COM Error!' & @CRLF & @CRLF & _ 'description is: ' & @TAB & $oComError_UDFGlobal.description & @CRLF & _ 'windescription:' & @TAB & $oComError_UDFGlobal.windescription & @CRLF & _ 'number is: ' & @TAB & $hNumber & @CRLF & _ 'lastdllerror is: ' & @TAB & $oComError_UDFGlobal.lastdllerror & @CRLF & _ 'scriptline is: ' & @TAB & $oComError_UDFGlobal.scriptline & @CRLF & _ 'source is: ' & @TAB & $oComError_UDFGlobal.source & @CRLF & _ 'helpfile is: ' & @TAB & $oComError_UDFGlobal.helpfile & @CRLF & _ 'helpcontext is: ' & @TAB & $oComError_UDFGlobal.helpcontext _ ) SetError(1) EndFunc From this example: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") JobID = "Test" Set objNewJob = objWMIService.Get("Win32_ScheduledJob") errJobCreate = objNewJob.Create _ ("Notepad.exe", "********143000.000000-420", _ True , 1 OR 4 OR 16, ,True, JobId) If errJobCreate = 0 Then WScript.Echo "Job created successfully: " & VBNewLine _ & "Notepad.exe scheduled to run repeately at 14.30 (2:30 P.M.) PST" & VBNewLine _ & "on Mon, Wed, and Fri." Else WScript.Echo "Job not created. Error code = " & errJobCreate End If Any tips? TIA!

Here's another that's kind of silyy, but it was something I needed. Func _DateToSeason($iMon = 0, $iDay = 0) If $iMon = 0 Then $iMon = @MON;Current month. Range is 01 to 12 If $iDay = 0 Then $iDay = @MDAY;Current day of month. Range is 01 to 31 Select Case $iMon = 12 Or $iMon <= 2 If $iMon = 12 Then If $iDay <= 21 Then Return 'Autumn' EndIf Return 'Winter' Case $iMon >= 3 And $iMon <= 5 If $iMon = 3 Then If $iDay <= 20 Then Return 'Winter' EndIf Return 'Spring' Case $iMon >= 6 And $iMon <= 8 If $iMon = 6 Then If $iDay <= 21 Then Return 'Spring' EndIf Return 'Summer' Case $iMon >= 9 And $iMon <= 11 If $iMon = 9 Then If $iDay <= 21 Then Return 'Summer' EndIf Return 'Autumn' Case Else Return False EndSelect EndFunc ;==>_DateToSeason

If it's a system DLL, MSDN sould have information regarding any OPEN/PUBLIC/EXPOSED API calls it supports, how to access them, and how the respond/reply. If it's a non-system DLL ( like one provided with an installed program ) the you must find the documtation for it as provided by the author. HOWEVER, if there is no documation, then there is no way to find out how to use it. For instance, Norton AV my come with many (many, many) DLLs to provide functionallty within the program, but those are for only the program (and Windows it's self) to use. There is no documation, and hence no way to call the dynamic functions those DLLs contain. This holds true to the Windows DLLs. Some may be accessed using MSDN docs, and cleaver porting to AutoIT. However MOST are for Windows it's self to use.

I think I may have found a bug in compileau3: Some of the default values are not working in compileau3.ini, and I think it's do to the localfile.au3.ini inireads not returning "" (blank string) defaults. example: $INP_Resource = IniRead($ScriptFile_In & ".ini", "Res", "UpdateInformation", 4) $INP_Comment = IniRead($ScriptFile_In & ".ini", "Res", "Comment", "http://www.hiddensoft.com/autoit3/compiled.html") $INP_Description = IniRead($ScriptFile_In & ".ini", "Res", "Description", "AutoIt v3 Compiled Script") $INP_Fileversion = IniRead($ScriptFile_In & ".ini", "Res", "Fileversion", "") $INP_Fileversion_AutoIncrement = IniRead($ScriptFile_In & ".ini", "Res", "Fileversion_AutoIncrement", "") $INP_LegalCopyright = IniRead($ScriptFile_In & ".ini", "Res", "LegalCopyright", "") $INP_FieldName1 = IniRead($ScriptFile_In & ".ini", "Res", "Field1Name", "") $INP_FieldValue1 = IniRead($ScriptFile_In & ".ini", "Res", "Field1Value", "") $INP_FieldName2 = IniRead($ScriptFile_In & ".ini", "Res", "Field2Name", "") $INP_FieldValue2 = IniRead($ScriptFile_In & ".ini", "Res", "Field2Value", "") $INP_Run_AU3Check = IniRead($ScriptFile_In & ".ini", "Other", "Run_AU3Check", 1) $INP_Run_Before = IniRead($ScriptFile_In & ".ini", "Other", "Run_Before", "") $INP_Run_After = IniRead($ScriptFile_In & ".ini", "Other", "Run_After", "") ;Retrieve CompileAU3 Defaults from CompileAU3.INI If $ScriptFile_Out_Type = "" Then $ScriptFile_Out_Type = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "outfile_type", "") If $INP_Icon = "" Then $INP_Icon = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "icon", "") If $INP_Compression = "" Then $INP_Compression = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "Compression", 2) If $INP_PassPhrase = "" Then $INP_PassPhrase = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "PassPhrase", "") If $INP_PassPhrase2 = "" Then $INP_PassPhrase2 = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "PassPhrase", "") If $INP_Allow_Decompile = "" Then $INP_Allow_Decompile = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "Allow_Decompile", 1) If $INP_AutoitDir = "" Then $AUT2EXE_PGM = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "aut2exe", "") If $INP_Resource = "" Then $INP_Resource = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "UpdateInformation", 4) If $INP_Comment = "" Then $INP_Comment = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Comment", "http://www.hiddensoft.com/autoit3/compiled.html") If $INP_Description = "" Then $INP_Description = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Description", "AutoIt v3 Compiled Script") If $INP_Fileversion = "" Then $INP_Fileversion = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Fileversion", "") If $INP_Fileversion_AutoIncrement = "" Then $INP_Fileversion_AutoIncrement = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Fileversion_AutoIncrement", "") If $INP_LegalCopyright = "" Then $INP_LegalCopyright = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "LegalCopyright", "") If $INP_FieldName1 = "" Then $INP_FieldName1 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field1Name", "") If $INP_FieldValue = "" Then $INP_FieldValue1 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field1Value", "") If $INP_FieldName2 = "" Then $INP_FieldName2 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field2Name", "") If $INP_FieldValue2 = "" Then $INP_FieldValue2 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field2Value", "") If $INP_Run_AU3Check = "" Then $INP_Run_AU3Check = IniRead(@ScriptDir & "\CompileAU3.ini", "Other", "Run_AU3Check", 1) If $INP_Run_Before = "" Then $INP_Run_Before = IniRead(@ScriptDir & "\CompileAU3.ini", "Other", "Run_Before", "") If $INP_Run_After = "" Then $INP_Run_After = IniRead(@ScriptDir & "\CompileAU3.ini", "Other", "Run_After", "") fix: If $INP_Compression = "" Then $INP_Compression = IniRead($ScriptFile_In & ".ini", "Autoit", "Compression", "") If $INP_PassPhrase = "" Then $INP_PassPhrase = IniRead($ScriptFile_In & ".ini", "Autoit", "PassPhrase", "") If $INP_PassPhrase2 = "" Then $INP_PassPhrase2 = IniRead($ScriptFile_In & ".ini", "Autoit", "PassPhrase", "") If $INP_Allow_Decompile = "" Then $INP_Allow_Decompile = IniRead($ScriptFile_In & ".ini", "Autoit", "Allow_Decompile", "") If $INP_AutoitDir = "" Then $AUT2EXE_PGM = IniRead($ScriptFile_In & ".ini", "Autoit", "aut2exe", "") $INP_Resource = IniRead($ScriptFile_In & ".ini", "Res", "UpdateInformation", "") $INP_Comment = IniRead($ScriptFile_In & ".ini", "Res", "Comment", "") $INP_Description = IniRead($ScriptFile_In & ".ini", "Res", "Description", "") $INP_Fileversion = IniRead($ScriptFile_In & ".ini", "Res", "Fileversion", "") $INP_Fileversion_AutoIncrement = IniRead($ScriptFile_In & ".ini", "Res", "Fileversion_AutoIncrement", "") $INP_LegalCopyright = IniRead($ScriptFile_In & ".ini", "Res", "LegalCopyright", "") $INP_FieldName1 = IniRead($ScriptFile_In & ".ini", "Res", "Field1Name", "") $INP_FieldValue1 = IniRead($ScriptFile_In & ".ini", "Res", "Field1Value", "") $INP_FieldName2 = IniRead($ScriptFile_In & ".ini", "Res", "Field2Name", "") $INP_FieldValue2 = IniRead($ScriptFile_In & ".ini", "Res", "Field2Value", "") $INP_Run_AU3Check = IniRead($ScriptFile_In & ".ini", "Other", "Run_AU3Check", "") $INP_Run_Before = IniRead($ScriptFile_In & ".ini", "Other", "Run_Before", "") $INP_Run_After = IniRead($ScriptFile_In & ".ini", "Other", "Run_After", "") ;Retrieve CompileAU3 Defaults from CompileAU3.INI If $ScriptFile_Out_Type = "" Then $ScriptFile_Out_Type = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "outfile_type", "") If $INP_Icon = "" Then $INP_Icon = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "icon", "") If $INP_Compression = "" Then $INP_Compression = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "Compression", 2) If $INP_PassPhrase = "" Then $INP_PassPhrase = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "PassPhrase", "") If $INP_PassPhrase2 = "" Then $INP_PassPhrase2 = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "PassPhrase", "") If $INP_Allow_Decompile = "" Then $INP_Allow_Decompile = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "Allow_Decompile", 1) If $INP_AutoitDir = "" Then $AUT2EXE_PGM = IniRead(@ScriptDir & "\CompileAU3.ini", "Autoit", "aut2exe", "") If $INP_Resource = "" Then $INP_Resource = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "UpdateInformation", 4) If $INP_Comment = "" Then $INP_Comment = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Comment", "http://www.hiddensoft.com/autoit3/compiled.html") If $INP_Description = "" Then $INP_Description = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Description", "AutoIt v3 Compiled Script") If $INP_Fileversion = "" Then $INP_Fileversion = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Fileversion", "") If $INP_Fileversion_AutoIncrement = "" Then $INP_Fileversion_AutoIncrement = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Fileversion_AutoIncrement", "") If $INP_LegalCopyright = "" Then $INP_LegalCopyright = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "LegalCopyright", "") If $INP_FieldName1 = "" Then $INP_FieldName1 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field1Name", "") If $INP_FieldValue = "" Then $INP_FieldValue1 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field1Value", "") If $INP_FieldName2 = "" Then $INP_FieldName2 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field2Name", "") If $INP_FieldValue2 = "" Then $INP_FieldValue2 = IniRead(@ScriptDir & "\CompileAU3.ini", "Res", "Field2Value", "") If $INP_Run_AU3Check = "" Then $INP_Run_AU3Check = IniRead(@ScriptDir & "\CompileAU3.ini", "Other", "Run_AU3Check", 1) If $INP_Run_Before = "" Then $INP_Run_Before = IniRead(@ScriptDir & "\CompileAU3.ini", "Other", "Run_Before", "") If $INP_Run_After = "" Then $INP_Run_After = IniRead(@ScriptDir & "\CompileAU3.ini", "Other", "Run_After", "")

It wouldn't be a question of 'hard'. There is no way to make THESE function calls work with 7-Zip. They are based only on the documation from the xzip web site. As far as working w/ 7-Zip, if it supports in any way activex/com, it's really only a matter of finding out the format of the function calls.

I wanted to see if I could get it to work, and to some extent did. It's really just a lot of strinstr stuff. Not really suitable for production use. The more I play with it, the more I realize it would really need to built into the AutoIt core. I haven't figured out a good way to pass back info. But thinking about stdin/out. #include-once #include <array.au3> #include <Constants.au3> Global $aParams_A3XGlobal[1], $iError_A3XGlobal = 0, $hPID_A3XGlobal = 0 Func _a3xCall($sPath, $sFunc, ByRef $aParamas, $bRunWait = False) Local $sParamas = '' For $v in $aParamas If IsArray($v) Then $sParamas &= __ParseArray($v) & ',' ContinueLoop EndIf $sParamas &= $v & ',' Next $sParamas = StringTrimRight($sParamas, 1) If $bRunWait Then $hPID_A3XGlobal = RunWait(@ScriptFullPath & ' /AutoIt3ExecuteScript "' & $sPath & '" Call::' & $sFunc & ' Paramas::' & $sParamas) Else $hPID_A3XGlobal = Run(@ScriptFullPath & ' /AutoIt3ExecuteScript "' & $sPath & '" Call::' & $sFunc & ' Paramas::' & $sParamas, '', '', $STDERR_CHILD + $STDOUT_CHILD + $STDIN_CHILD) EndIf EndFunc ;==>_a3xCall Func _A3XClose() ProcessClose($hPID_A3XGlobal) $aParams_A3XGlobal = '' $iError_A3XGlobal = 0 $hPID_A3XGlobal = 0 EndFunc ;==>_A3XClose Func _ParseA3XCall($sParamas) Local $aSplit, $sFunc, $aFuncParams $aSplit = StringSplit( StringTrimLeft($sParamas, (StringInStr($sParamas, 'Call::') + 5)), 'Paramas::', 1) $sFunc = $aSplit[1] $aFuncParams = StringSplit($aSplit[2], ',') _ArrayDelete($aFuncParams, 0) For $s in $aFuncParams _ArrayAdd($aParams_A3XGlobal, __VarentToType($s)) Next $aParams_A3XGlobal[0] = UBound($aParams_A3XGlobal) - 1 Call(StringStripWS($sFunc, 8)) If @error Then MsgBox(0, '', 'Called Function non-exantiant: ' & $sFunc) EndIf ConsoleWrite('Exit Code: ' & $iError_A3XGlobal) EndFunc ;==>_ParseA3XCall Func _Return($v) ConsoleWrite($v) EndFunc ;==>_Return ;helpers Func __VarentToType($v) Local $sCheck, $n = Number($v) $sCheck = StringLeft($v, 1) If $sCheck == '"' Or $sCheck == "'" Then $v = StringTrimLeft($v, 1) EndIf $sCheck = StringRight($v, 1) If $sCheck == '"' Or $sCheck == "'" Then $v = StringTrimRight($v, 1) EndIf Select Case StringInStr($v, 'Array::', 1) Return StringSplit (StringReplace($v, 'Array::', ''), '|', 1) Case $v = 'true' Return True Case $v = 'false' Return False Case $n <> 0 Return $n Case Else If $v == 0 And $n == 0 Then Return 0 Return String($v) EndSelect EndFunc ;==>__VarentToType Func __ParseArray(ByRef $aArray) If Not IsArray($aArray) Then SetError(1) Return False EndIf $sSendString = _ArrayToString($aArray, '|') Return 'Array::' & $sSendString EndFunc ;==>__ParseArraya3xConcepts.zip

Hot off the presses: http://www.autoitscript.com/forum/index.php?showtopic=18428

Nothin'?

I know nothing of VB, and I'm having no luck proting this: VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx" Begin VB.Form neroFiddlesCOMForm Caption = "NeroFiddles COM" ClientHeight = 6150 ClientLeft = 60 ClientTop = 345 ClientWidth = 6930 LinkTopic = "Form1" ScaleHeight = 6150 ScaleWidth = 6930 StartUpPosition = 3 'Windows Default Begin MSComDlg.CommonDialog ImageFileDialog Left = 1680 Top = 4800 _ExtentX = 688 _ExtentY = 688 _Version = 393216 DefaultExt = "nrg" DialogTitle = "Select Image File " Filter = "All Files (*.*)|*.*|Nero Image Files (*.nrg)|*.nrg" End Begin VB.Frame Frame4 Caption = "Available Devices" Height = 735 Left = 120 TabIndex = 10 Top = 960 Width = 6495 Begin VB.ComboBox AvailableDevices Height = 315 ItemData = "neroFiddlesCOMForm.frx":0000 Left = 240 List = "neroFiddlesCOMForm.frx":0002 TabIndex = 11 Top = 240 Width = 5895 End End Begin VB.Frame Frame3 Caption = "Progress" Height = 735 Left = 120 TabIndex = 5 Top = 1800 Width = 6495 Begin ComctlLib.ProgressBar ProgressBar Height = 375 Left = 240 TabIndex = 6 Top = 240 Width = 5895 _ExtentX = 10398 _ExtentY = 661 _Version = 327682 Appearance = 1 End End Begin MSComDlg.CommonDialog SelectFileDialog Left = 1080 Top = 4800 _ExtentX = 847 _ExtentY = 847 _Version = 393216 DefaultExt = "mp3" DialogTitle = "Select File For Burning" Filter = "All Files (*.*)|*.*|MP3 Files (*.mp3)|*.mp3" End Begin VB.TextBox edtMessages Height = 2055 Left = 360 MultiLine = -1 'True ScrollBars = 3 'Both TabIndex = 0 Top = 3840 Width = 5895 End Begin VB.Frame Frame2 Caption = "Nero Messages" Height = 2535 Left = 120 TabIndex = 1 Top = 3480 Width = 6495 End Begin VB.Frame Frame1 Caption = "File Name" Height = 735 Index = 1 Left = 120 TabIndex = 2 Top = 120 Width = 6495 Begin VB.CommandButton Browse Caption = "Browse" Height = 375 Left = 4680 TabIndex = 9 Top = 240 Width = 1455 End Begin VB.TextBox edtFileName Height = 375 Left = 240 Locked = -1 'True ScrollBars = 1 'Horizontal TabIndex = 4 Top = 240 Width = 4215 End End Begin VB.Frame Frame1 Caption = "Burn Control" Height = 735 Index = 2 Left = 120 TabIndex = 3 Top = 2640 Width = 6495 Begin VB.CommandButton Burn Caption = "Burn" Enabled = 0 'False Height = 375 Left = 240 TabIndex = 8 Top = 240 Width = 4215 End Begin VB.CommandButton btnAbort Caption = "Abort" Enabled = 0 'False Height = 375 Left = 4680 TabIndex = 7 Top = 240 Width = 1455 End End Begin MSComDlg.CommonDialog CommonDialog1 Left = 2400 Top = 4200 _ExtentX = 847 _ExtentY = 847 _Version = 393216 DefaultExt = "mp3" Filter = "All Files (*.*)|*.*|MP3 Files (*.mp3)|*.mp3" End End Attribute VB_Name = "neroFiddlesCOMForm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public WithEvents nero As nero Attribute nero.VB_VarHelpID = -1 Public drives As INeroDrives Attribute drives.VB_VarHelpID = -1 Public WithEvents drive As NeroDrive Attribute drive.VB_VarHelpID = -1 Public cnt As Integer Public Folder As INeroFolder Public strMessages As String Function NameFromPath(strPath As String) As String Dim lngPos As Long Dim strPart As String Dim blnIncludesFile As Boolean lngPos = InStrRev(strPath, "\") blnIncludesFile = InStrRev(strPath, ".") > lngPos strPart = "" If lngPos > 0 Then If blnIncludesFile Then strPart = Right$(strPath, Len(strPath) - lngPos) End If End If NameFromPath = strPart End Function Private Sub Browse_Click() SelectFileDialog.CancelError = True On Error GoTo ErrHandler SelectFileDialog.Flags = cdlOFNHideReadOnly SelectFileDialog.FilterIndex = 2 SelectFileDialog.ShowOpen edtFileName.Text = SelectFileDialog.FileName Burn.Enabled = True Exit Sub ErrHandler: Exit Sub End Sub Private Sub btnAbort_Click() nero.Abort End Sub Private Sub Burn_Click() btnAbort.Enabled = True Browse.Enabled = False Burn.Enabled = False Set Folder = New NeroFolder Dim drives As INeroDrives Set drives = nero.GetDrives(NERO_MEDIA_CDR) Set drive = drives(AvailableDevices.ListIndex) Dim isotrack As NeroISOTrack Set isotrack = New NeroISOTrack isotrack.Name = "TestTrack" isotrack.RootFolder = Folder Dim file As NeroFile Set file = New NeroFile Folder.Files.Add file file.Name = NameFromPath(edtFileName.Text) file.SourceFilePath = edtFileName.Text isotrack.BurnOptions = NERO_BURN_OPTION_CREATE_ISO_FS + NERO_BURN_OPTION_USE_JOLIET drive.BurnIsoAudioCD "Pop Star", "Title", 0, isotrack, Nothing, Nothing, NERO_BURN_FLAG_SIMULATE + NERO_BURN_FLAG_WRITE, 4, NERO_MEDIA_CD GoTo quit handle_error: strMessages = strMessages + Err.Description + Chr(13) + Chr(10) + nero.LastError edtMessages = strMessages quit: End Sub Private Sub drive_onaborted(Abort As Boolean) Abort = False End Sub Private Sub drive_OnAddLogLine(TextType As NEROLib.NERO_TEXT_TYPE, Text As String) strMessages = strMessages + Text + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub drive_OnDoneBurn(StatusCode As NEROLib.NERO_BURN_ERROR) strMessages = strMessages + Chr(13) + Chr(10) + nero.ErrorLog + Chr(13) + Chr(10) strMessages = strMessages + nero.LastError + Chr(13) + Chr(10) strMessages = strMessages + "Burn finished " If StatusCode <> NEROLib.NERO_BURN_OK Then strMessages = strMessages + "NOT (" & StatusCode & ")" End If strMessages = strMessages + "successfully!" + Chr(13) + Chr(10) edtMessages = strMessages btnAbort.Enabled = False Browse.Enabled = True Burn.Enabled = True ProgressBar.Value = 0 End Sub Private Sub drive_OnDoneWaitForMedia(Success As Boolean) strMessages = strMessages + "Done waiting for media." + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub drive_onprogress(ProgressInPercent As Long, Abort As Boolean) Abort = False ProgressBar.Value = ProgressInPercent End Sub Private Sub drive_OnSetPhase(Text As String) strMessages = strMessages + Text + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub Form_Initialize() Set nero = New nero ProgressBar.Value = 0 strMessages = "" Dim drives As INeroDrives Set drives = nero.GetDrives(NERO_MEDIA_CDR) For myIndex = 0 To drives.Count - 1 AvailableDevices.AddItem drives(myIndex).DeviceName, myIndex Next AvailableDevices.ListIndex = 0 ErrHandler: Exit Sub End Sub Private Sub nero_OnFileSelImage(FileName As String) ImageFileDialog.CancelError = True On Error GoTo ErrHandler ImageFileDialog.Flags = cdlOFNHideReadOnly ImageFileDialog.FilterIndex = 2 ImageFileDialog.ShowOpen FileName = ImageFileDialog.FileName Exit Sub ErrHandler: Exit Sub End Sub Private Sub nero_OnMegaFatal() strMessages = strMessages + "A mega fatal error has occurred." + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub nero_OnNonEmptyCDRW(Response As NEROLib.NERO_RESPONSE) strMessages = strMessages + "CD-RW not empty!" + Chr(13) + Chr(10) edtMessages = strMessages Response = NERO_RETURN_EXIT End Sub Private Sub nero_OnRestart() strMessages = strMessages + "The system is being restarted." + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub nero_OnWaitCD(WaitCD As NEROLib.NERO_WAITCD_TYPE, WaitCDLocalizedText As String) strMessages = strMessages + WaitCDLocalizedText + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub nero_OnWaitCDDone() strMessages = strMessages + "Done waiting for CD." + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub nero_OnWaitCDMediaInfo(LastDetectedMedia As NEROLib.NERO_MEDIA_TYPE, LastDetectedMediaName As String, RequestedMedia As NEROLib.NERO_MEDIA_TYPE, RequestedMediaName As String) strMessages = strMessages + "Waiting for a particular media type:" + Chr(13) + Chr(10) strMessages = strMessages + RequestedMediaName + Chr(13) + Chr(10) edtMessages = strMessages End Sub Private Sub nero_OnWaitCDReminder() strMessages = strMessages + "Still waiting for CD..." + Chr(13) + Chr(10) edtMessages = strMessages End Sub My poor attempt: Global $oNero_UDFGlobal $oComError_UDFGlobal = ObjEvent("AutoIt.Error", "__Nero_COM_Error") $oNero_UDFGlobal = ObjCreate("nero.nero") $oNero_Someting = ObjCreate("NeroDrive.nero") ;~ $Folder = ObjEvent($oNero_UDFGlobal, "Drive_", "INeroFolder" ) ;~ _DM(_NeroOpen()) ;~ _DM(_NeroGetDrives()) _DM() Func _NeroOpen() ;~ $oNero_UDFGlobal = ObjCreate("nero.nero");new nero object ;~ $oNeroDrive = ObjCreate('nero.NeroDrive') If IsObj($oNero_UDFGlobal) Then;make sure it's opened Return True Else SetError(3) Return False EndIf EndFunc Func _NeroGetDrives() ;~ drivesObjEvent ($oNero_UDFGlobal, "functionprefix" [, "interface name"] ) ;~ $oEvent = INeroDrives ;~ Return $oNero_UDFGlobal.GetDrives(NERO_MEDIA_CDR) EndFunc Func _NeroClose() $oNero_UDFGlobal = '' EndFunc Func __Nero_COM_Error() Local $hNumber = Hex($oComError_UDFGlobal.number, 8) ;blantly stolen from SvenP (We'll call it a 'port') MsgBox(0, 'Nero Com Error', 'There was COM Error!' & @CRLF & @CRLF & _ 'description is: ' & @TAB & $oComError_UDFGlobal.description & @CRLF & _ 'windescription:' & @TAB & $oComError_UDFGlobal.windescription & @CRLF & _ 'number is: ' & @TAB & $hNumber & @CRLF & _ 'lastdllerror is: ' & @TAB & $oComError_UDFGlobal.lastdllerror & @CRLF & _ 'scriptline is: ' & @TAB & $oComError_UDFGlobal.scriptline & @CRLF & _ 'source is: ' & @TAB & $oComError_UDFGlobal.source & @CRLF & _ 'helpfile is: ' & @TAB & $oComError_UDFGlobal.helpfile & @CRLF & _ 'helpcontext is: ' & @TAB & $oComError_UDFGlobal.helpcontext _ ) SetError(1) EndFunc ;==>__Nero_COM_Error As you can see I have NO clue what I'm doing... Any tips?

SWEET! Thanks so much for your hard work!

Yes in a dropdown box, and line number would work very well! I didn't realize no name was an issue. None-the-less 'NoVariable' Sounds great. (Would also be handy in group creation.) Also, it would be great if we could set the color of controls using a variable name. IE: I use two globals ($hGUIColorBack & $hGUIColorText) to set all gui items in my script. This way it's easy to change the color schime for the entire app, with just two lines of code. (Think CSS)

After a good amout of use with the most recent beta last night, I have two small requests: 1. Option to set a default in a dropdown. 2. Option for blank tag to == no variable assingment. (IE: I don't need most of my static lables to be assinged to a variable, however if I empty the 'name' field, Koda will genirate code like this: $ = GuiCtrlCreateLable(...), which needless to say will not work) None-the-less, THANK YOU for all you hard work, Koda is KILLER!!!

SWEET THNX!

LMAO! LazyCat is a member here. He wrote a plugin for AutoIt found under his post here: http://www.autoitscript.com/forum/index.ph...16952&hl=plugin

I figured some one else might be working on some UDFs for this. Nice work, you did all the functions I didn't bother with. Between both our work, I think just about every option is represented. I know mine need a few small bug fixes, and some cleaning. I'm still having some problems with the loop in _ZipPackDir().

Here are some UDFs I wrote based on what I saw here. ; ====================================================================================== ; Zip UDFs based on standared fileOpen()/fileClose() system ; Based on other people's work. ; ; Only the more basic function of XZip are represnted (poorly) ; ; Requires: XZip.dll: ; http://xstandard.com/printer-friendly.asp?id=C9891D8A-5390-44ED-BC60-2267ED6763A7 ; ====================================================================================== #include-once #include <array.au3> #include <file.au3> Global $oXZip_UDFGlobal, $sZipPath_UDFGlobal, $oComError_UDFGlobal, $sDllLoc_UDFGlobal, $iRegDelay_UDFGlobal ; ============================================================================ ; Turned off COM erroring ; I don't think it's needed if the scripter is not directly interacting with ; the object, plus it causes an error with my choosen exit(_ZipClose) method ; ============================================================================ ;$oComError_UDFGlobal = ObjEvent("AutoIt.Error", "__XZip_COM_Error") ;=============================================================================== ; ; Description: :Open ZIP file, and load XZip.dll as a service ; Parameter(s): :Archive path, (Opt)XZip.dll path (default to @ScriptDir), ; (opt)Delay between regsrv, and objcreate (default 150 ms) ; Requirement: :XZip.dll, XZip.au3 ; Return Value(s): :True/False (error #) ; User CallTip: :_ZipOpen(ArchivePath, XZipDllPath, Delay in MS) ; ;=============================================================================== ; Func _ZipOpen($sNewArchivePath, $sDllPath = '', $iDelay = 200) If $sDllPath = '' Then $sDllPath = @ScriptDir & '\XZip.dll' ;some error checking If Not FileExists($sDllPath) Then SetError(1) Return False ElseIf Not IsInt($iDelay) Then SetError(2) Return False EndIf ;set the globals $sZipPath_UDFGlobal = $sNewArchivePath $sDllLoc_UDFGlobal = $sDllPath $iRegDelay_UDFGlobal = $iDelay __DOSStart('regsvr32 /s "' & $sDllLoc_UDFGlobal & '"') Sleep($iRegDelay_UDFGlobal);needs a sec when loaded silent. $oXZip_UDFGlobal = ObjCreate('XStandard.Zip') If IsObj($oXZip_UDFGlobal) Then;make sure it's opened Return True Else SetError(3) Return False EndIf EndFunc ;==>_ZipOpen ;=============================================================================== ; ; Description: :List items in given Zip file ; Parameter(s): :None (see _ZipOpen) ; Requirement: :XZip.dll, XZip.au3 ; Return Value(s): :Array contaning archive contents ; User CallTip: :_ZipContents() ; ;=============================================================================== ; Func _ZipContents();this func needs some more work Local $oItem Local $aRet[1] If Not IsObj($oXZip_UDFGlobal) Then SetError(1) Return False EndIf For $oItem In $oXZip_UDFGlobal.Contents ($sZipPath_UDFGlobal) _ArrayAdd($aRet, $oItem.Path & $oItem.Name) Next $aRet[0] = UBound($aRet) Return $aRet EndFunc ;==>_ZipContents ;=============================================================================== ; ; Description: :Add items to opened Zip file ; Parameter(s): :Array contaning item paths, (opt)Retain dir structure ; Requirement: :XZip.dll, XZip.au3 ; Return Value(s): :True/False (error #) ; User CallTip: :_ZipPack(array of item paths, Bool) ; ;=============================================================================== ; Func _ZipPackGroup(ByRef $aItems, $bKeepPath = True);this func needs some more work If Not IsObj($oXZip_UDFGlobal) Then SetError(1) Return False EndIf Local $x For $x = 0 To UBound($aItems) - 1 If Not FileExists($aItems[$x]) Then SetError(2) SetExtended($aItems[$x]) Return False EndIf $oXZip_UDFGlobal.Pack ($aItems[$x], $sZipPath_UDFGlobal, $bKeepPath) Next Return True EndFunc ;==>_ZipPackGroup ;=============================================================================== ; ; Description: :Add all items in a dir to opened Zip file ; Parameter(s): :String dir path ; Requirement: :XZip.dll, XZip.au3 ; Return Value(s): :True/False (error #) ; User CallTip: :_ZipPackDir(DirPath) ; ;=============================================================================== ; Func _ZipPackDir($sDirPath);this is the one that I needed, so it works well Local $aFiles, $x, $i, $aDirs[1], $sStartDir, $sWorkingDir, $sNewDirPath, $iInsert, $sDirInZip If Not IsObj($oXZip_UDFGlobal) Then SetError(1) Return False ElseIf Not StringInStr(FileGetAttrib($sDirPath), 'D') Then SetError(2) Return False EndIf $sStartDir = $sDirPath $aDirs[0] = $sDirPath $i = 0 ; =========================================================== ; This loop might have some unneeded code, because it took a ; lot of trys to get it right. Also some error more checking, ; optimization and clean couldn't hurt. But it works!;) ; =========================================================== Do $sWorkingDir = $aDirs[$i] & '\' $aFiles = _FileListToArray ($aDirs[$i]) For $x = 1 To UBound($aFiles) - 1 If StringInStr(FileGetAttrib($aFiles[$x]), 'D') Then $sNewDirPath = $sDirPath & '\' & $aFiles[$x] $iInsert = $i + 1 _ArrayInsert($aDirs, $iInsert, $sNewDirPath) Else $sDirInZip = StringReplace($sWorkingDir, $sDirPath, '') $oXZip_UDFGlobal.Pack ($sWorkingDir & $aFiles[$x], $sZipPath_UDFGlobal, 1, $sDirInZip) EndIf Next $i = $i + 1 $aFiles = '' Until UBound($aDirs) = $i Return True EndFunc ;==>_ZipPackDir ;=============================================================================== ; ; Description: :Unpack a zip file ; Parameter(s): :String: Path to extract Zip file to ; Requirement: :XZip.dll, XZip.au3 ; Return Value(s): :True/False (error #) ; User CallTip: :_ZipUnpack(ExtractPath) ; ;=============================================================================== ; Func _ZipUnpack($sDestPath) If Not IsObj($oXZip_UDFGlobal) Then SetError(1) Return False EndIf If Not FileExists($sDestPath) Then DirCreate($sDestPath) $oXZip_UDFGlobal.UnPack ($sZipPath_UDFGlobal, $sDestPath) Return True EndFunc ;==>_ZipUnpack ;=============================================================================== ; ; Description: :Close ZIP file, and unload XZip.dll as a service ; Parameter(s): :None, based on _ZipOpen globals ; Requirement: :XZip.dll, XZip.au3 ; Return Value(s): :True/False (error #) ; User CallTip: :_ZipClose(XZipDllPath, Delay in MS) ; ;=============================================================================== ; Func _ZipClose() ;some error checking If Not FileExists($sDllLoc_UDFGlobal) Then SetError(1) Return False EndIf __DOSStart('regsvr32 /s /u "' & $sDllLoc_UDFGlobal & '"') Sleep($iRegDelay_UDFGlobal);needs a sec when unloaded silently. ; ===================================================== ; This way of checking will cause a COM error ; but I like to confirm that the object's been closed ; ===================================================== $oXZip_UDFGlobal = ObjCreate('XStandard.Zip') If Not IsObj($oXZip_UDFGlobal) Then;make sure it's closed ;reset globals, for next call $sZipPath_UDFGlobal = '' $sDllLoc_UDFGlobal = '' $iRegDelay_UDFGlobal = 0 $oXZip_UDFGlobal = '' Return True Else SetError(2) Return False EndIf EndFunc ;==>_ZipClose ;helper functions Func __XZip_COM_Error() Local $hNumber = Hex($oComError_UDFGlobal.number, 8) ;blantly stolen from SvenP (We'll call it a 'port') MsgBox(0, 'XZip Com Error', 'There was COM Error!' & @CRLF & @CRLF & _ 'description is: ' & @TAB & $oComError_UDFGlobal.description & @CRLF & _ 'windescription:' & @TAB & $oComError_UDFGlobal.windescription & @CRLF & _ 'number is: ' & @TAB & $hNumber & @CRLF & _ 'lastdllerror is: ' & @TAB & $oComError_UDFGlobal.lastdllerror & @CRLF & _ 'scriptline is: ' & @TAB & $oComError_UDFGlobal.scriptline & @CRLF & _ 'source is: ' & @TAB & $oComError_UDFGlobal.source & @CRLF & _ 'helpfile is: ' & @TAB & $oComError_UDFGlobal.helpfile & @CRLF & _ 'helpcontext is: ' & @TAB & $oComError_UDFGlobal.helpcontext _ ) SetError(1) EndFunc ;==>__XZip_COM_Error Func __DOSStart($sStart) Run(@ComSpec & ' /c start ' & $sStart, '', @SW_HIDE) EndFunc ;==>__DOSStart #cs UserCalltips _ZipOpen($sNewArchivePath, $sDllPath = '', $iDelay = 150) _ZipContents() _ZipPackGroup(ByRef $aItems, $bKeepPath = True);this func needs some more work _ZipPackDir(DirPath) _ZipUnpack($sDestPath) _ZipClose($sDllPath = '', $iDelay = 150) #ceXZip_UDFs.zip

Yes, I have a 5000 line script that seems to freeze for more then 1 min AFTER compiling. I think it's a problem with SciTE refreshing, because the script will show up fully compiled, but scite is frozen. This also heppens intermittenly with tidy. None the less THANKS for the build tracking! I had written a script to keep track of my builds by means of an exturnal INI, but this is WAY beter!

My bad it was: $WS_SIZEBOX thanks all the helpm though.

I know this is a simple one, but I can't for the life of me figure it out... Which border style is the one with nothing but a single x(close) like a message box?