MariusN

I just want to find out "IF" its possible to build in some sort of code INSIDE of our "au3's" to protect against "myaut2exe"... For example, if a guy tries to decompile my script (after it is in exe-format)...Something that can actually give the cracker a BSOD if he/she tries to decompile my exe ...or best still...wipes all HIS data PS: i know about CAMO and all that stuff...but i need my OWN sorta protection ;-)

#RequireAdmin #include <GUIConstantsEx.au3> Local $Handle, $Handle1, $Handle2, $return, $struct, $Struct1, $Struct2, $x, $y, $button1, $MSG GUICreate("multithread", 410, 360) $button1 = GUICtrlCreateButton("Start Me Up!", 15, 90, 90, 20) GUISetState() While 1 $MSG = GUIGetMsg() Select Case $MSG = $GUI_EVENT_CLOSE ExitLoop Case $MSG = $button1 $Handle1 = DllCallbackRegister("ThreadTest1", "int", "ptr") ;<---calls Func ThreadTest1($x) $Handle2 = DllCallbackRegister("ThreadTest2", "int", "ptr") ;<---calls Func ThreadTest2($x) $Struct1 = DllStructCreate("Char[200];int") DllStructSetData($Struct1, 1, 10) CreateThread($Handle1, $Struct1) ;This creates thread #1 $Struct2 = DllStructCreate("Char[200];int") DllStructSetData($Struct2, 1, 10) CreateThread($Handle2, $Struct2) ;This creates thread #2 thirdthread() ; <---ENTER the LAST Command/Function here... EndSelect WEnd Func thirdthread() MsgBox(0x40, "Thread 3", "Added Thread #3") EndFunc ;==>FirstFunc Func CreateThread($Handle, $struct) $return = DllCall("kernel32.dll", "hwnd", "CreateThread", "ptr", 0, "dword", 0, "long", DllCallbackGetPtr($Handle), "ptr", DllStructGetPtr($struct), "long", 0, "int*", 0) Return $return[0] EndFunc ;==>CreateThread Func ThreadTest1($x) $y = DllStructCreate("char[255];int", $x) MsgBox(0x40, "Thread 1", "Added Thread #1") EndFunc ;==>ThreadTest1 Func ThreadTest2($x) $y = DllStructCreate("char[255];int", $x) MsgBox(0x40, "Thread 2", "Added Thread #2") EndFunc ;==>ThreadTest2 Found this on some site a while ago...seems quite handy. Maybe you guys can put it to good use

...still LOVE AutoIt though...In my line of work (IT, but a "non-programmer"), this is a 100% proggy for me

...I eventually came right....faulty (was i too sleepy?) problem...things are a-ok now...Admin, you may delete this post as it's solved ...tia

Holy macaroni guys...with all THESE codes...we build ourselfes a new WINDOWS 9 here! LMAO PS: thx anyways for all your input :-)

$c_Progress = GUICtrlCreateProgress($pbLeft, $pbTop, $pbWidth, $pbHeigth, $PBM_SETMARQUEE) _SendMessage($c_Progress, $PBM_SETMARQUEE, True, 0) RunWait(@TempDir & "\sqlite3.exe C:\Documents and Settings\John\Application Data\Mozilla\Firefox\Profiles\cr08o9f8.default\addons.sqlite VACUUM") _SendMessage($c_Progress, $PBM_SETMARQUEE, False, 0) Hope someone can help me here? I am familiar with Progress bars, but quite a while ago some member showed me how to use "_SendMessage" to show the client that the "RunWait" is still in progress. As soon as the "RunWait" is completed, the "Marquee" will stop...no problem...but there is something i need on top of that. The Marquee stops in the "middle" when finished, and stays there...I have tried the "GUICtrlSetData" command/funtion to clear the Marquee, but to no avail. My accomplishment is this ---> I want the "Marquee" to "decrease/shrink away" when it reaches the end after ---> _SendMessage($c_Progress, $PBM_SETMARQUEE, False, 0) Any "tips" guys? PS: do I still need the #include <SendMessage.au3> as i have noticed "__SendMessage" still works even if there is no #include <SendMessage.au3>

...good one...thx Melba

Ok thx guys...i came to the conclusion the one i used IS the shortest way, lol Thx for all the replies and help though

Hi guys...Is there a shorter way of coding the following code ---> If $read1 = 4 And $read2 = 4 And $read3 = 4 And $read4 = 4 And $read5 = 4 And $read6 = 4 Then ...tia

Tell me Jos...Is this normal, or was it something to do with my way of "coding"?

Geez...I had to do this....thx for the 1-3-5 tip though For $i = 1 To 20 step 1 $reg2 = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\", $i) If @error <> 0 Then ExitLoop $del = RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\"& $reg2) $i = $i - 1 Next

100% correct Jos....

...not that i can see though...i have trie comma's, @error = -1....@error = 1...etc UNLESS...something in windows itself is preventing me...I have even checked the "ownership"...and everything seems ok...

Hi folks. I have a "very" small script that apparently doesnt want to delete ALL ( only 4 sub-keys ) even though i have a "for 1 to 20" in my script-line...any ideas? #RequireAdmin Local $I, $reg2, $del For $I = 1 To 20 $reg2 = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\", $I) MsgBox(0,"",@error) $del = RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & $reg2) Next You will notice the "@error" that i placed to try and help me out...i get two "0"...then a "-1"...then "1" as an error. Funny thing is though...If i run this script about 3x, it delete everything i want it to... Here is my REAL code: #RequireAdmin Local $I, $reg2, $del For $I = 1 To 20 $reg2 = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\", $I) If @error <> 0 Then ExitLoop $del = RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" & $reg2) Next