Jump to content

bcording

Active Members
  • Posts

    124
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

bcording's Achievements

Adventurer

Adventurer (3/7)

0

Reputation

  1. You guys are missing the mark...or maybe I didn't explain fully explain what I wanted. I am looking for a way to ensure that when a rather lengthy script is run that the computer does not go into standby. I am not looking to edit the power profiles. Power profiles can easily be modified through the use of powercfg.exe. So something that would keep the screen saver from going active (not necessarily) and standby.
  2. Anyone have an elegent solution to keep a computer from going into standby using autoit?
  3. Back in November I found out it was breaking due to nulls and fixed it. http://www.autoitscript.com/forum/index.ph...wtopic=6039&hl=
  4. What is the aproxmiate timeline for the release of 3.0.103? I can't wait to start using the dllCall, but I can't release any beta scripts here at my work.
  5. A little dated, but along the same lines, is Gencontrol. It takes TightVNC and makes it act like DameWare Remote Control. Gencontrol Homepage
  6. I like both optiona 1 and 2, but also think that the @NUll macro should be added no matter the outcome.
  7. That quickly removed my multiple monitor advantage...but still pretty damn fun.
  8. The more the better...max functionality!
  9. I second the idea of a NULL variable or macro. It will be needed for the future if a binary file read/write method is implimented.
  10. A while back I posted an RC4 function, but it wasn't 100%. This was due to AutoIt not supporting NULs. Some additional work resulted in this itteration. To get around the NUL issue the function returns a HEX string rather than a character string. By the way this makes it easy to read/write encrypted text to/from the registry as REG_BINARY. Test Code: $pw = "~#[.ab!@MNmn6UVuv2-<EFef`$KLkl7&\XwABW{,CDcdx1+>}/GHgh9%]IJij8^|YZyz0=?*:OPop 5(""QRqr4);STst3_'" $text = "AutoIt has been designed to work on Windows 95, 98, ME, NT 4, 2000, XP and 2003." $Encrypted = RC4($text, $pw, 0) MsgBox(0,"Encrypted Text",$Encrypted) $Decrypted = RC4($Encrypted, $pw, 1) MsgBox(0,"Decrypted Text",$Decrypted) MsgBox(0,"Original = Decrypted",$text = $Decrypted) RC4 Function Func RC4($Data, $Phrase, $Decrypt) Local $a, $b, $i, $j, $k, $cipherby, $cipher Local $tempSwap, $temp, $PLen Local $sbox[256], $key[256] $PLen = StringLen($Phrase) For $a = 0 To 255 $key[$a] = Asc(StringMid($Phrase, Mod($a, $PLen) + 1, 1)) $sbox[$a] = $a Next $b = 0 For $a = 0 To 255 $b = Mod( ($b + $sbox[$a] + $key[$a]), 256) $tempSwap = $sbox[$a] $sbox[$a] = $sbox[$b] $sbox[$b] = $tempSwap Next If $Decrypt Then For $a = 1 To StringLen($Data) Step 2 $i = Mod(($i + 1), 256) $j = Mod(($j + $sbox[$i]), 256) $k = $sbox[Mod(($sbox[$i] + $sbox[$j]), 256)] $cipherby = BitXOR(Dec(StringMid($Data, $a, 2)), $k) $cipher = $cipher & Chr($cipherby) Next Else For $a = 1 To StringLen($Data) $i = Mod(($i + 1), 256) $j = Mod(($j + $sbox[$i]), 256) $k = $sbox[Mod(($sbox[$i] + $sbox[$j]), 256)] $cipherby = BitXOR(Asc(StringMid($Data, $a, 1)), $k) $cipher = $cipher & Hex($cipherby, 2) Next EndIf Return $cipher EndFunc ;==>RC4
  11. Move over sliced bread...
  12. I wrote this function to find out if an XP computer has a battery. Figuring if it has a battery it must be a laptop. I expect someone will clean it up, but here it is in it's raw form. Func HasBattery() Dim $Rootkey = "HKLM\SYSTEM\CurrentControlSet\Enum\ACPI" Dim $Key, $SubKey, $i, $i2 For $i = 1 To 2000 $Key = RegEnumKey($RootKey, $i) If $Key = "" Then ExitLoop For $i2 = 1 To 2000 $SubKey = RegEnumKey($RootKey & "\" & $Key, $i2) If $SubKey = "" Then ExitLoop $Class = RegRead($RootKey & "\" & $Key & "\" & $SubKey, "Class") If $Class = "Battery" Then Return 1 Next Next Return 0 EndFunc
  13. I thought this was posted already Get Ini Sections And Section Entries
  14. @JdeB - Instead of an additional INI file to hold the settings, why not just add comments to the top of the script. ;Icon=C:\MyIcons\Icon01.ico ;AllowDecomp=0 ;Comment=Here is my new comment ;Version=1.0 ;etc
  15. Left hand bottom corner is her nose. The cool looking alien eye is her eye.
×
×
  • Create New...