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.