joseLB

Hello, It's been a while since there's been an update here... Today I still use the good old Koda on a daily basis... Anyone who is using this one in practice, can you tell me if it's a good and stable replacement for Koda ? Thanks, Jose

I compiled it as 64 bits and compiled OK. On this program I can do this, but in others, for example with RS232 dlls, it´s not possible. So, this is a half solution... Could not we have a better solution?

Thanks all you. My situation like this one. That is, when I compile it stops with the message, and Defender says it has Win32/Fuerboos.D!cl . At this program (very small) the noticeable point is that it writes at the registry (Current User). Without compilation, it runs and writes there OK. My question: do you know how I can tell Defender (train?) to not do that anymore when I compile? Or you know if I can deactivate Defender during my compilations?

I know this is a recurrent issue. THis is a brand new win10 with just Defender. How can I resolve this? Thanks in advance.

Hi Qdferrato Any news in your guibuikder?

Thanks @Danyfirex sorry I mean, using this x64 dll, I can compile in AU3 , 32 bits, or just can compile in au3 x64. The Windows/PC are 64 bits. I´m asking as with the old 32 bits dll, I only could compile in 32 bits. But with the 64, maybe due to other constrains, in some scripts I would have to use 32 bitx compilation.

Hi, the 64 bit dll Works also in 32 bits? Thanks Jose

Hi I normally use HASP/sentinel dongles in executables generated in VB. It consists into "pack" the .exe and then the program only will run if the usb dongle is at the PC. So I packed the AU3 .exe same way. The image shows the message.when ran at the correct folder where the auxiliary files exists. But If I run it at a folder where there is no auxiliary folders, the messages shows that these files does not exists. That means that the program started ok, did a lot of things, but probably when needed floating point it was not able to load the runtime. Just remembering, VB .exe Works ok. Any clue? *PS: this "packing" was done at a Win XP virtual machine, as I do not have the program to pack it at Win7. Could that be the reason, as AU3 does not work at XP and VB Works? But at other hand, running at this XP machine I received the message that there is not auxiliary files at the folder... So it ran at XP... Regards Jose

Thanks alot!

factfinder/and Subz Thank you really very much! I will try undestand all that, I could´nt imagine that withou your help. I´m using x32, and can´t compile in x64, due to some dlls I use, for example, rs232 serial one. But if that is stable even under KLM as the example from Subz , it´s ok for me. This script must work in win7 and win 10. Tomorrow I will try in a win10 system, but I think it will work there, correct? Thanks again Jose

Hi This piece of code creates and reads OK a key at "HKEY_LOCAL_MACHINE" and can be changed for a key at "HKEY_CURRENT_USER" $sta= RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor", "wav", "REG_SZ", "5555") MsgBox(4096,"wrote", $sta &@cr& @error) $zz= RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor", "wav") MsgBox(4096,"readed","="&$zz &@cr& @error) Exit With HKEY_CURRENT_USER, in RegEdit we can see the created key, and we can create the key by hand/RegEdit and everything Works OK. At HKEY_LOCAL_MACHINE we can´t see the created key above thru RegEdit, but it Works (even not seeing, I can read). But if I create "by hand"/RegEdit the key, it can´t read it with $zz= RegRead ("HKEY_LOCAL_MACHINE.... above. I´m the PC´s WIN.7 administrator. Even so I ran RegEdit as administrator and also the compiled AU3 and also plain. No changes. edit: even if Try "HKEY_LOCAL_MACHINE\SOFTWARE\AAA", "wav", the same holds true. $sta= RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\AAA", "wav", "REG_SZ", "4444") MsgBox(4096,"wrote", $sta &@cr& @error) $zz= RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\AAA", "wav") MsgBox(4096,"readed","="&$zz &@cr& @error) Exit Seems that it creates this key at another place.... I can read the above value ("4444"), even after a boot, even the key not showing in regedit. And if I create it by hand key AAA/wav with a distinct value (666), t, it continues Reading the old value = 444. Thanks Jose

And how I eliminated eval() so I didnt have to use a long case or edit Koda output each change if I use na array? ;### we must assure that fields are in desired order at Koda... ;### group1 -> 11 radio buttons $tlNivMan_1 = GUICtrlCreateRadio("+25", 88, 35, 57, 17) $tlNivMan_2 = GUICtrlCreateRadio("+20", 88, 63, 49, 17) ... $tlNivMan_11 = GUICtrlCreateRadio("+20", 88, 63, 49, 17) ;### group2 -> 9 radio buttons $tlDenMan_1 = GUICtrlCreateRadio("até 1.125", 168, 35, 117, 17) ... $tlDenMan_9 = GUICtrlCreateRadio("1.125 a 1.150", 168, 67, 117, 17) ;### as fields are created sequentialy we can use 1st field ID value and increment for next fields of each group For $K=1 to 11 $idCtrl= $tlNivMan_1 + ($K-1) ;group1: 1st field ID value is incremented sequentially for the next 11 fields If GUICtrlRead( $idCtrl ) = $GUI_CHECKED Then $nivel= 25 - ($K-1) * 5 EndIf If $K > 9 Then ContinueLoop ;as group 2 has only 9 fields, skip 10..11 $idCtrl= $tlDenMan_1 + ($K-1) ;group2: 1st field ID value is incremented sequentially for the next 9 fields If GUICtrlRead( $idCtrl ) = $GUI_CHECKED Then $densidade= 1.101 + (($K-1)* 0.025) EndIf Next

Please notice as it is part of a much longer program, I had to do some "changes" so I could compile/run it. It´s based on events. So, please click at button "Salvar" at the screen (Save) to see the msgbox displayin it´s results.

I think I got the compilation withou the warning arround the same piece of code. While not totaly functional, I think it fullfil your needs. #AutoIt3Wrapper_Run_Au3Stripper=y #Au3Stripper_Parameters=/so /rm #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ComboConstants.au3> #include <ListviewConstants.au3> #include <GUIListView.au3> #include <EditConstants.au3> #include <Array.au3> #include <Date.au3> #include <ScreenCapture.au3> #include <SLG.au3> #include <File.au3> #include <FileConstants.au3> #include <SliderConstants.au3> #include <CommMG.au3> #include <TrayConstants.au3> Opt("GUIOnEventMode",1) ;modo de interação com usuário via Eventos e não guiGetMsg Func NivelDensidadeManual() ;este é um modelo de rotina ativada pelo Menu_manut, que tem botões que executam atividades quaisquer. ;diferente das rotinas feitas até agora (08/08/19) , foi feita uma simplificação. Aqui os eventos dos campos da tela e do "X", chama diretamente a rotina, atraves ; dos comandos GUISetOnEvent($GUI_EVENT_CLOSE, "NivelDensidadeManual") e GUICtrlSetOnEvent(-1, "NivelDensidadeManual") colocados na definição da tela abaixo Static $tl_NivDenMan=0, $tlNivMan_endEL=0, $tlNivMan_nomEL=0,$tlNivMan_btSalvar=0, $tlNivMan_motivo=0 Static $tlNivMan_1=0,$tlNivMan_2=0,$tlNivMan_3=0,$tlNivMan_4=0,$tlNivMan_5=0,$tlNivMan_6=0,$tlNivMan_7=0,$tlNivMan_8=0,$tlNivMan_9=0,$tlNivMan_10=0, $tlNivMan_11=0 Static $tlDenMan_1=0,$tlDenMan_2=0,$tlDenMan_3=0,$tlDenMan_4=0,$tlDenMan_5=0,$tlDenMan_6=0,$tlDenMan_7=0,$tlDenMan_8=0,$tlDenMan_9=0 Static $endELNiv=1, $nomELNiv="", $EL_Nom=0 local $msgCTRL=0, $msgTela If $tl_NivDenMan = 0 Then ;#### Momento1: criação da tela #Region ### START Koda GUI section ### Form=C:\SMB\Central_PC\V6\testeDensidade.kxf $tl_NivDenMan = GUICreate("Nivel & Densidade Manuais", 304, 361, 595, 226) GUISetBkColor(0xFFFFFF) GUISetOnEvent($GUI_EVENT_CLOSE, "NivelDensidadeManual") $Group1 = GUICtrlCreateGroup("NÍVEL", 80, 12, 73, 341) $tlNivMan_1 = GUICtrlCreateRadio("+25", 88, 35, 57, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_2 = GUICtrlCreateRadio("+20", 88, 63, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_3 = GUICtrlCreateRadio("+15", 87, 91, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_4 = GUICtrlCreateRadio("+10", 87, 119, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_5 = GUICtrlCreateRadio("+5", 86, 149, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_6 = GUICtrlCreateRadio("nivel", 86, 177, 65, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetFont(-1, 14, 800, 0, "Arial") $tlNivMan_7 = GUICtrlCreateRadio("-5", 87, 208, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_8 = GUICtrlCreateRadio("-10", 87, 236, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_9 = GUICtrlCreateRadio("-15", 86, 264, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_10 = GUICtrlCreateRadio("-20", 86, 292, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $tlNivMan_11 = GUICtrlCreateRadio("-25", 85, 322, 49, 17) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $tlNivMan_endEL = GUICtrlCreateInput("", 8, 36, 41, 28) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "NivelDensidadeManual") $Label1 = GUICtrlCreateLabel("endEL", 4, 12, 51, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "endereço EL medido") $tlNivMan_nomEL = GUICtrlCreateInput("", 9, 108, 41, 28) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("nomEL", 5, 84, 55, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $tlNivMan_btSalvar = GUICtrlCreateButton("SALVAR", 8, 300, 63, 53) GUICtrlSetOnEvent(-1, "NivelDensidadeManual") $Group3 = GUICtrlCreateGroup("DENSIDADE", 160, 12, 137, 341) $tlDenMan_1 = GUICtrlCreateRadio("até 1.125", 168, 35, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_2 = GUICtrlCreateRadio("1.125 a 1.150", 168, 67, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_4 = GUICtrlCreateRadio("1.175 a 1.200", 168, 140, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_3 = GUICtrlCreateRadio("1.150 a 1.175", 168, 104, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_5 = GUICtrlCreateRadio("1.200 a 1.225", 168, 175, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_8 = GUICtrlCreateRadio("1.275 a 1.300", 168, 288, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_6 = GUICtrlCreateRadio("1.225 a 1.250", 168, 215, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_7 = GUICtrlCreateRadio("1.250 a 1.275", 168, 256, 117, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") $tlDenMan_9 = GUICtrlCreateRadio("1.300 e acima", 168, 323, 121, 17) GUICtrlSetFont(-1, 12, 800, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $tlNivMan_motivo = GUICtrlCreateCombo("rotina", 4, 180, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "+solução|+agua|carga|descarga") GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("motivo", 4, 156, 50, 24) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "motivo para a medida manual") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Else $msgCTRL= @GUI_CtrlId $msgTela= @GUI_WinHandle EndIf ;###Momento2: usuario clicou num dos botões da tela ; GUICtrlSetData( $tlNivMan_endEL, $endELNiv) ;mantem o ultimo endEL digitado ; $nomELNiv= $Els[$endELNiv][$EL_Nom] ; GUICtrlSetData($tlNivMan_nomEL, $nomELNiv) GUICtrlSetState($tlNivMan_endEL, $GUI_FOCUS) Switch $msgCTRL ;caso rotina tenha sido chamada por click em um de seus botões... Case 0 Case $GUI_EVENT_CLOSE If $msgTela = $tl_NivDenMan Then ;se clicou no "X" desta própria tela, ela deixa de ser vista, porém nao é apagada. GUIDelete($tl_NivDenMan) ;tela é apagada e todos os parametros forçam a criar nova tela se chamar novamente $tl_NivDenMan= 0 ;indica que a tela deve ser criada novamente se clicar no botao $msgCTRL= 0 $msgTela= 0 Return EndIf Case $tlNivMan_btSalvar $endELNiv= GUICtrlRead($tlNivMan_endEL) GUICtrlSetState( $tlNivMan_endEL, $GUI_FOCUS) $nivel=0 $densidade=0 For $K=1 to 11 MsgBox(4096,$K, GUICtrlRead( eval ( "tlNivMan_" & $K) ) &@cr& eval ( "tlNivMan_" & $K) &@cr& "tlNivMan_" & $K ) If GUICtrlRead( eval ( "tlNivMan_" & $K) ) = $GUI_CHECKED Then $nivel= 25 - ($K-1) * 5 EndIf Next For $K=1 to 9 If GUICtrlRead( eval ( "tlDenMan_" & $K) ) = $GUI_CHECKED Then $densidade= 1.101 + (($K-1)* 0.025) EndIf Next $motivo= GUICtrlRead( $tlNivMan_motivo ) TrayTip("Nivel/Densidade EL " &$endELNiv & " salvos" ,"nivel=" & $nivel &@cr& "densidade=" & $densidade &@cr& "motivo=" & $motivo,2) ; FileWriteline($arqLog,"NDM;" & @HOUR &":"& @MIN &":"& @SEC &";"& $endELNiv &";"& $motivo &";"& $nivel &";"& $densidade) $endELNiv +=1 ; $nomELNiv= $Els[$endELNiv][$EL_Nom] GUICtrlSetData($tlNivMan_nomEL, $nomELNiv) GUICtrlSetData($tlNivMan_endEL, $endELNiv) GUICtrlSetState( $tlNivMan_endEL, $GUI_FOCUS) ; GUICtrlSetState($tlNivMan_6, $GUI_CHECKED) Case $tlNivMan_endEL $endELNiv= GUICtrlRead($tlNivMan_endEL) ; $nomELNiv= $Els[$endELNiv][$EL_Nom] GUICtrlSetData($tlNivMan_nomEL, $nomELNiv) GUICtrlSetData($tlNivMan_endEL, $endELNiv) Case Else ;aqui alternativamente pode ser implementado o momento3 (chamada por Func ExecFuncoesAdicionais()) EndSwitch EndFunc NivelDensidadeManual() while 1 sleep(200) WEnd >"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /ShowGui /prod /in "C:\SMB\Central_PC\V6\lixo.au3" +>15:07:28 Starting AutoIt3Wrapper v.19.102.1901.0 SciTE v.4.1.2.0 Keyboard:00000416 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64 Environment(Language:0416) CodePage:0 utf8.auto.check:0 +> SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE UserDir => C:\Users\José\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\José\AppData\Local\AutoIt v3\SciTE -> No changes made.. >Running AU3Check (3.3.14.5) from:C:\Program Files (x86)\AutoIt3 input:C:\SMB\Central_PC\V6\lixo.au3 +>15:07:31 AU3Check ended.rc:0 >Running Au3Stripper (19.102.1901.0) from:C:\Program Files (x86)\AutoIt3\SciTE\Au3Stripper cmdline: - 3.61 Iteration 1 Strip and Rename Functions result: Output 4232 lines and stripped 16096 lines - 6.80 Iteration 2 Strip Variables result: Output 680 lines and stripped 3552 lines - 6.92 Iteration 3 Strip Variables result: Output 557 lines and stripped 123 lines - 7.03 Iteration 4 Strip Variables result: Output 548 lines and stripped 9 lines - 7.14 Iteration 5 Strip and Rename Variables result: Output 548 lines and stripped 0 lines +> Source 35315 lines 1629211 Characters. +> Stripped 19780 Func/Var lines and 14615 comment lines, Total 1611265 Characters. +> Saved 97% lines 98% Characters. +> Au3Stripper v19.102.1901.0 finished created:C:\SMB\Central_PC\V6\lixo_stripped.au3 +>15:07:38 Au3Stripper ended.rc:0 >Running AU3Check (3.3.14.5) from:C:\Program Files (x86)\AutoIt3 input:C:\SMB\Central_PC\V6\lixo_stripped.au3 +>15:07:38 AU3Check ended.rc:0 >Running:(3.3.14.5):C:\Program Files (x86)\AutoIt3\aut2exe\aut2exe.exe /in "C:\SMB\Central_PC\V6\lixo_stripped.au3" /out "C:\Users\José\AppData\Local\AutoIt v3\Aut2exe\~AU558.tmp.exe" /nopack /comp 2 +>15:07:39 Aut2exe.exe ended.C:\Users\José\AppData\Local\AutoIt v3\Aut2exe\~AU558.tmp.exe. rc:0 +>15:07:39 Created program:C:\SMB\Central_PC\V6\lixo.exe +>15:07:39 AutoIt3Wrapper Finished. >Exit code: 0 Time: 11.88

It´s ok to share. The problem is that to work/compile as this is a 4 year Project, and is not so organized as supposed, I have parts scatered in many places. So, I will try to mount a stripped down version code with the problem so i can send you. But it will be a little later, ok. I´m in office just now.

oops, mistake: just ruiing the samll test, it Works... >Running Au3Stripper (19.102.1901.0) from:C:\Program Files (x86)\AutoIt3\SciTE\Au3Stripper cmdline: - 0.03 Iteration 1 Strip and Rename Functions result: Output 7 lines and stripped 0 lines -### StripOnly/StripFunc Error: Found eval() statement using unsolvable variable, which will/could lead to removal of Global Const definition for this variable. >### current Func: @@ C:\Users\JOS~1\AppData\Local\Temp\OBsED45.tmp(3,1): Warning for line:MsgBox(4096,$K, GUICtrlRead( eval("tlNivMan_" & $K) ) &@cr& eval("tlNivMan_" & $K) &@cr& "tlNivMan_" & $K ) -### StripOnly/StripFunc Error: Found eval() statement using unsolvable variable, which will/could lead to removal of Global Const definition for this variable. >### current Func: @@ C:\Users\JOS~1\AppData\Local\Temp\OBsED45.tmp(3,1): Warning for line:MsgBox(4096,$K, GUICtrlRead( eval("tlNivMan_" & $K) ) &@cr& eval("tlNivMan_" & $K) &@cr& "tlNivMan_" & $K ) -### StripOnly/StripFunc Error: Found eval() statement using unsolvable variable, which will/could lead to removal of Global Const definition for this variable. >### current Func: @@ C:\Users\JOS~1\AppData\Local\Temp\OBsED45.tmp(4,1): Warning for line:If GUICtrlRead( eval( "tlNivMan_" & $K) ) = $GUI_CHECKED Then -============================================================================================================= -#### Au3Stripper Found 3 Error(s)!!!! This means your script could have problems running properly. #### -============================================================================================================= - 0.03 Iteration 2 Strip Variables result: Output 7 lines and stripped 0 lines - 0.05 Iteration 3 Strip and Rename Variables result: Output 7 lines and stripped 0 lines

I´m not sure about if my instaled version is the last one. I will ckeck, upgrade if needed and make this test. At my current production version it´s not warning about eval. So, probably is not the latest one.

This is all with this latest version of the SciTE4AutoIt3 installer. Thanks Jos, as expected now... I will upgrade it.

Of course, I could implent a CASE, as they are about "just" 11+9= 19 loops. Or arrays. On that case, as koda does not create fields into array, I would have to edit later the generated code, and that makes upgrades to screens a non automatic thing.... My question is if there is not a clever way? Regards Jose

Thanks Jos I just compiled the program. The .AU3 with GO is ok. But the .exe don´t (as expected). This is a piece of the program that after stripper don´t work (as expected) For $K=1 to 11 MsgBox(4096,$K, GUICtrlRead( eval ( "tlNivMan_" & $K) ) &@cr& eval ( "tlNivMan_" & $K) &@cr& "tlNivMan_" & $K ) ;*** to show the problem If GUICtrlRead( eval( "tlNivMan_" & $K) ) = $GUI_CHECKED Then $nivel= 25 - ($K-1) * 5 EndIf Next Follows the compilation messages, where I coudn´t find the error... I´m surprised... >"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /ShowGui /prod /in "C:\SMB\Central_PC\V6\Central_V6_6_E.au3" +>09:49:20 Starting AutoIt3Wrapper v.19.102.1901.0 SciTE v.4.1.2.0 Keyboard:00000416 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64 Environment(Language:0416) CodePage:0 utf8.auto.check:0 +> SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE UserDir => C:\Users\José\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\Jose\AppData\Local\AutoIt v3\SciTE -> No changes made.. >Running AU3Check (3.3.14.5) from:C:\Program Files (x86)\AutoIt3 input:C:\SMB\Central_PC\V6\Central_V6_6_E.au3 +>09:49:25 AU3Check ended.rc:0 >Running Au3Stripper (19.102.1901.0) from:C:\Program Files (x86)\AutoIt3\SciTE\Au3Stripper cmdline: - 4.34 Iteration 1 Strip and Rename Functions result: Output 10512 lines and stripped 15851 lines - 10.70 Iteration 2 Strip Variables result: Output 6907 lines and stripped 3605 lines - 12.30 Iteration 3 Strip Variables result: Output 6786 lines and stripped 121 lines - 13.78 Iteration 4 Strip Variables result: Output 6781 lines and stripped 5 lines - 15.41 Iteration 5 Strip and Rename Variables result: Output 6781 lines and stripped 0 lines +> Source 43813 lines 2118346 Characters. +> Stripped 19582 Func/Var lines and 16897 comment lines, Total 1914390 Characters. +> Saved 83% lines 90% Characters. +> Au3Stripper v19.102.1901.0 finished created:C:\SMB\Central_PC\V6\Central_V6_6_E_stripped.au3 +>09:49:41 Au3Stripper ended.rc:0 >Running AU3Check (3.3.14.5) from:C:\Program Files (x86)\AutoIt3 input:C:\SMB\Central_PC\V6\Central_V6_6_E_stripped.au3 +>09:49:41 AU3Check ended.rc:0 >Running:(3.3.14.5):C:\Program Files (x86)\AutoIt3\aut2exe\aut2exe.exe /in "C:\SMB\Central_PC\V6\Central_V6_6_E_stripped.au3" /out "C:\Users\José\AppData\Local\AutoIt v3\Aut2exe\~AUED31.tmp.exe" /nopack /icon "C:\SMB\Central_PC\V6\TIKUNA32.ico" /comp 2 +>09:49:42 Aut2exe.exe ended.C:\Users\José\AppData\Local\AutoIt v3\Aut2exe\~AUED31.tmp.exe. rc:0 +>09:49:42 Created program:C:\SMB\Central_PC\V6\Central_V6_6Teste.exe +>09:49:42 AutoIt3Wrapper Finished. >Exit code: 0 Time: 23.03

Hi cramaboule, this deletes the .exe? I hope so, as nobody wants to delete the .au3

Au3Stripper: changed variable names x eval(.....) change variable names is one of the functions of the stripper/obfuscator and it´s great! In a program, I use eval("variableName" & $K). WIthout compile, the program Works great. But after compiled with #Au3Stripper_Parameters=/so /rm, the program din´t work anymore. After some time looking for the problem I realize the it coudn´t, as the variable names changed ! The point is: I can´t deactivate this function, as it obfuscate the program up to a almost unreadable code.... on other hand, the smallest code would be to use eval.... Any suggestion?

Hi Many years ago (2009) I created an au3 service to handle html forms. In resume, the html form sent the data and there was an au3 service in windows that received that data and do something. I do not remember of any problem like the ones you mention above. Follow parts of the code so you can take a look...,. ( I do not remember many things, but I hope the code can help you), I just remember it was very easy, reliable (worked for many years, etc.) html: <B><font size=3>Observações Gerais</font></B> Coloque tudo que ache pertinente ! Será copiado em todos os blocos<BR> <TEXTAREA ROWS="4" COLS="80" NAME="----- OBSERVAÇÕES GERAIS"></TEXTAREA> <input TYPE=HIDDEN NAME="ckblk" VALUE="of"> <BR><BR> <input type="button" onClick="formSubmit()" value="Enviar"> <input TYPE="RESET" VALUE="Cancelar" NAME="Cancelar"> </P></FORM> </FONT></BODY> </HTML> au3 service Global $parametros, $posHexa, $caracConvertido, $valorHexa, $listaParams, $posIniBloco,$posFimbloco, $temp="", $paramsTratados Global $elimina_campos_vazios= False, $colocarColchetes= False Global $ListaArqsRT, $arqRT,$nomArqRT, $RT="", $tempoEntreLeituras=2000 Global $oMyRet[2], $oMyError, $emailTO="", $emailSUBJ="" $ListaArqsRT= "reqTrb-*.txt" $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ;**** PROGRAMA PRINCIPAL while True ;======= loop eterno =======> fica verificando se tem um arquivo de RT, se tiver, lê, trata e apaga-o $arqRT= FileFindFirstFile($ListaArqsRT) if $arqRT <> -1 Then ;existe 1 arquivo, trata-o $nomArqRT= FileFindNextFile($arqRT) ;pega nome do arquivo com a RT dada no form html $RT= FileReadLine($nomArqRT) ;lê o arquivo RT numa string só, pois tem 1 só linha c/ todos os parametros FileDelete($nomArqRT) ;apaga o arquivo de RT lido FileClose($arqRT) ;fecha stream de arquivos trataRT($RT) ;trata a string lida, gerando o email com os parametros passados na RT EnviaEmail($emailTO, $emailSUBJ,$paramsTratados) EndIf Sleep($tempoEntreLeituras) ;tempo entre as varridas, em milisegundos WEnd Exit Regards Jose

I didn´t test it yet, but seems to be great. I have some additional questions: I suppose for a real function to be running continuously we need to do a loop inside it, correct? With some sleep() to not consume all cpu. a function can call another one ? probably global variables, delared in main program and that compiles oki, can not be used in the functions. Do you have a clue on the performance of _Task_SetVar, get, array, arrayElement? I mean, probably is not a good idea to use them to Exchange lots of data or frequently changing data, or to use _Task_GetVar in a tight loop to check if there is any data to process, correct? Thanks Jose

Thanks a lot Lars, it is one of my goals, associated to these variables to be at a shared mem area. I just did a quick look at your Accessing AutoIt Variables, as I´m at job now. It seems very promising. I will go for it later, by sure! Maybe I can change the pointer of an array variant created on AU3 to the shared area or vice versa, I mean, create an area that mimics an array and make AU3 to think that´s a plain AU3 array? Who knows... I need to read more your post and the UDF... It´s a class in AU3 internals...