RobK

I am getting this output from Obfuscator. Is this a real problem ? This is coming from the WinAPI.au3 file which is version 3.2. Thanks for any assistance. Rob ______________ >"C:\Program Files\AutoIt3\SciTE\Obfuscator\Obfuscator.exe" "C:\Users\Documents\AutoIT Projects\Working\FTP_DVR.au3" -###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script. >### current Func: _WinAPI_SetLayeredWindowAttributes C:\Program Files\AutoIt3\include\WinAPI.au3(5364,1) Warning for line:$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2)) -############################################################################################# -#### Obfuscator Found 1 Error(s)!!!! This means your script could have problems running properly. #### -############################################################################################# +> Obfuscator v1.0.29.0 finished obfuscating 6124 lines, stripped 11106 comment lines. created:C:\Users\Documents\AutoIT Projects\Working\FTP_DVR_Obfuscated.au3 >Exit code: 1 Time: 4.666

Yes, I just figured it out. Been staring at this too long. Thanks.

I am trying to add a selected folders to a list which the user can select. The items are not appearing in my list control which is shown on the second tab. I cannot figure out why my items which I am selecting are not appearing in my list. Can someone help to pinpoint my issue? #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Koda\Forms\FIMConfigTab.kxf $dlgTabbed = GUICreate("Tabbed Notebook Dialog", 730, 586, 214, 180) GUISetIcon("", -1) $PageControl1 = GUICtrlCreateTab(8, 8, 596, 456) $TabSheet1 = GUICtrlCreateTabItem("Files to Include") $edtIncludeExt = GUICtrlCreateInput("ini,exe,scr,bat,msi,dll", 305, 163, 265, 26) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label1 = GUICtrlCreateLabel("Largest file size to monitor:", 41, 115, 190, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $edtFileSize = GUICtrlCreateInput("20", 305, 115, 57, 26) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label2 = GUICtrlCreateLabel("Extensions to include:", 41, 163, 154, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label3 = GUICtrlCreateLabel("in MB", 384, 115, 44, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("Folders to Watch") $Button4 = GUICtrlCreateButton("&Add Folder", 56, 176, 83, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;$ListView1 = GUICtrlCreateListView("", 192, 104, 250, 270, BitOR($GUI_SS_DEFAULT_LISTVIEW,$WS_VSCROLL)) $List1 = GUICtrlCreateList("Selected Folders to Monitor:", 192, 104, 250, 270, -1) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button5 = GUICtrlCreateButton("&Remove Folder", 56, 256, 83, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("SMS Alerts") $Label4 = GUICtrlCreateLabel("Mail Server", 42, 82, 83, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label5 = GUICtrlCreateLabel("From Name", 42, 162, 87, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label6 = GUICtrlCreateLabel("Server Username", 42, 146, 126, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label9 = GUICtrlCreateLabel("Mobile Number", 42, 282, 110, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Input6 = GUICtrlCreateInput("9541234567", 178, 282, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input4 = GUICtrlCreateInput("", 178, 178, 121, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input3 = GUICtrlCreateInput("xxx@gmail.com", 178, 146, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input2 = GUICtrlCreateInput("FIM Alert", 178, 114, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input1 = GUICtrlCreateInput("xxx@gmail.com", 178, 82, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Input5 = GUICtrlCreateInput("25", 178, 218, 41, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label8 = GUICtrlCreateLabel("SSL", 42, 250, 35, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label7 = GUICtrlCreateLabel("Port", 42, 218, 33, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Radio1 = GUICtrlCreateRadio("Yes", 178, 250, 65, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio2 = GUICtrlCreateRadio("No", 242, 250, 57, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $List1 = GUICtrlCreateList("", 178, 322, 121, 76) GUICtrlSetData(-1, "ATT_WIRELESS|SPRINT_PCS|TMOBILE|VERIZON_WIRELESS") GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label10 = GUICtrlCreateLabel("Service Provider", 42, 322, 120, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Label11 = GUICtrlCreateLabel("Server Password", 42, 183, 124, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("&OK", 366, 472, 75, 25) $Button2 = GUICtrlCreateButton("&Cancel", 446, 472, 75, 25) $Button3 = GUICtrlCreateButton("&Exit", 528, 472, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 msgbox(0,"debug","OK Button pressed") Case $Button2 msgbox(0,"debug","Cancel Button pressed") Case $Button3 msgbox(0,"debug","Exit Button pressed") Exit Case $Button4 ;add folder $message = "Select folder to add" $addfolder = FileSelectFolder($message, @SystemDir & ":\",2) msgbox (0,"debug",$addfolder) GUICtrlSetData($List1, $addfolder) ;msgbox(0,"debug:newitem", $newitem) if @error Then msgbox (0, "Error", "Add folder failed.") EndIf GUIcreat GUISetState() Case $Button5 ;remove folder EndSwitch WEnd

The network I am using only has port 80 and 443 open and I want to move a file out to an ftp server. I am trying to determine if it is possible to send a file outbound over port 80 and to deliver to a FTP server on port 21? I tried using the ftpsetproxy(0) and that did not seem to work via the Internet options proxy setup. Any ideas or scripts which may have already been developed? Thanks, Rob

If I wanted to run ftp over port 80 how would I adapt this proxy server to accomodate ftp redirect? Thanks, Rob

Thanks for your input. I figured it out. I was including the $ as part of my constant in the ini file. If I store the constant name without the $ then use eval it does what I need. Rob

I am trying to pass a constant via an ini file but when it is used in my script it is used at a literal string. How do I evaluate the passed string at a constant to be evaluated at run time? Test.ini service=$ConstantVal Test.AU3 $LZService = IniRead("Test.ini", "Configuration", "service", "") msgbox (0, "debug", $LZService) The $LZService shows up as $ConstantVal when displayed in the msgbox. I really want the value of $ConstantVal to be displayed. How do I force the evaluation of the $LZService? I tried eval and that did not work. Advice would be appreciated. Thanks, Rob

All I really want to know is how can I remove the GUID files from the zip? The internal delete fails and there is no way to delete without prompts from the _Zip_DeleteItem method. Your advice is appreciated. Rob

Recompiled with new version. I am getting this error on execution on XP and Win7 machines. Compressed (zipped) Folders Error The specified directory C:\Documents and Settings\Administrator\Local Settings\Temp\~xcsofli.tmp\EventLogBkup is empty, so Compressed (zipped) Folders cannot add it to the archive. After select OK the application just hangs. Just started to look into the problem. Rob

Once you convert the dll to be embedded - how do you reference for the SQL_Startup() method? Thanks, Rob

Is there a way to call _Zip_DeleteItem without a pop-up dialog confirming delete? I not sure where the prompt dialog originates is it the For $oVerb in $overbs loop?

I wrote a quick routine to try and delete the files but that fails to successfully delete on the XP machines too (works on Win7). #cs +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +++ Search for GUID type of files and remove from zip (XP OS issue) +++ +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #ce $ZSearchGUID = _Zip_Search($LZPOSPath & "\LogArchive\" & $Datefn & "\" & $Datefn & ".zip", "{") if @error or $ZSearchGUID = 0 Then msgbox(0,"Error",$ZSearchGUID) ;on error or no files do nothing. Else _ArrayDisplay($ZSearchGUID,"Files in Zip") ;process files found and remove from zip for $i = 1 to $ZSearchGUID[0] $ZDelete = _Zip_InternalDelete($LZPOSPath & "\LogArchive\" & $Datefn & "\" & $Datefn & ".zip", $ZSearchGUID[$i]) ;delete without confirmation If @error Then msgbox(0,"Delete error",$ZSearchGUID[$i] & " " & $ZDelete) EndIf next EndIf In this case it is returning a zero (0) and from the @error condition 7 - Destination ZIP file does not exist.

Sorry, no the GUID type files are still being created in the zip with the revised UDF. Rob

I am using the zip UDF dated 2010-08-07 and found that on XP computers all folders are getting some type of file that looks like a GUID {EF9FD7B5-94C9-41BE-BE69-FF72B330B5A1} any ideas why these are being created? This does not occur on a windows 7 computer. Any help would be appreciated. Thanks, Rob

In further research of this error.. In the the Zip_AddItem method Lines 103 and 105 are original from the Zip UDF. It seems Zip_ItemExists is called and it is returning a zip file not found which causes the error 7. When I inserted line 104 below I see error 4 from Zip_ItemExists but the error 7 is not being set any longer and the subdirectory is being created. I don't understand why inserting a ConsoleWrite changes the outcome of execution? What is the solution for this error condition. 103 Local $itemExists = _Zip_ItemExists($sTest, $sNameOnly) 104 ConsoleWrite("err&ext: " & @error & " " & @extended & @CRLF) 105 If @error Then Return SetError(7, 0, 0) Here are the lines from Zip_ItemExists which seems to be returning the error 4. Why is the zip file not found? Why is is being tested for an internal directory being created? 324 Local $oNS = $oApp.NameSpace($sZipFile) 325 If Not IsObj($oNS) Then Return SetError(4, 0, 0) Any help is appreciated to correct this issue. Rob

I am getting error 7 when I try to add a subdirectory using the command $ZReturn = _Zip_AddItem($Zip,$AFile,"test",1) test being the subdirectory. If I use "" everything gets added fine. No matter what I use as a subdirectory I get the error 7. I am open to try whatever is needed. I am running on a Win 7 pro environment. Thanks, Rob