Jump to content

All In One Application

JustinReno

By JustinReno,
in AutoIt Example Scripts

 Share

Recommended Posts

JustinReno Universalist

JustinReno

Posted
Posted (edited)

Well, I'm finally going to release All In One Application. I was going to use it just as a personal application but some users have shown interests.

Features:

1. Web Browser

2. Notepad

3. Music Player

4. Calculator

5. Task Manager

6. Misc

7. About

Bugs:

1. Window Title Flicker

2. Get URL box to update.

Todo:

1. Check over source.

2. Add stuff to Music Player

Screenshots:

Web Browser:

Posted Image

Notepad:

Posted Image

Music Player:

Posted Image

Calculator:

Posted Image

Task Manager:

Posted Image

Misc:

Posted Image

about:

Posted Image

If you use any of my source to All In One Application (Excluding UDFs), give credit to Justin Reno.

Source: Watch the word wrap on this! 

#NoTrayIcon
#Include <IE.au3>
#Include <INet.au3>
#Include <GUIEdit.au3>
#Include <File.au3>
#Include <String.au3>
#Include <Date.au3>
#Include <Sound.au3>
#Include <ScreenCapture.au3>

Global $Memory = MemGetStats()
Global $Speak = ObjCreate("Sapi.SPVoice")
Global $SoundOpen
Global $MultiplySelected = 0, $DivideSelected = 0, $Additionselected = 0, $Subtractionselected = 0
Global $BreakInAttempt
Global $SetAlarm, $Alarm

_IEErrorHandlerRegister()

Opt("GUIResizeMode", 1)
Opt("RunErrorsFatal", 0)

$AllInOneApplication = GUICreate("All In One Application", 634, 459, -1, -1, $WS_OVERLAPPEDWINDOW)
GUICtrlCreateTab(0, 0, 633, 457)
GUICtrlCreateTabItem("Internet")
$IE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($IE, 8, 56, 618, 364)
$InternetURl = GUICtrlCreateInput("", 8, 424, 121, 21)
$InternetGo = GUICtrlCreateButton("Go", 136, 424, 75, 25, $BS_DEFPUSHBUTTON)
$InternetStop = GUICtrlCreateButton("Stop", 216, 424, 75, 25, 0)
$InternetBack = GUICtrlCreateButton("Back", 296, 424, 75, 25, 0)
$InternetForward = GUICtrlCreateButton("Forward", 376, 424, 75, 25, 0)
$InternetSpeak = GUICtrlCreateButton("Speak", 456, 424, 75, 25, 0)
$InternetHome = GUICtrlCreateButton("Home", 536, 424, 75, 25, 0)
$InternetOpen = GUICtrlCreateButton("Open", 8, 24, 75, 25, 0)
$InternetSavePage = GUICtrlCreateButton("Save Page", 88, 24, 75, 25, 0)
$InternetPrint = GUICtrlCreateButton("Print", 168, 24, 75, 25, 0)
$InternetPageSource = GUICtrlCreateButton("Page Source", 248, 24, 75, 25, 0)
$InternetClearData = GUICtrlCreateButton("Delete Data", 328, 24, 75, 25, 0)
$InternetRefresh = GUICtrlCreateButton("Refresh", 408, 24, 75, 25, 0)
$InternetFavorites = GUICtrlCreateCombo("Google", 488, 24, 140)
GUICtrlSetData($InternetFavorites, "Answers.com|Justin Reno's Site|Justin Reno Forums|Addicting Games|Gamesloth|The Sims 2|Think Geek")
GUICtrlCreateTabItem("Notepad")
$Edit = GUICtrlCreateEdit("", 8, 56, 617, 393)
_GUICtrlEdit_SetLimitText ($Edit, 100000000)
$NotepadNew = GUICtrlCreateButton("New", 8, 24, 75, 25, 0)
$NotepadOpen = GUICtrlCreateButton("Open", 88, 24, 75, 25, 0)
$NotepadSave = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0)
$NotepadPrint = GUICtrlCreateButton("Print", 248, 24, 75, 25, 0)
$NotepadSpeak = GUICtrlCreateButton("Speak", 328, 24, 75, 25, 0)
$NotepadFont = GUICtrlCreateButton("Font", 408, 24, 65, 25, 0)
$NotepadEncrypt = GUICtrlCreateButton("Encrypt Text", 478, 24, 75, 25, 0)
$NotepadDecrypt = GUICtrlCreateButton("Decrypt Text", 558, 24, 75, 25, 0)
GUICtrlCreateTabItem("Music Player")
$MusicPlayerLoadSound = GUICtrlCreateButton("Load Sound", 8, 24, 619, 25, 0)
$MusicPlayerPlaySound = GUICtrlCreateButton("Play Sound", 8, 128, 619, 25, 0)
$MusicPlayerPauseSound = GUICtrlCreateButton("Pause Sound", 8, 232, 619, 25, 0)
$MusicPlayerResumeSound = GUICtrlCreateButton("Resume Sound", 8, 328, 619, 25, 0)
$MusicPlayerStopSound = GUICtrlCreateButton("Stop Sound", 8, 424, 619, 25, 0)
GUICtrlCreateTabItem("Calculator")
$CalculatorAnswerInput = GUICtrlCreateInput("", 8, 56, 617, 21)
$Calculator1 = GUICtrlCreateButton("1", 8, 112, 205, 49, 0)
$Calculator2 = GUICtrlCreateButton("2", 216, 112, 205, 49, 0)
$Calculator3 = GUICtrlCreateButton("3", 424, 112, 205, 49, 0)
$Calculator4 = GUICtrlCreateButton("4", 8, 168, 205, 49, 0)
$Calculator5 = GUICtrlCreateButton("5", 216, 168, 205, 49, 0)
$Calculator6 = GUICtrlCreateButton("6", 424, 168, 205, 49, 0)
$Calculator7 = GUICtrlCreateButton("7", 8, 224, 205, 49, 0)
$Calculator8 = GUICtrlCreateButton("8", 216, 224, 205, 49, 0)
$Calculator9 = GUICtrlCreateButton("9", 424, 224, 205, 49, 0)
$Calculator0 = GUICtrlCreateButton("0", 8, 280, 205, 49, 0)
$CalculatorAddition = GUICtrlCreateButton("+", 424, 280, 205, 49, 0)
$CalculatorSubtraction = GUICtrlCreateButton("---", 8, 336, 205, 49, 0)
$CalculatorMultiply = GUICtrlCreateButton("x", 216, 336, 205, 49, 0)
$CalculatorDivide = GUICtrlCreateButton("/", 424, 336, 205, 49, 0)
$CalculatorDecimal = GUICtrlCreateButton(".", 216, 280, 205, 49, 0)
$CalculatorEqual = GUICtrlCreateButton("=", 8, 392, 310, 49, 0)
$CalculatorReset = GUICtrlCreateButton("Reset", 325, 392, 300, 49, 0)
GUICtrlCreateTabItem("Task Manager")
$List = GUICtrlCreateList("", 8, 32, 169, 409)
$TaskManagerRefreshList = GUICtrlCreateButton("Refesh List", 184, 32, 440, 49, 0)
$TaskManagerNewProcess = GUICtrlCreateButton("New Process", 184, 88, 440, 49, 0)
$TaskManagerCloseProcess = GUICtrlCreateButton("Close Process", 184, 144, 440, 49, 0)
GUICtrlCreateGroup("Memory Status:", 184, 208, 209, 81)
GUICtrlCreateLabel("Total Hard Drive Space:", 192, 232, 119, 17)
GUICtrlCreateLabel(Round(DriveSpaceTotal(@HomeDrive))&" MB", 312, 232, 70, 17)
GUICtrlCreateLabel("Free Hard Drive Space:", 192, 248, 116, 17)
GUICtrlCreateLabel(Round(DriveSpaceFree(@HomeDrive))&" MB", 312, 248, 70, 17)
GUICtrlCreateLabel("Free RAM:", 192, 264, 55, 17)
GUICtrlCreateLabel(Round($Memory[2]), 312, 264, 50, 17)
GUICtrlCreateTabItem("Misc")
GUICtrlCreateGroup("Misc Things:", 8, 24, 172, 400)
$MiscBeep = GUICtrlCreateButton("Beep", 16, 48, 75, 42, 0)
$MiscScreenFlicker = GUICtrlCreateButton("Screen Flicker", 16, 96, 75, 42, 0)
$MiscMessageBox = GUICtrlCreateButton("Message Box", 16, 144, 75, 42, 0)
$MiscScreenshot = GUICtrlCreateButton("Screenshot", 16, 190, 75, 42, 0)
$MiscMonitor = GUICtrlCreateButton("Monitor On/Off", 16, 236, 75, 42, $BS_MULTILINE)
$MiscLockComputer = GUICtrlCreateButton("Lock Computer", 16, 282, 75, 42, $BS_MULTILINE)
$MiscShutdown = GUICtrlCreateButton("Shutdown", 16, 328, 75, 42, 0)
$MiscSetTransparencyofWindow = GUICtrlCreateButton("Set Transparency of Window", 16, 374, 75, 42, $BS_MULTILINE)
$MiscAlarm = GUICtrlCreateButton("Alarm", 96, 48, 75, 42, 0)
$MiscOpenScite = GUICtrlCreateButton("Open SciTE", 96, 96, 75, 42, 0)
$MiscNewIEWindow = GUICtrlCreateButton("New IE Window", 96, 142, 75, 42, $BS_MULTILINE)
$MiscHibernate = GUICtrlCreateButton("Hibernate", 96, 188, 75, 0)
$MiscPasswordCreator = GUICtrlCreateButton("Password Creator", 96, 234, 75, 42, $BS_MULTILINE)
GUICtrlCreateTabItem("About")
GUICtrlCreateLabel("All In One Application", 136, 24, 333, 41)
GUICtrlSetFont(-1, 24, 800, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateLabel("Credits:", 256, 88, 67, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("AutoIt by www.AutoItScript.com", 200, 120, 184, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateLabel("_IE Functions by Dale Hohm", 208, 144, 172, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlCreateLabel("_INetGetSource() Function by Wouter", 192, 168, 224, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x808000)
GUICtrlCreateLabel("_Edit Functions by GaryFrost", 208, 192, 174, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateLabel("_FilePrint Function by Erifash", 208, 216, 174, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
GUICtrlCreateLabel("_String Function(s) by Wes and Others", 192, 240, 230, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
GUICtrlCreateLabel("_Now() Function by Jdeb", 216, 264, 151, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("_Sound Functions by RazerM", 208, 288, 178, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlCreateLabel("_ScreenCapture Function by GaryFrost", 192, 312, 234, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF00FF)
GUICtrlCreateLabel("All In One Application created and copyright Justin Reno 2007.", 60, 424, 550, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
GUISetState(@SW_SHOW)

_ReduceMemory()

While 1
    If $Alarm = 1 Then
        If _NowTime() = $SetAlarm Then
            SoundPlay(@WindowsDir & "\Media\Ringout.wav", 1)
            SoundPlay(@WindowsDir & "\Media\Ringin.wav", 1)
            MsgBox(32, "All In One Application - Misc - Alarm", "ALARM! " & $SetAlarm & " ALARM!")
            $Alarm = 0
        EndIf
    EndIf
    WinSetTitle($AllInOneApplication, "", "All In One Application - " & _Now() & "")
    _IELoadWaitTimeout(1000)
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $InternetGo
            _IENavigate($IE, GUICtrlRead($InternetURl))
        Case $InternetStop
            _IEAction($IE, "Stop")
        Case $InternetBack
            _IEAction($IE, "Back")
        Case $InternetForward
            _IEAction($IE, "Forward")
        Case $InternetSpeak
            $Speak.Speak ($IE.document.selection.createRange.text & @CR)
        Case $InternetHome
            _IENavigate($IE, "www.autoitscript.com/forum")
        Case $InternetOpen
            _IENavigate($IE, FileOpenDialog("All In One Application - Internet - Open File", @ScriptDir, "HTML(*.html)"))
        Case $InternetSavePage
            _IEAction($IE, "SaveAs")
        Case $InternetPrint
            _IEAction($IE, "Print")
        Case $InternetPageSource
            FileWrite(FileSaveDialog("All In One Application - Internet - Save Source", @ScriptDir, "HTML(*.html)"), _INetGetSource(_IEPropertyGet($IE, "LocationURL")))
        Case $InternetClearData
            Run("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255")
        Case $InternetFavorites
            $ReadSelectedFavorite = GUICtrlRead($InternetFavorites)
            If $ReadSelectedFavorite = "Google" Then _IENavigate($IE, "www.google.com")
            If $ReadSelectedFavorite = "Answers.com" Then _IENavigate($IE, "www.answers.com")
            If $ReadSelectedFavorite = "Justin Reno's Site" Then _IENavigate($IE, "www.JustinReno.tk")
            If $ReadSelectedFavorite = "Justin Reno Forums" Then _IENavigate($IE, "www.JustinRenoForums.tk")
            If $ReadSelectedFavorite = "Addicting Games" Then _IENavigate($IE, "www.addictinggames.com")
            If $ReadSelectedFavorite = "Gamesloth" Then _IENavigate($IE, "www.gamesloth.com")
            If $ReadSelectedFavorite = "The Sims 2" Then _IENavigate($IE, "http://thesims2.ea.com/")
            If $ReadSelectedFavorite = "Think Geek" Then _IENavigate($IE, "www.thinkgeek.com")
        Case $InternetRefresh
            _IEAction($IE, "Refresh")
        Case $NotepadNew
            GUICtrlSetData($Edit, "")
        Case $NotepadOpen
            GUICtrlSetData($Edit, FileRead(FileOpenDialog("All In One Application - Notepad - Open File", @ScriptDir, "All Files(*.*)")))
        Case $NotepadSave
            FileDelete(FileSaveDialog("All In One Application - Notepad - Save File", @ScriptDir, "All Files(*.*)"))
            FileWrite(FileSaveDialog("All In One Application - Notepad - Save File", @ScriptDir, "All Files(*.*)"), GUICtrlRead($Edit))
        Case $NotepadPrint
            FileWrite(@TempDir & "\Print.txt", GUICtrlRead($Edit))
            _FilePrint(@TempDir & "\Print.txt")
            FileDelete(@TempDir & "\Print.txt")
        Case $NotepadSpeak
            $Speak.Speak (GUICtrlRead($Edit))
        Case $NotepadFont
            $ColorFont = _ChooseFont()
            If Not @error Then
                $Font = GUICtrlSetFont($Edit, $ColorFont[3], $ColorFont[4], $ColorFont[1], $ColorFont[2])
                $Color = GUICtrlSetColor($Edit, $ColorFont[7])
            EndIf
        Case $NotepadEncrypt
            GUICtrlSetData($Edit, _StringEncrypt(1, GUICtrlRead($Edit), "All In One Application"))
        Case $NotepadDecrypt
            GUICtrlSetData($Edit, _StringEncrypt(0, GUICtrlRead($Edit), "All In One Application"))
        Case $MusicPlayerLoadSound
            _SoundClose($SoundOpen)
            $SoundOpen = _SoundOpen(FileOpenDialog("All In One Application - Music Player - Open Sound", @ScriptDir, "Music Files(*.mp3;*.wav)"))
            _SoundPlay($SoundOpen)
        Case $MusicPlayerPlaySound
            _SoundPlay($SoundOpen)
        Case $MusicPlayerPauseSound
            _SoundPause($SoundOpen)
        Case $MusicPlayerResumeSound
            _SoundResume($SoundOpen)
        Case $MusicPlayerStopSound
            _SoundStop($SoundOpen)
        Case $Calculator1
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "1")
        Case $Calculator2
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "2")
        Case $Calculator3
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "3")
        Case $Calculator4
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "4")
        Case $Calculator5
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "5")
        Case $Calculator6
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "6")
        Case $Calculator7
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "7")
        Case $Calculator8
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "8")
        Case $Calculator9
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "9")
        Case $Calculator0
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & "0")
        Case $CalculatorAddition
            $Additionselected = 1
            $AdditionReadBefore = GUICtrlRead($CalculatorAnswerInput)
            GUICtrlSetData($CalculatorAnswerInput, "")
        Case $CalculatorSubtraction
            $Subtractionselected = 1
            $SubtractionReadBefore = GUICtrlRead($CalculatorAnswerInput)
            GUICtrlSetData($CalculatorAnswerInput, "")
        Case $CalculatorMultiply
            $MultiplySelected = 1
            $MultiplyReadBefore = GUICtrlRead($CalculatorAnswerInput)
            GUICtrlSetData($CalculatorAnswerInput, "")
        Case $CalculatorDivide
            $DivideSelected = 1
            $DivideReadBefore = GUICtrlRead($CalculatorAnswerInput)
            GUICtrlSetData($CalculatorAnswerInput, "")
        Case $CalculatorDecimal
            GUICtrlSetData($CalculatorAnswerInput, GUICtrlRead($CalculatorAnswerInput) & ".")
        Case $CalculatorEqual
            If $Additionselected = 1 Then GUICtrlSetData($CalculatorAnswerInput, Number($AdditionReadBefore + GUICtrlRead($CalculatorAnswerInput)))
            If $Subtractionselected = 1 Then GUICtrlSetData($CalculatorAnswerInput, Number($SubtractionReadBefore - GUICtrlRead($CalculatorAnswerInput)))
            If $MultiplySelected = 1 Then GUICtrlSetData($CalculatorAnswerInput, Number($MultiplyReadBefore * GUICtrlRead($CalculatorAnswerInput)))
            If $DivideSelected = 1 Then GUICtrlSetData($CalculatorAnswerInput, Number($DivideReadBefore / GUICtrlRead($CalculatorAnswerInput)))
        Case $CalculatorReset
            $Additionselected = 0
            $Subtractionselected = 0
            $MultiplySelected = 0
            $DivideSelected = 0
            GUICtrlSetData($CalculatorAnswerInput, "")
        Case $TaskManagerRefreshList
            $GetProcess = ProcessList()
            For $i = 1 To $GetProcess[0][0]
                GUICtrlSetData($List, $GetProcess[$i][0])
            Next
        Case $TaskManagerNewProcess
            Run(InputBox("All In One Application - Task Manager - New Process", "Type in the process you would like to open:"))
        Case $TaskManagerCloseProcess
            $CloseProcessCheck = MsgBox(20, "All In One Application - Task Manager - Close Task", "Are you sure you want to close " & GUICtrlRead($List) & "?")
            If $CloseProcessCheck = 6 Then ProcessClose(GUICtrlRead($List))
            $GetProcess = ProcessList()
            For $i = 1 To $GetProcess[0][0]
                GUICtrlSetData($List, $GetProcess[$i][0])
            Next
        Case $MiscBeep
            Beep(Random(100, 8000, 1), Random(10, 100, 1))
        Case $MiscScreenFlicker
            $Flicker = GUICreate("", @DesktopWidth + 100, @DesktopHeight + 100, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
            GUISetState(@SW_SHOW)
            For $i = 0 To 500
                GUISetBkColor(0x000000)
                GUISetBkColor(0xFFFFFF)
            Next
            GUIDelete($Flicker)
        Case $MiscMessageBox
            MsgBox(16, "All In One Application", InputBox("All In One Application - Misc - Message Box", "What do you want the message to say:"))
        Case $MiscScreenshot
            _ScreenCapture_Capture (FileSaveDialog("All In One Application", @ScriptDir, "Screenshot Image(*.jpg)"))
            MsgBox(64, "All In One Application - Misc - Screenshot", "Done!")
        Case $MiscMonitor
            DllCall("User32.dll", "int", "SendMessage", "hwnd", WinGetHandle("[CLASS:Progman]"), "int", 274, "int", 61808, "int", 2)
            Sleep(1000)
            DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle("[CLASS:Progman]"), "int", 274, "int", 61808, "int", -1)
        Case $MiscLockComputer
            _Lock()
        Case $MiscShutdown
            Shutdown(1)
        Case $MiscSetTransparencyofWindow
            WinSetTrans($AllInOneApplication, "", InputBox("All In One Application - Misc - Set Window Transpareny", "Enter a number between 10 and 255:", "255"))
        Case $MiscAlarm
            $SetAlarm = InputBox("All In One Application - Misc - Alarm", "Enter the time you want the alarm to ring on:")
            If Not @error Then $Alarm = 1
        Case $MiscOpenScite
            Run(@ProgramFilesDir & "\AutoIt3\SciTE\SciTE.exe")
        Case $MiscNewIEWindow
            Run(@ProgramFilesDir & "\Internet Explorer\Iexplore.exe")
        Case $MiscHibernate
            Shutdown(64)
        Case $MiscPasswordCreator
            _Password(InputBox("All In One Application - Misc - Password Creator", "How long do you want the password to be?"))
    EndSwitch
WEnd

Func _Lock()
    $BreakInAttempt = 0
    $MousePosOld = MouseGetPos()
    $GUI = GUICreate("", @DesktopWidth + 50, @DesktopHeight + 50, -1, -1, 0x80000000, 0x00000008)
    GUISetBkColor(0x000000, $GUI)
    GUISetState(@SW_SHOW, $GUI)
    While 1
        If _IsPressed(11) And _IsPressed(12) And _IsPressed(10) And _IsPressed(20) Then
            GUIDelete($GUI)
            ExitLoop
        EndIf
        If ProcessExists("taskmgr.exe") Then ProcessClose("taskmgr.exe")
        If $BreakInAttempt = 3 Then
            Beep(5000, 1000)
            $BreakInAttempt = 0
        EndIf
        If _IsPressed(01) Or _IsPressed(02) Then
            $BreakInAttempt += 1
            Beep(8000, 100)
        EndIf
        $MousePosNew = MouseGetPos()
        If $MousePosNew[0] <> $MousePosOld[0] And $MousePosNew[1] <> $MousePosOld[1] Then
            $BreakInAttempt += 1
            Beep(8000, 100)
            MouseMove($MousePosOld[0], $MousePosOld[1], 0)
        EndIf
    WEnd
EndFunc   ;==>_Lock

Func _Password($Length)
    $Characters = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*=+,.?", "")
    $GeneratedPassword = 0
    For $i = 1 To $Length
        $GeneratedPassword &= $Characters[Random(1, 75, 1) ]
    Next
    ClipPut($GeneratedPassword)
    MsgBox(64, "All In One Application - Misc - Password Creator", "Done, copied to clipboard.")
EndFunc   ;==>_Password

Func _ReduceMemory($PID = -1)
    If $PID <> -1 Then
        Local $Handle = DllCall("kernel32.dll", "int", "OpenProcess", "int", 0x1f0fff, "int", False, "int", $PID)
        Local $Return = DllCall("psapi.dll", "int", "EmptyWorkingSet", "long", $Handle[0])
        DllCall("kernel32.dll", "int", "CloseHandle", "int", $Handle[0])
    Else
        Local $Return = DllCall("psapi.dll", "int", "EmptyWorkingSet", "long", -1)
    EndIf
    Return $Return[0]
EndFunc   ;==>_ReduceMemory
Edited by JustinReno
Link to comment
Share on other sites
  • Replies 53
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

MaudKip Wayfarer

MaudKip

Posted
Posted

All I can say is quality over quantity.

Just because it has a bunch of different

apps added to one does not make it a

good program.

Add quality Justin.

Try to improve each separate app on

it's own, and the combine them in the end.

I am not trying to put you down but so

please do not take this as me attacking you.

=]

Link to comment
Share on other sites
i542 Universalist

i542

Posted
Posted

All I can say is quality over quantity.

Just because it has a bunch of different apps added to one does not make it a good program.

Add quality Justin.

Try to improve each separate app on it's own, and the combine them in the end.

I am not trying to put you down but so please do not take this as me attacking you.

=]

Agree. See me. All my programs are very nice, and I made 10 of them (excluding StarPlay)

I can do signature me.

Link to comment
Share on other sites
MaudKip Wayfarer

MaudKip

Posted
Posted (edited)

There good quality, if you don't like it make a better one.

Thats just the thing.

I prefer qaulity over qaunity, therefore I am still working on my apps.

I'm not saying your apps are horrid, just they aren't that amazing.

I couldn't imagine anyone actually taking the time to run this and then use it.

It's too in the way and inconvenient.

A simple minimize to the task bar could mean a world of difference for this app.

Instead of setting a hard coded home page, allow the browser to read the local registry and set the local homepage as the apps home page. Or allow the app to write it's own reg value, and allow this value to be changed by the app. Thus a home page that is dynamic. Like a real browser.

For the search combo, allow for the user to select the search engine and then allow DIRECT searching from a combo or input control.

And the speak option?

Let's face it, it's a cute function, but really it isn't useful.

The notepad, all I can say is clean up the gui and make it tighter.

Maybe add some variable options.

UPDATE: The word wrap only works once.

But interesting.

Hell, try to make it rich edit.

The media player, blah okay that one is horrid.

All you did was use UDFS and easily connected it to buttons.

And just because there is empty gui space DOES NOT MEAN THAT IT MUST BE FILLED.

Once again I enforce the "You do NOT have to fill empty GUI space."

The Task manger, that's fine, but how about an auto refresh?

Worried about it taking up too much process memory?

Try this.

If not $array[0]<>$oldList then

;;Proceed to update the processes

$oldList=$array[0]

endif

Now that isn't a very good example, and I may have messed up the syntax, but just from reading that mangled snippet, you should be able to get an idea on how to do this.

Okay moving on, the beep button is fine, for if you would like to test your speakers I guess.

The alarm is fine too, but work on it.

Screen flicker.. what's the point?

Open scite, that's fine too. (However the average user has next to NO scripting experience, and it is doubtful that one, they have scite, 2 they use autoit.)

Message box, completely pointless.

New IE window, that's fine, but pretty much useless.

Screen shot is already in the print screen button ON THE KEYBOARD.

Hibernate is pointless.

Monitor ON/OFF is fine. I was almost too worried to run it, but you set it nicely.

Password creator could use some work.

Ad a gui to it, and allow mulitple options such as:

Encryption level, Alphanumeric or not, hex encryption, etc.

Lock computer is pointless.

Shutdown is also pointless.

Set transparency of window is for one, way too long and ugly a phrase to be on a button. It's pretty pointless as well.

Now the last tab.

Did you seriously copyright that app, or did you just type that to make it look official.

Now with that all done and said, listen to this.

Do not take all of this the wrong way.

It is constructive criticisms.

I have seen some of your other apps and I liked them.

However you seem to be going down hill since you became obbsessed with the whole, "simple $appName" thing. Just because the source is simple does not make it a good app. The average user will not care if it has a short source code that is easy to read. They want simplicity, good options, nice speeds. LOW CPU is good. That is above all what an app should have. I have seen some really shoddy apps that could have been better if the author had become good friends with the Task Manager.

Take my comments and criticisms as you will, but know that I do not mean any of this in a malicious way.

-MaudKip

Edited by MaudKip
Link to comment
Share on other sites
esmano Seeker

esmano

Posted
Posted

@MaudKip: I agree with your arguments, but keep in mind that he is still very young, but is intrested in scripting allready...

Give him a chance, I am sure that his future script will be better.

@JustinReno: Try to do something with the critics, he's trying to help you :)

Link to comment
Share on other sites
DirtDBaK Universalist

DirtDBaK

Posted
Posted (edited)

True as he gets older he'll get better, I guess I forget this, I was 13 when I made DDB Media Player which really isn't a script I am too proud of but It really was good and it was the only version of amp with play list support lol... By the way if you want to see DDB MP 1 aka AMP 1, then just search it on the forums. It was my third big AutoIt project. My 1st was SEC a program that locked your computer and it's so noob like I won't post it. My 2nd was something like this call BAK Explorer, which had a pic library, media player library, a internet explorer window and a basic notepad. It was a competition with my friend who could make the better script. He never finished his so I won lol. Again so noob like I won't post it, but it gave me the idea to go further in the media player production.

Edit:Spelling Error

Edited by DBak

[center][/center]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

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