Jump to content

Daniel W.

Active Members
  • Posts

    427
  • Joined

  • Last visited

Everything posted by Daniel W.

  1. Hi, it is a function which may uses similar ways to encrypt, but which doesn't have the same output. Regards
  2. Hi, i wrote my own encrypt function. ;=============================================================================== ; ; Function Name: _Encrypt( $aString, $aPW ,$aMode = 1 ) ; Description:: Function to en- decrypt strings ; Parameter(s): $aString = String to encrypt ; $aPW = Password ; $aMode = 1 for encrypt, 0 for decrypt ; Requirement(s): None ; Return Value(s): en- decrypted string ; Author(s): Daniel Wahlmann ; ;=============================================================================== ; ;=============================================================================== ; ; Function Name: _EncryptFile( $aFile, $aPW ,$aMode = 1 ) ; Description:: Function to en- decrypt files ; Parameter(s): $aFile = file to encrypt/decrypt ; $aPW = Password ; $aMode = 1 for encrypt, 0 for decrypt ; Requirement(s): File.au3 ; Return Value(s): Success 1 ; Failure 0 ; Author(s): Daniel Wahlmann ; ;=============================================================================== ; Download Regards , Daniel W.
  3. Maybe my Installer is just what you search for: http://www.autoitscript.com/forum/index.ph...c=27237&hl=
  4. Hi, thanks to garfrost THis func is by Larry: CODEFunc CurrentCPU($init = 0) Global $liOldIdleTime = 0 Global $liOldSystemTime = 0 Local $SYS_BASIC_INFO = 0 Local $SYS_PERFORMANCE_INFO = 2 Local $SYS_TIME_INFO = 3 $SYSTEM_BASIC_INFORMATION = DllStructCreate("int;uint;uint;uint;uint;uint;uint;ptr;ptr;uint;byte;byte;short") $status = DllCall("ntdll.dll", "int", "NtQuerySystemInformation", "int", $SYS_BASIC_INFO, _ "ptr", DllStructGetPtr($SYSTEM_BASIC_INFORMATION), _ "int", DllStructGetSize($SYSTEM_BASIC_INFORMATION), _ "int", 0) If $status[0]Then Return -1 While 1 $SYSTEM_PERFORMANCE_INFORMATION = DllStructCreate("int64;int[76]") $SYSTEM_TIME_INFORMATION = DllStructCreate("int64;int64;int64;uint;int") $status = DllCall("ntdll.dll", "int", "NtQuerySystemInformation", "int", $SYS_TIME_INFO, _ "ptr", DllStructGetPtr($SYSTEM_TIME_INFORMATION), _ "int", DllStructGetSize($SYSTEM_TIME_INFORMATION), _ "int", 0) If $status[0]Then Return -2 $status = DllCall("ntdll.dll", "int", "NtQuerySystemInformation", "int", $SYS_PERFORMANCE_INFO, _ "ptr", DllStructGetPtr($SYSTEM_PERFORMANCE_INFORMATION), _ "int", DllStructGetSize($SYSTEM_PERFORMANCE_INFORMATION), _ "int", 0) If $status[0]Then Return -3 If $init = 1 Or $liOldIdleTime = 0 Then $liOldIdleTime = DllStructGetData($SYSTEM_PERFORMANCE_INFORMATION, 1) $liOldSystemTime = DllStructGetData($SYSTEM_TIME_INFORMATION, 2) Sleep(1000) If $init = 1 Then Return -99 Else $dbIdleTime = DllStructGetData($SYSTEM_PERFORMANCE_INFORMATION, 1) - $liOldIdleTime $dbSystemTime = DllStructGetData($SYSTEM_TIME_INFORMATION, 2) - $liOldSystemTime $liOldIdleTime = DllStructGetData($SYSTEM_PERFORMANCE_INFORMATION, 1) $liOldSystemTime = DllStructGetData($SYSTEM_TIME_INFORMATION, 2) $dbIdleTime = $dbIdleTime / $dbSystemTime $dbIdleTime = 100.0 - $dbIdleTime * 100.0 / DllStructGetData($SYSTEM_BASIC_INFORMATION, 11) + 0.5 Return $dbIdleTime EndIf $SYSTEM_PERFORMANCE_INFORMATION = 0 $SYSTEM_TIME_INFORMATION = 0 WEnd EndFunc ;==>CurrentCPU
  5. Hm when my AVS tells me that my autoit scripts will be deleted because anything i know why...
  6. One of both needs to start the host file. and then both connect with client file to his pc and they can chat
  7. ControlKlick, ControlSend etc. Look at these functions
  8. @Manadar : there it is
  9. @newb_powa' : Yes that is possible @Manadar : The flickering thing needs to be fixed. Later today i will add the if stringInStr to the BlockAtoZ function which should repare this and the _IsPrime function will be updated then too
  10. Updated
  11. I will rewrite something soon but no time at the moment so you'll have to wait
  12. I always code with 2 Scripts Normal script: Guis etc Header.au3: All includes and functions that i wrote myself for that script I did the hiding way before but its to complicated and its not easy to find errors in this so is use the way with more guis
  13. Amazing looks very nice
  14. Forum Rules This is not a general support forum!
  15. Do something like this $Msg = GuiGetMsg() While $Msg <> $GUI_EVENT_CLOSE $Msg = GuiGetMsg() ;Etc
  16. This way is much easier: $Gui1 = GuiCreate("") $Btn = GuiCtrlCreateButton("X",10,10) $Gui2 = GuiCreate("") $Btn2 = Guictrlcreatebutton("Y",10,10) GuiSetState( @SW_SHOW, $Gui1) Do $msg = GUIGetMsg() If $Msg = $Btn Then GuiSetstate( @SW_SHOW, $Gui2 ) GuiSetstate( @SW_HIDE, $Gui1 ) ElseIf $Msg = $Btn2 Then GuiSetstate( @SW_SHOW, $Gui1 ) GuiSetstate( @SW_HIDE, $Gui2 ) EndIf Until $msg = -3
  17. Look at the Calculator in my Signatur
  18. GuiCreate("") $Button = GUictrlcreatebutton("X", 10 , 10) $X = GuictrlcreateButton("Y", 30, 10) Guisetstate() Do $msg = GuiGetMsg() If $msg = $Button Then Guictrldelete( $X ) Endif Until $msg = -3
  19. You just wrote "Case $GUI_EVENT_CLOSE" Replace it with "Case $msg = $GUI_EVENT_CLOSE"
  20. You should get more support if you post this in Support Forum
  21. Haha nice ^^
×
×
  • Create New...