JustinReno Posted January 4, 2008 Share Posted January 4, 2008 (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 Browser2. Notepad3. Music Player4. Calculator5. Task Manager6. Misc7. AboutBugs:1. Window Title Flicker2. Get URL box to update.Todo:1. Check over source.2. Add stuff to Music PlayerScreenshots:Web Browser:Notepad:Music Player:Calculator:Task Manager:Misc:about: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! expandcollapse popup#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 January 4, 2008 by JustinReno Link to comment Share on other sites More sharing options...
Swift Posted January 5, 2008 Share Posted January 5, 2008 UGLY CALCULATOR!!!! Link to comment Share on other sites More sharing options...
esmano Posted January 5, 2008 Share Posted January 5, 2008 Very good for a 13 year old boy! Link to comment Share on other sites More sharing options...
Swift Posted January 5, 2008 Share Posted January 5, 2008 Justins 13? Link to comment Share on other sites More sharing options...
DirtDBaK Posted January 5, 2008 Share Posted January 5, 2008 Wow I didn't know that Ha I'll be 16 on 2-17 (feb-17) [center][/center] Link to comment Share on other sites More sharing options...
JustinReno Posted January 5, 2008 Author Share Posted January 5, 2008 (edited) Yes, I'm 13. Thanks for all the feedback Anyone else?Very good for a 13 year old boy!How did you know? Edited January 5, 2008 by JustinReno Link to comment Share on other sites More sharing options...
The Ape Posted January 5, 2008 Share Posted January 5, 2008 Yes, I'm 13. Thanks for all the feedback Anyone else?How did you know?Your site has your birthday on it...by the way... I graduated High School in 1994. Also, do something about that calculator. FixJaw.comTriad-Art.com Link to comment Share on other sites More sharing options...
JustinReno Posted January 5, 2008 Author Share Posted January 5, 2008 Oh... haha, I thought about that. I know the calculator is really big and bulky, but it had to fill up the GUI some how.. And I need to fix the subtraction button (--- to -). Link to comment Share on other sites More sharing options...
i542 Posted January 6, 2008 Share Posted January 6, 2008 Very Nice JustinReno! I will use it often.Justins 13?Yep... I can do signature me. Link to comment Share on other sites More sharing options...
JustinReno Posted January 6, 2008 Author Share Posted January 6, 2008 Thank you! I put a lot of hard work into it. Link to comment Share on other sites More sharing options...
Swift Posted January 6, 2008 Share Posted January 6, 2008 im 13! Link to comment Share on other sites More sharing options...
JustinReno Posted January 6, 2008 Author Share Posted January 6, 2008 In another two weeks! Link to comment Share on other sites More sharing options...
i542 Posted January 7, 2008 Share Posted January 7, 2008 im 13!im 12! (in 3 weeks) I can do signature me. Link to comment Share on other sites More sharing options...
MaudKip Posted January 7, 2008 Share Posted January 7, 2008 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 More sharing options...
i542 Posted January 7, 2008 Share Posted January 7, 2008 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 More sharing options...
JustinReno Posted January 8, 2008 Author Share Posted January 8, 2008 There good quality, if you don't like it make a better one. Link to comment Share on other sites More sharing options...
MaudKip Posted January 9, 2008 Share Posted January 9, 2008 (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 January 9, 2008 by MaudKip Link to comment Share on other sites More sharing options...
DirtDBaK Posted January 9, 2008 Share Posted January 9, 2008 I agree with everything MaudKip said.. I think you should take his advice. But good luck! [center][/center] Link to comment Share on other sites More sharing options...
esmano Posted January 9, 2008 Share Posted January 9, 2008 @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 More sharing options...
DirtDBaK Posted January 9, 2008 Share Posted January 9, 2008 (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 January 9, 2008 by DBak [center][/center] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now