Jump to content

DarkShadow6 Productions

DarkShadow6

By DarkShadow6
in AutoIt Example Scripts

 Share

Recommended Posts

DarkShadow6 Seeker

DarkShadow6

Posted
Posted (edited)

When the scripts are 100% done, I will post the sauce.

Here's my scripts:

DarkPlay: Cool music player!

#cs ====================
Part of the DarkTools package.
DarkPlay, an AutoIt audio playing utility.
AutoIt version: 3.3.0.0
File version:   1.2.0.2
Language:       English
Author:         DarkShadow6
#CE ====================


#NoTrayIcon
#include <GUIConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>


Global $file, $sound, $Loop = False, $Video = False
$Main = GUICreate("DarkPlay", 300, 102.5)
$FileMenuItem = GUICtrlCreateMenu("&File")
GUICtrlSetTip($FileMenuItem, "Show the file drop down menu")
$OpenSubMenuItem = GUICtrlCreateMenuItem("&Open...", $FileMenuItem)
GUICtrlSetTip($OpenSubMenuItem, "Open a sound document")
$CloseSubMenuItem = GUICtrlCreateMenuItem("&Close", $FileMenuItem)
GUICtrlSetTip($CloseSubMenuItem, "Close the opened document")
$ExitSubMenuItem = GUICtrlCreateMenuItem("&Exit", $FileMenuItem)
GUICtrlSetTip($ExitSubMenuItem, "Close DarkPlay")
$OptionsMenuItem = GUICtrlCreateMenu("&Options")
GUICtrlSetTip($OptionsMenuItem, "Show the options drop down menu")
$LoopSubMenuItem = GUICtrlCreateMenuItem("&Loop", $OptionsMenuItem, "", 2)
GUICtrlSetTip($LoopSubMenuItem, "Toggle looping playback")
$HelpMenuItem = GUICtrlCreateMenu("&Help")
GUICtrlSetTip($HelpMenuItem, "Show the help drop down menu")
$AboutSubMenuItem = GUICtrlCreateMenuItem("&About", $HelpMenuItem)
GUICtrlSetTip($HelpMenuItem, "Show the about dialog")
$Pos = GUICtrlCreateSlider(0, 0, 300, 35, $TBS_ENABLESELRANGE + $TBS_BOTH + $TBS_AUTOTICKS)
GUICtrlSetLimit($Pos, 0, 0)
GUICtrlSetData($Pos, 0)
GUICtrlSetState($Pos, $GUI_DISABLE)
GUICtrlSetTip($Pos, "Sound position slider")
$Min = GUICtrlCreateLabel("00:00:00", 10, 40, 45, 17)
GUICtrlSetTip($Min, "Current sound position")
$Max = GUICtrlCreateLabel("00:00:00", 249, 40, 45, 17)
GUICtrlSetTip($Max, "Total sound time")
$Play = GUICtrlCreateButton("Play >", 0, 55, 50, 25)
GUICtrlSetState($Play, $GUI_DISABLE)
GUICtrlSetTip($Play, "Play the opened song")
$Pause = GUICtrlCreateButton("Pause | |", 55, 55, 50, 25)
GUICtrlSetState($Pause, $GUI_DISABLE)
GUICtrlSetTip($Pause, "Pause the playing song")
$Stop = GUICtrlCreateButton("Stop []", 110, 55, 50, 25)
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetTip($Stop, "Stop the playing song")
GUICtrlSetTip($HelpMenuItem, "Show the about dialog")
$Vol = GUICtrlCreateSlider(160, 53, 70, 30, $TBS_ENABLESELRANGE + $TBS_BOTH + $TBS_NOTICKS)
GUICtrlSetLimit($Vol, 100, 0)
GUICtrlSetData($Vol, 100)
GUICtrlSetState($Vol, $GUI_ENABLE)
GUICtrlSetTip($Vol, "Sound volume slider")
$VolVisual = GUICtrlCreateLabel("Volume:", 232.5, 60, 50, 17)
GUICtrlSetTip($VolVisual, "Sound volume percent")
$VolLabel = GUICtrlCreateLabel("100", 272.5, 60, 20, 17, $SS_CENTER)
GUICtrlSetTip($VolLabel, "Sound volume percent")
$OldVol = GUICtrlRead($Vol)
GUISetState(@SW_SHOW, $Main)


While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit 0
Case $OpenSubMenuItem
$file = FileOpenDialog("Open...", @MyDocumentsDir & "/", "Sound Files (*.mp3; *.wav; *.wma)|   MPEG Layer 3 Audio File (*.mp3)|   WAVE Audo File (*.wav)|   Windows Media Audio File (*.wma)|Video Files (*.wmv;)|   Windows Media Video File (*.wma)|All Supported Files (*.mp3; *.wav; *.wma; *.wmv;)|All Files (*.*)", 1 + 2, "Media File Name")
If @Error Then
MsgBox(16, "DarkPlay", "You didn't select a file or it does not exist.")
Else
_SoundStop($sound)
_SoundClose($sound)
$sound = _SoundOpen($file, "sound1")
If @Error or $sound == 0 Then
MsgBox(16, "DarkPlay", "The file isn't supported.")
Return
ElseIf Not StringRight($file, 4) == ".mp3" And Not StringRight($file, 4) == ".wav" And Not StringRight($file, 4) == ".wma" And Not StringRight($file, 4) == ".wmv" Then
MsgBox(16, "DarkPlay", "The file isn't supported.")
Return
Else
GUICtrlSetState($Pos, $GUI_DISABLE)
GUICtrlSetState($Play, $GUI_ENABLE)
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetState($Pause, $GUI_DISABLE)
GUICtrlSetData($Pos, 0)
GUICtrlSetLimit($Pos, _SoundLength($sound, 2) / 1000, 0)
GUICtrlSetData($Max, _SoundLength($sound, 1))
If _SoundLength($sound, 2) == "0" Then GUICtrlSetData($Max, "??:??:??")
EndIf
EndIf
Case $CloseSubMenuItem
_SoundStop($sound)
_SoundClose($sound)
GUICtrlSetState($Pos, $GUI_DISABLE)
GUICtrlSetState($Play, $GUI_DISABLE)
GUICtrlSetState($Pause, $GUI_DISABLE)
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetData($Max, "00:00:00")
GUICtrlSetLimit($Pos, 0, 0)
GUICtrlSetData($Pos, 0)
Case $ExitSubMenuItem
_SoundStop($sound)
Exit 0
Case $AboutSubMenuItem
MsgBox(0, "DarkPlay", "Welcome to DarkPlay, a simple multimedia playing program that uses a small GUI that lets you control the audio yourself. Everything here is easy to understand without any experience with computers. All you have to do is open a sound file, hit play and watch! Use the play button to play, pause to pause, stop to stop the song, etcetera. On the file menu use open to open a file and close to close the currently opened file.")
Case $Play
_SoundPlay($sound)
GUICtrlSetState($Pos, $GUI_ENABLE)
GUICtrlSetState($Play, $GUI_DISABLE)
GUICtrlSetState($Pause, $GUI_ENABLE)
GUICtrlSetState($Stop, $GUI_ENABLE)
Case $Pause
_SoundPause($sound)
GUICtrlSetState($Pos, $GUI_DISABLE)
GUICtrlSetState($Pause, $GUI_DISABLE)
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetState($Play, $GUI_ENABLE)
Case $Stop
_SoundStop($sound)
GUICtrlSetState($Pos, $GUI_DISABLE)
GUICtrlSetState($Pause, $GUI_DISABLE)
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetState($Play, $GUI_ENABLE)
GUICtrlSetData($Max, "00:00:00")
GUICtrlSetLimit($Pos, 0, 0)
GUICtrlSetData($Pos, 0)
Case $Pos
_SoundSeek($sound, 0, 0, GUICtrlRead($Pos))
_SoundPlay($sound)
Case $LoopSubMenuItem
If $Loop == True Then
$Loop = False
GUICtrlSetState($LoopSubMenuItem, $GUI_UNCHECKED)
Else
$Loop = True
GUICtrlSetState($LoopSubMenuItem, $GUI_CHECKED)
EndIf
EndSwitch
If _SoundPos($sound, 2) == _SoundLength($sound, 2) And _SoundLength($sound, 2) <> 0 Then
_SoundStop($sound)
If $Loop == True Then
GUICtrlSetData($Pos, 0)
_SoundStop($sound)
_SoundPlay($sound)
ElseIf $Loop == False Then
GUICtrlSetState($Pos, $GUI_DISABLE)
GUICtrlSetState($Pause, $GUI_DISABLE)
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetState($Play, $GUI_ENABLE)
GUICtrlSetData($Pos, 0)
Else
MsgBox(16, "DarkPlay", "The 'Loop' case switch has encountered an error.")
EndIf
EndIf
If GUICtrlRead($Min) <> _SoundPos($sound, 1) And _SoundPos($sound, 1) <> "0" Then
GUICtrlSetData($Min, _SoundPos($sound, 1))
GUICtrlSetData($Pos, _SoundPos($sound, 2) / 1000)
EndIf
If $OldVol <> GUICtrlRead($Vol) Then
SoundSetWaveVolume(GUICtrlRead($Vol))
GUICtrlSetData($VolLabel, GUICtrlRead($Vol))
$OldVol = GUICtrlRead($Vol)
EndIf
WEnd

Darkrypt: Encryption program. I have an icon for it, see it in the attatchments.

#cs ====================
Part of the DarkTools package.
Darkrypt a multi-level AutoIt encryption / decryption tool.
AutoIt version: 3.3.0.0
File version:   1.1.0.0
Language:       English
Author:         Wolvereness, edited by DarkShadow6
#CE ====================


#NoTrayIcon
#include <GUIConstants.au3>
#include <String.au3>
Opt('MustDeclareVars', 1)
Local $WindowMain, $EditText, $InputLevel, $InputPass, $UpDownLevel
Local $EncryptButton, $DecryptButton
Local $string, $helpString, $GUIHandler
Local $fileMenu, $exitItem, $helpMenu, $aboutItem, $helpItem
#forceref $UpDownLevel
$helpString = 'Enter text into this textbox to encrypt / decrypt it.' & Chr(13) & Chr(10) & 'Choose a password and the number of times to encrypt / decrypt the text.' & Chr(13) & Chr(10) & 'Click encrypt to begin the encrypting process.' & Chr(13) & Chr(10) & Chr(13) & Chr(10) & 'Note: It will take longer for larger strings and higher levels of encryption to' & Chr(13) & Chr(10) & 'convert. Be patient, and thank you for using this program.'
$WindowMain = GUICreate('Darkrypt Multi-Level Encryption Tool', 395, 425)
$EditText = GUICtrlCreateEdit('Enter your text that you would like to encrypt / decrypt in this text box.', 5, 5, 385, 350)
$InputPass = GUICtrlCreateInput('     ', 5, 360, 100, 20, 0x21)
$InputLevel = GUICtrlCreateInput(1, 110, 360, 50, 20, 0x2001)
$UpDownLevel = GUICtrlSetLimit(GUICtrlCreateUpdown($InputLevel), 10, 1)
$EncryptButton = GUICtrlCreateButton('Begin &Encryption', 170, 360, 107.5, 35)
$DecryptButton = GUICtrlCreateButton('Begin &Decryption', 285, 360, 107.5, 35)
GUICtrlCreateLabel('&Password', 32.5, 385)
GUICtrlCreateLabel('&Level', 120, 385)
$fileMenu = GUICtrlCreateMenu('&File')
$helpMenu = GUICtrlCreateMenu('&Help')
$exitItem = GUICtrlCreateMenuItem('&Exit', $fileMenu)
$aboutItem = GUICtrlCreateMenuItem('&About...', $helpmenu)
$helpItem = GUICtrlCreateMenuItem('How to &Use...', $helpmenu)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $EncryptButton
If GUICtrlRead($EditText) == '' Then
MsgBox(8208, 'Error', 'There is no text to encrypt.')
EndIf
If GUICtrlRead($InputPass) == '' Then
MsgBox(8208, 'Error', 'There is no password to encrypt the text with.')
EndIf
If GUICtrlRead($InputLevel) <= 0 Then
MsgBox(8208, 'Error', 'You are trying to encrypt text with a specified level of encryption under zero. One will be used.')
GUICtrlSetData($InputLevel, 1)
EndIf
If GUICtrlRead($InputLevel) >= 10 Then
MsgBox(8208, 'Error', 'You are trying to encrypt text with a level of encryption over ten. It may seem that the program is frozen when you continue. Please be patient, as the encrypting process may take a very long time.')
EndIf
GUISetState(@SW_DISABLE, $WindowMain)
$string = GUICtrlRead($EditText)
GUICtrlSetData($EditText, 'Please wait while the text is encrypted...')
Local $Encrypt = _StringEncrypt(1, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel))
If $Encrypt == "" then
GUICtrlSetData($EditText, $string)
MsgBox(8208, 'Error', 'An error has occured. Your text could not be encoded, and your original text will be restored.')
Else
GUICtrlSetData($EditText, $Encrypt)
EndIf
GUISetState(@SW_ENABLE, $WindowMain)
Case $DecryptButton
If GUICtrlRead($EditText) == '' Then
MsgBox(8208, 'Error', 'There is no text to decrypt.')
EndIf
If GUICtrlRead($InputPass) == '' Then
MsgBox(8208, 'Error', 'There is no password to decrypt the text with.')
EndIf
If GUICtrlRead($InputLevel) <= 0 Then
MsgBox(8208, 'Error', 'You are trying to decrypt text with a specified level of decryption under zero. One will be used.')
GUICtrlSetData($InputLevel, 1)
EndIf
If GUICtrlRead($InputLevel) >= 10 Then
MsgBox(8208, 'Error', 'You are trying to decrypt text with a level of decryption over ten. It may seem that the program is frozen when you continue. Please be patient, as the decrypting process may take a very long time.')
EndIf
GUISetState(@SW_DISABLE, $WindowMain)
$string = GUICtrlRead($EditText)
GUICtrlSetData($EditText, 'Please wait while the text is decrypted...')
Local $Decrypt = _StringEncrypt(0, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel))
If $Decrypt == "" then
GUICtrlSetData($EditText, $string)
MsgBox(8208, 'Error', 'An error has occured. Your text could not be decoded, and your original text will be restored.')
Else
GUICtrlSetData($EditText, $Decrypt)
EndIf
GUISetState(@SW_ENABLE, $WindowMain)
Case $exitItem
ExitLoop
Case $aboutItem
MsgBox(0, 'About', 'About this utility:' & Chr(13) & Chr(10) & 'Created by Wolvereness of the AutoIt fourms.' & Chr(13) & Chr(10) & 'Edited bu DarkShadow6 of the AutoIt fourms.' & Chr(13) & Chr(10) & 'Created in AutoIt (http://www.autoitscript.com/autoit/).' & Chr(13) & Chr(10) & 'See the how to use dialoge for information.' & Chr(13) & Chr(10) & Chr(13) & Chr(10) & 'Shortcuts:' & Chr(13) & Chr(10) & '"Alternate" + "F" + "E": Access the file menu and exit.' & Chr(13) & Chr(10) & '"Alternate" + "H" + "A": Access the help menu and see the about dialog.' & Chr(13) & Chr(10) & '"Alternate" + "A" + "U": Access the help menu and show the how to use dialog.')
Case $helpItem
MsgBox(0, 'How to Use', $helpString)
EndSwitch
WEnd

DarkCom: A command-prompt esque thingie...

#cs ====================
Part of the DarkTools package.
DarkCom, an AutoIt Command Prompt utility for performing tasks.
AutoIt version: 3.3.0.0
File version:   1.7.1.4
Language:       English
Author:         DarkShadow6
#CE ====================


#NoTrayIcon
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{ENTER}", "Enter")
Global $MainForm = GUICreate("DarkCom", 500, 500)
Global $StartText = "DarkCom command line function executer" & @CRLF & "Type 'help' to get started" & @CRLF & "Version 2.2" & @CRLF & "-> "
Global $InputSolid = ""
Global $Input = ""
Global $OutputControl = GuiCtrlCreateEdit($StartText, 0, 0, 500, 480, $ES_READONLY + $ES_NOHIDESEL + $WS_VSCROLL + $WS_OVERLAPPED)
Global $InputControl = GuiCtrlCreateEdit("", 0, 480, 500, 20)
GUISetState(@SW_SHOW)


While 1
If GUIGetMsg() = $GUI_EVENT_CLOSE Then
ExitLoop
EndIf
WEnd


Func Enter()
If WinActive($MainForm) Then
$InputSolid = GUICtrlRead($InputControl)
GuiCtrlSetData($InputControl, "")
$Input = StringSplit($InputSolid, "/")
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & $InputSolid & @CRLF) 
If $Input[1] == "quit" Then
Exit
ElseIf $Input[1] == "help" Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "You cannot use '/' except to separate commands." & @CRLF & _
"Possible commands are as follows:" & @CRLF & _
"- quit or exit: Quits the command line." & @CRLF & _
"- help: Shows this help message." & @CRLF & _
"- opacity/[window title]/[0 - 255]: Set the opacity (transparency) of a window." & @CRLF & _
"- speak/[sentance]: Commands your default TTY text reader to read [sentance]." & @CRLF & _
"- hide/[window title]: Hide the specified window. For saftey purposes you can't hide this window." & @CRLF & _
"- show/[window title]: Show the specified window." & @CRLF & _
"- title/[window title]/[new title]: Replace the window's title." & @CRLF & _
"- echo/[message]: Echo [message]." & @CRLF & _
"- kill process/[process] or -kill/[process]: Kill [process] by it's title name or it's file name." & @CRLF & _
"- list process or -list: List all running processes with file names and ID's." & @CRLF & _
"- find process/[process] or -find/[process]: Find [process] by it's file name and shows information." & @CRLF & _
"- au3script/[script]: Executes [script] in AutoIt 3. You must have it installed!" & @CRLF & _
"- clear: Clear this output box." & @CRLF & _
@CRLF & _
"Created by DarkShadow6. Copyright 2009 DarkShadow6. Illegal use of this program is prohibited." & @CRLF & _
"-> ")
ElseIf $Input[1] == "opacity" and UBound($Input) == 4 Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "The transparency value of '" & $Input[3] & "' is being added to the window named '"& $Input[2] & "'..." & @CRLF & _
"-> ")
WinSetTrans($Input[2], "", $Input[3])
ElseIf $Input[1] == "speak" and UBound($Input) == 3 Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Speaking '" & $Input[2] & "', please wait..." & @CRLF & _
"-> ")
$TempFile = @TempDir & '\SpeakFile.vbs'
FileWriteLine($TempFile, 'Dim Talk' & @CRLF & _
@CRLF & 'Set Talk = WScript.CreateObject("SAPI.SpVoice")' & @CRLF & _
@CRLF & 'Talk.Speak "' & $Input[2] & '"')
RunWait('Wscript.exe SpeakFile.vbs', @TempDir)
FileDelete($TempFile)
ElseIf $Input[1] == "hide" and UBound($Input) == 3 Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Hiding window '" & $Input[2] & "'..." & @CRLF & _
"-> ")
WinSetState($Input[2], "", @SW_HIDE)
ElseIf $Input[1] == "show" and UBound($Input) == 3 Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Showing window '" & $Input[2] & "'..." & @CRLF & _
"-> ")
WinSetState($Input[2], "", @SW_SHOW)
ElseIf $Input[1] == "title" and UBound($Input) == 4 Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Setting window title '" & $Input[2] & "' to '"& $Input[3] & "'..." & @CRLF & _
"-> ")
WinSetTitle($Input[2], "", $Input[3])
ElseIf $Input[1] == "echo" and UBound($Input) == 3 Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & $Input[2] & @CRLF & _
"-> ")
ElseIf $Input[1] == "kill process" Or $Input[1] == "kill" And UBound($Input) == 3 Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Killing process '" & $Input[2] & "'..." & @CRLF & _
"-> ")
If ProcessExists($Input[2]) Then
ProcessClose($Input[2])
EndIf
ElseIf $Input[1] == "list processes" Or $Input[1] == "list" Then
$List = ProcessList()
$ExpandedList = ""
For $i = 1 To $List[0][0] Step 1
If $List[$i][0] = "[System Process]" Then
$ExpandedList = $ExpandedList & "Total processes: " & $List[0][0] & @CRLF
Else
$ExpandedList = $ExpandedList & "Name: " & $List[$i][0] & ", ID: " & $List[$i][1] & @CRLF
EndIf
Next
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Running processes:" & @CRLF & _
$ExpandedList & _
"-> ")
ElseIf $Input[1] == "find process" Or $Input[1] == "find" Then
$List = ProcessList($Input[2])
$ExpandedList = "Total processes found: " & $List[0][0] & @CRLF
For $i = 1 To $List[0][0] Step 1
$ExpandedList = $ExpandedList & "Name: " & $List[$i][0] & ", ID: " & $List[$i][1] & @CRLF
Next
If $ExpandedList == "Total processes found: 0" Then
$ExpandedList = $ExpandedList & @CRLF & "No processes were found. Please rephrase your query and try again."
EndIf
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Running processes:" & @CRLF & _
$ExpandedList & _
"-> ")
ElseIf $Input[1] == "au3script" Then
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Compiling script, please wait..." & @CRLF & _
"-> ")
$TempFile = @TempDir & '\ScriptFile.au3'
FileOpen($TempFile, 1)
For $i = 1 To $Input Step 1
FileWriteLine($TempFile, $Input[$i])
Next
If Not FileExists("C:\Program Files\AutoIt\AutoIt3.exe") Then
Return
Else
ShellExecute("C:\Program Files\AutoIt\AutoIt3.exe", $TempFile)
EndIF
If Not FileExists("C:\Program Files\AutoIt3\AutoIt3.exe") Then
Return
Else
ShellExecute("C:\Program Files\AutoIt3\AutoIt3.exe", $TempFile)
EndIF
Sleep(10000)
FileClose($TempFile)
FileDelete($TempFile)
ElseIf $Input[1] == "clear" Then
GuiCtrlSetData($OutputControl, $StartText)
Else
GuiCtrlSetData($OutputControl, GUICtrlRead($OutputControl) & "Error: the command name entered does not exist or you didn't provide the required arguments for it." & @CRLF & _
"-> ")
EndIf
Else
HotKeySet("{ENTER}")
Send("{ENTER}")
HotKeySet("{ENTER}", "Enter")
EndIf
EndFunc

DarkLock: Screen locker. IMPOSSIBLE hard to break!

#cs ====================
Part of the DarkTools package.
DarkLock, an AutoIt screen locker utility for performing tasks.
AutoIt version: 3.3.0.0
File version:   1.2.1.0
Language:       English
Author:         DarkShadow6
#CE ====================


#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include "./Include/GUIBackground.au3"
#include "./Include/ScreenWidthAndHeightConstants.au3"
If FileExists("OptionsFile.ini") Then
$OptionsFile = FileOpen("OptionsFile.ini", 0)
$Password = FileReadLine($OptionsFile, 1)
$Color1 = FileReadLine($OptionsFile, 2)
$Color2 = FileReadLine($OptionsFile, 3)
$Password = _StringEncrypt(0, $Password, "DarkLock Password", 3)
FileClose($OptionsFile)
Else
$OptionsFile = FileOpen("OptionsFile.ini", 1)
FileWrite("OptionsFile.ini", @CRLF)
FileWrite("OptionsFile.ini", 0xFFFFFF & @CRLF)
FileWrite("OptionsFile.ini", 0x000000)
FileClose($OptionsFile)
$Password = ""
$Color1 = 0xFFFFFF
$Color2 = 0x000000
EndIf
Opt("GUIOnEventMode", 1)
Opt("GUICloseOnESC", 0)
Opt("TrayIconDebug", 0)
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
TraySetClick(16)
Global $LockSubTrayMenuItem = TrayCreateItem("Lock Workstation")
TrayItemSetOnEvent($LockSubTrayMenuItem, "Lock")
TrayCreateItem("")
Global $OptionsSubTrayMenuItem = TrayCreateItem("Options")
TrayItemSetOnEvent($OptionsSubTrayMenuItem, "ShowOptions")
TrayCreateItem("")
Global $ExitSubTrayMenuItem = TrayCreateItem("Exit")
TrayItemSetOnEvent($ExitSubTrayMenuItem, "Close")
TraySetState()
TraySetToolTip("DarkLock")
TraySetState()
HotKeySet("!^{BREAK}", "Lock")
$Overlay = GUICreate("DarkLock Overlay", 100, 100, -1, -1, $WS_POPUPWINDOW)
GUICtrlCreatePic("Background.bmp", 0, 0, $SWH_SCREENWIDTH, $SWH_SCREENHEIGHT, 0x06)
GUISetBkColor(0x000000 , $Overlay)
$Input = GUICtrlCreateInput("", 25, 50, 50, 30, $ES_PASSWORD)
GUICtrlSetOnEvent($Input, "CheckPassword")
GUICtrlSetBkColor($Input, $Color2)
GUICtrlSetColor($Input, $Color1)
GUICtrlSetFont($Input, 17, "", "", "Courier New")
$Text = GUICtrlCreateLabel("Desktop locked." & @CRLF & "Access is denied.", 0, 25, 100, 10, $SS_CENTER)
$TextSave = GUICtrlRead($Text)
_GUICtrlSetBackgroundColor(-1, $Text)
GUICtrlSetFont ($Text, 20, "", "", "Courier New")
GUICtrlSetColor($Text, $Color1)
GUISetState(@SW_MAXIMIZE, $Overlay)
GUISetState(@SW_HIDE, $Overlay)
$Options = GUICreate("DarkLock Options", 250, 150, -1, -1, $WS_DLGFRAME)
$PasswordLabel = GUICtrlCreateLabel("Change password:", 0, 0, 1000, 15)
$PasswordInput = GUICtrlCreateInput($Password, 0, 15, 250, 20)
$Color1Label = GUICtrlCreateLabel("Change foreground color (AutoIt colors):", 0, 35, 1000, 15)
$Color1Input = GUICtrlCreateInput($Color1, 0, 50, 250, 20)
$Color2Label = GUICtrlCreateLabel("Change background color (AutoIt colors):", 0, 70, 1000, 15)
$Color2Input = GUICtrlCreateInput($Color2, 0, 85, 250, 20)
$CancelButton = GUICtrlCreateButton("Save", 0, 105, 250, 20)
GUICtrlSetOnEvent($CancelButton, "SaveOptions")
GUISetState(@SW_HIDE, $Options)
$Locked = 0
Dim $Programs[9]
$Programs[0] = "taskmgr.exe"
$Programs[1] = "cmd.exe"
$Programs[2] = "ProcessExplorer.exe"
$Programs[3] = "Process Explorer.exe"
$Programs[4] = "shutdown.exe"
$Programs[5] = "tskill.exe"
$Programs[6] = "taskkill.exe"
$Programs[7] = "wscript.exe"
$Programs[8] = "DrHyde.exe"


Func Lock()
If $Locked == 0 Then
SoundSetWaveVolume(100)
SoundPlay("Locked.wav")
GUISetState(@SW_SHOW, $Overlay)
GUISetState(@SW_MAXIMIZE, $Overlay)
Opt("TrayIconHide", 1)
$Locked = 1
EndIf
EndFunc


Func CheckPassword()
If GUICtrlRead($Input) == $Password Then
GUICtrlSetData($Input, "")
GUISetState(@SW_HIDE, $Overlay)
Opt("TrayIconHide", 0)
$Locked = 0
Else
SoundSetWaveVolume(100)
SoundPlay("Error.wav")
GUICtrlSetData($Text, "Error:" & @CRLF & "Incorrect password!")
Sleep(1000)
GUICtrlSetData($Text, $TextSave)
EndIf
EndFunc


Func SaveOptions()
GUISetState(@SW_HIDE, $Options)
FileDelete("OptionsFile.ini")
$OptionsFile = FileOpen("OptionsFile.ini", 1)
FileWrite("OptionsFile.ini",  _StringEncrypt(1, GUICTRLRead($PasswordInput), "DarkLock Password", 3) & @CRLF)
FileWrite("OptionsFile.ini", GUICTRLRead($Color1Input) & @CRLF)
FileWrite("OptionsFile.ini", GUICTRLRead($Color2Input))
$Password = GUICTRLRead($PasswordInput)
FileClose($OptionsFile)
$Color1 = GUICTRLRead($Color1Input)
$Color2 = GUICTRLRead($Color2Input)
GUICtrlSetBkColor($Input, $Color2)
GUICtrlSetColor($Input, $Color1)
GUICtrlSetColor($Text, $Color1)
EndFunc


Func ShowOptions()
GUISetState(@SW_SHOW, $Options)
EndFunc


Func CloseOptions()
GUISetState(@SW_HIDE, $Options)
EndFunc


Func Close()
If $Locked == 0 Then Exit
EndFunc


While 1
If $Locked == 1 Then
Sleep(100)
WinSetOnTop($Overlay, "", 1)
For $i = 0 To $Programs Step 1
If ProcessExists($Programs[$i]) Then ProcessClose($Programs[$i])
Next
EndIf
If GUIGetMsg() == $GUI_EVENT_CLOSE Then
Close()
EndIf
WEnd

Requires these attatchments in the program root:

Error.wav

Locked.wav

And a Background.bmp the size of your screen.

It was too large to attach.

Also you need these UDF's in @ScriptDir/Include/

ScreenWidthAndHeightConstants.au3

GuiBackground.au3

DarkMsg: Not done (only the base and the GUI), error message generator.

DarkLog: A key logger using user32.dll. I won't post it here cuz of the mods disliking keyloggers. I'll post it later if I feel like it. 100% done.

DarkChat: In production. Check the thread by me and TriBlade here.

Dead Pixel

Story: Your computer is infected with a viruses, trojans, spyware, etc.

You play as an antivirus program, Dead Pixel. Your job is to kill all the threats before they kill you! I will create little bug-like things that will attack a popup window that says "Cleaning...". This represents your parent program that cleans the viruses. You get guns... And grenades... Etc. Currently, I have the dynamic-language system done (create files with phrases in diffrent languages to see it in-game, SO exploitable. Ex, the game window title is POOP or something), and the main GUI. Also to be added:

Dynamic weapons, sounds and sprites. All changable in the game dir.

Languages.

More later.

Icon.ico

Edited by DarkShadow6
BrettF Universalist

BrettF

Posted
Posted

DarkLog: A key logger using user32.dll. I won't post it here cuz of the mods disliking keyloggers. I'll post it later if I feel like it. 100% done.

Post it so we can ban your ass... Just creating it puts a bad name to AutoIt.

Idiot.

Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
whim Universalist

whim

Posted
Posted

Even "Uber people" had better mind grammatical glitches:

"ElseIf $Input[1] == "echo" and UBound($Input) == 3"

I think these lines from the help file (under 'Operators') apply to the 2nd clause:

"= Tests if two values are equal (case insensitive if used with strings). e.g. If $var= 5 Then (true if $var equals 5)

== Forces both values to strings then tests if they are equal in a case sensitive manner (This should only be used if you need to compare strings in a case sensitive manner)."

If ConvertToEnglish("tewl me sum gletchez") == "tell me some glitches" Then PostThis()

whim

DarkShadow6 Seeker

DarkShadow6

Posted
  • Author
Posted (edited)

Bah dangit >:C

I'm used to LUA where == and = are the same usually.

Meh, IDC. As long as it works.

BTW, grammer fail on purpose.

@ BrettF:

The mods don't like keyloggers cause it could mark AutoIt compiled scripts with "THIS IS A VIRUS DELETE FKING EVERYTHING!".

I know that.

That's why I won't release it.

I wan't to see the people squirm when they can't get it :D

Also, it uses User23.dll... It's so common, a simple Google search could get something.

EDIT: Happy?

Function CorrectGrammer(BadGrammerPost)
   PostCheck = BadGrammerPost.Content:SpellCheck(True)
   If PostCheck Then
      Return 0
   ElseIf Not PostCheck Then
      Return 1
   Else
      Echo("Error: Post encountered unknown error")
   End
End

...Ah the good old days of LUA...

I'm getting carried away aren't I?

End

Edited by DarkShadow6
DarkShadow6 Seeker

DarkShadow6

Posted
  • Author
Posted (edited)

Well, the process list isn't done yet, though.

I guess "IMPOSSIBLE" is a wee bit strong isn't it?

But really, you can't access the start menu or tack manager, and any slightly smart person would try tack manager.

Wait..

Does it work on Vista? I just got it so I could test it.

And the only reason i mentioned it was so I could see a few people beg me for it, I know it is banzored basically. :D well I could always put it on my site... BUT I WILL NOT TELLS TEH URL HAH4H4H4

I <3 Vista. :D

Edit: Typo.

Edited by DarkShadow6
Xand3r Universalist

Xand3r

Posted
Posted

I know that.

That's why I won't release it.

I wan't to see the people squirm when they can't get it

Also, it uses User23.dll... It's so common, a simple Google search could get something.

Actually there's a pretty good one hidden in the helpfile :D

Only two things are infinite, the universe and human stupidity, and i'm not sure about the former -Alber EinsteinPractice makes perfect! but nobody's perfect so why practice at all?http://forum.ambrozie.ro

corgano Universalist

corgano

Posted
Posted

I <3 Vista. :D

Edit: Typo.

Was I <3 Vista the typo?

Get windows 7 (even just the trial) and you would never want to say that again.

0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

DarkShadow6 Seeker

DarkShadow6

Posted
  • Author
Posted (edited)

Was I <3 Vista the typo?

No duh sherlock.

It was I >3 Vista.

If you MUST KNOW.

Get windows 7 (even just the trial), and you would never want to say that again.

Orlly?

I don't feel like it.

*COUGH*MOMWON'T*COUGH*LETME*COUGH COUGH*

Also added required files for DarkLock.

Edited by DarkShadow6
DarkShadow6 Seeker

DarkShadow6

Posted
  • Author
Posted

Oh, and that's where I got it from. THe help file. The whole user32.dll thing... Lol...

But IT OUTPUTS TO AN HTML FILE AND CAN BE EMAILED. AND IT CAN BE SILENT OR DISGUISED AS SOMETHING ELSE!!!!!!!!!1111

WHY AM I YELING

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH

corgano Universalist

corgano

Posted
Posted

Why are you yelling? I'm right here.

0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

liten Adventurer

liten

Posted
Posted

Post it so we can ban your ass... Just creating it puts a bad name to AutoIt.

Idiot.

well since its a coding language you cant really give it a bad name *smiles* thats like saying "wow, since hackers make hacks with C++, C++ must be a BADD coding language *stares* hahah

-tri407tiny

My UDF:Freeze.au3-Freeze values like CE, ML, ETC[i][/i][u][/u]

Xand3r Universalist

Xand3r

Posted
Posted

Oh, and that's where I got it from. THe help file. The whole user32.dll thing... Lol...

But IT OUTPUTS TO AN HTML FILE AND CAN BE EMAILED. AND IT CAN BE SILENT OR DISGUISED AS SOMETHING ELSE!!!!!!!!!1111

WHY AM I YELING

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH

no offence dude... but you're a moron... anyone with half a brain on this forum can make a keylogger... probably better that yours... but does that mean they should do it or brag about it if they did? NO! :D

Only two things are infinite, the universe and human stupidity, and i'm not sure about the former -Alber EinsteinPractice makes perfect! but nobody's perfect so why practice at all?http://forum.ambrozie.ro

BrettF Universalist

BrettF

Posted
Posted (edited)

well since its a coding language you cant really give it a bad name *smiles* thats like saying "wow, since hackers make hacks with C++, C++ must be a BADD coding language *stares* hahah

-tri407tiny

Many anti virus programs report legit compiled AutoIt scripts as malicious. Normally I'd let you guess why that is, but here it is. Because of people creating programs such as these. Now what do you think that does for people that use AutoIt for legitimate purposes! HOW CAN MAKING MALICIOUS PROGRAMS GIVE IT A GOOD NAME. Are you stupid?

nooffence dude... but you're a moron... anyone with half a brain on thisforum can make a keylogger... probably better that yours... but doesthat mean they should do it or brag about it if they did? NO! :D

And you sir, are a moron as well. Anyone with a brain at all could work out the reason why not...

Edited by BrettF
Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
Guest
This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...