Task Manager V 3.0 by riki107, Ecco cosa è venuto fuori...

« Older   Newer »
  Share  
riki107
CAT_IMG Posted on 8/12/2010, 16:48     +1   -1




Salve ragazzi... :D
Ho realizzato questo programmino... Una sorta di task manager alternativo che mostra i processi attivi e una lista di programmi eseguibili (solo se installati naturalmente ^^)

Qua c'è il source:
SPOILER (click to view)
CODICE
#include <guiconstants.au3>
#include <misc.au3>

$Gui = GUICreate("Task Manager V 3.0 by riki107", 625, 470)
GUISetIcon("D:\Menù Riccardo\Immagini\Icone SuperMario\ICO\Shell - Green.ico") ; Icona programma
GUICtrlCreateLabel("Lista processi attivi:", 105, 10, 150, 20)
GUICtrlCreateLabel("Lista programmi eseguibili:", 410, 10, 150, 20)
$Listaprocessi = GUICtrlCreateList("", 20, 30, 260, 400) ; Lista dei processi attivi
; Gli array li avrei volentieri indicati da un'altra parte... Ma se non li metto prima della lista non me li considera -.-"
$1 = "Microsoft Office Word" ; Array che indica un programma...
$2 = "Microsoft Office Excel"
$3 = "Microsoft Office PowerPoint"
$4 = "Microsoft Office Outlook"
$5 = "Microsoft Office Access"
$6 = "Tastiera su schermo"
$7 = "Mappa caratteri"
$8 = "Pinball"
$9 = "Blocco note"
$10 = "Calcolatrice"
$11 = "Esplora Risorse"
$12 = "Paint"
$13 = "Prompt dei comandi"
$14 = "Windows Sidebar"
$15 = "Internet Explorer"
$16 = "Outlook Express"
$17 = "Windows Movie Maker"
$18 = "VLC Media Player"
$19 = "WinRAR"
$20 = "WinZIP"
$21 = "Adobe Reader"
$22 = "Safari - Browser Internet"
$23 = "Pivot Stickfigure Animator"
$24 = "Windows Live Messenger"
$25 = "Windows Live Mail"
$26 = "eMule"
$27 = "Photoshop CS4"
$28 = "Google Chrome"
$29 = "LogMeIn Hamachi"
$30 = "AVG 9 Free Antivirus"
$31 = "Quick Time Player"
$32 = "Windows Media Player"
$33 = "Mozilla Firefox"
$34 = "FileZilla FTP Client"
$35 = "Nero 7 Premium - Nero Burning ROM"
$36 = "Nero 7 Premium - Nero BackItUp"
$37 = "Nero 7 Premium - Nero CoverDesigner"
$38 = "Nero 7 Premium - Nero Home"
$39 = "Nero 7 Premium - Nero ImageDrive"
$40 = "Nero 7 Premium - Nero MediaHome"
$41 = "Nero 7 Premium - Nero PhotoSnap"
$42 = "Nero 7 Premium - Nero PhotoSnap Viewer"
$43 = "Nero 7 Premium - Nero Recode"
$44 = "Nero 7 Premium - Nero ShowTime"
$45 = "Nero 7 Premium - Nero SuondTrax"
$46 = "Nero 7 Premium - Nero StartSmart"
$47 = "Nero 7 Premium - Nero Cd-DVD Speed"
$48 = "Nero 7 Premium - Nero Drive Speed"
$49 = "Nero 7 Premium - Nero Info Tool"
$50 = "Nero 7 Premium - Nero BurnRights"
$51 = "Nero 7 Premium - Nero Vision"
$52 = "Nero 7 Premium - Nero Wave Editor"
$53 = "Nero 7 Premium - Nero Scout"
$54 = "HyperCam 2"
$55 = "Dev-C++"
$56 = "AutoIt3 - Run Script"
$57 = "AutoIt3 - SciTE"
$58 = "AutoIt3 - Compile Script to .exe"
$59 = "AutoIt3 - Windows Info"
$60 = "AutoIt3 - Help"
$61 = "mIRC"
$62 = "Format Factory"
$63 = "Acoustica MP3 Audio Mixer"
$64 = "Cartella Programmi"
$65 = "Prato fiorito"
$66a = "Archivio C"
$66b = "Archivio D"
$67 = "Solitario"
$68 = "Pannello di controllo"
$69 = "A---------------------------------------------------------------------------"
$70 = "B---------------------------------------------------------------------------"
$71 = "C---------------------------------------------------------------------------"
$72 = "D---------------------------------------------------------------------------"
$73 = "E---------------------------------------------------------------------------"
$74 = "F---------------------------------------------------------------------------"
$75 = "G---------------------------------------------------------------------------"
$76 = "H---------------------------------------------------------------------------"
$77 = "I---------------------------------------------------------------------------"
$78 = "L---------------------------------------------------------------------------"
$79 = "M---------------------------------------------------------------------------"
$80 = "N---------------------------------------------------------------------------"
$81 = "O---------------------------------------------------------------------------"
$82 = "P---------------------------------------------------------------------------"
$83 = "Q---------------------------------------------------------------------------"
$84 = "S---------------------------------------------------------------------------"
$85 = "T---------------------------------------------------------------------------"
$86 = "V---------------------------------------------------------------------------"
$87 = "W---------------------------------------------------------------------------"
;Da continuare
$Listaesegui = GUICtrlCreateList("", 335, 30, 260, 400) ; Lista dei programmi eseguibili
GUICtrlSetData($Listaesegui, $1&"|") ; Per aggiungere nuovi elementi
GUICtrlSetData($Listaesegui, $2&"|")
GUICtrlSetData($Listaesegui, $3&"|")
GUICtrlSetData($Listaesegui, $4&"|")
GUICtrlSetData($Listaesegui, $5&"|")
GUICtrlSetData($Listaesegui, $6&"|")
GUICtrlSetData($Listaesegui, $7&"|")
GUICtrlSetData($Listaesegui, $8&"|")
GUICtrlSetData($Listaesegui, $9&"|")
GUICtrlSetData($Listaesegui, $10&"|")
GUICtrlSetData($Listaesegui, $11&"|")
GUICtrlSetData($Listaesegui, $12&"|")
GUICtrlSetData($Listaesegui, $13&"|")
GUICtrlSetData($Listaesegui, $14&"|")
GUICtrlSetData($Listaesegui, $15&"|")
GUICtrlSetData($Listaesegui, $16&"|")
GUICtrlSetData($Listaesegui, $17&"|")
GUICtrlSetData($Listaesegui, $18&"|")
GUICtrlSetData($Listaesegui, $19&"|")
GUICtrlSetData($Listaesegui, $20&"|")
GUICtrlSetData($Listaesegui, $21&"|")
GUICtrlSetData($Listaesegui, $22&"|")
GUICtrlSetData($Listaesegui, $23&"|")
GUICtrlSetData($Listaesegui, $24&"|")
GUICtrlSetData($Listaesegui, $25&"|")
GUICtrlSetData($Listaesegui, $26&"|")
GUICtrlSetData($Listaesegui, $27&"|")
GUICtrlSetData($Listaesegui, $28&"|")
GUICtrlSetData($Listaesegui, $29&"|")
GUICtrlSetData($Listaesegui, $30&"|")
GUICtrlSetData($Listaesegui, $31&"|")
GUICtrlSetData($Listaesegui, $32&"|")
GUICtrlSetData($Listaesegui, $33&"|")
GUICtrlSetData($Listaesegui, $34&"|")
GUICtrlSetData($Listaesegui, $35&"|")
GUICtrlSetData($Listaesegui, $36&"|")
GUICtrlSetData($Listaesegui, $37&"|")
GUICtrlSetData($Listaesegui, $38&"|")
GUICtrlSetData($Listaesegui, $39&"|")
GUICtrlSetData($Listaesegui, $40&"|")
GUICtrlSetData($Listaesegui, $41&"|")
GUICtrlSetData($Listaesegui, $42&"|")
GUICtrlSetData($Listaesegui, $43&"|")
GUICtrlSetData($Listaesegui, $44&"|")
GUICtrlSetData($Listaesegui, $45&"|")
GUICtrlSetData($Listaesegui, $46&"|")
GUICtrlSetData($Listaesegui, $47&"|")
GUICtrlSetData($Listaesegui, $48&"|")
GUICtrlSetData($Listaesegui, $49&"|")
GUICtrlSetData($Listaesegui, $50&"|")
GUICtrlSetData($Listaesegui, $51&"|")
GUICtrlSetData($Listaesegui, $52&"|")
GUICtrlSetData($Listaesegui, $53&"|")
GUICtrlSetData($Listaesegui, $54&"|")
GUICtrlSetData($Listaesegui, $55&"|")
GUICtrlSetData($Listaesegui, $56&"|")
GUICtrlSetData($Listaesegui, $57&"|")
GUICtrlSetData($Listaesegui, $58&"|")
GUICtrlSetData($Listaesegui, $59&"|")
GUICtrlSetData($Listaesegui, $60&"|")
GUICtrlSetData($Listaesegui, $61&"|")
GUICtrlSetData($Listaesegui, $62&"|")
GUICtrlSetData($Listaesegui, $63&"|")
GUICtrlSetData($Listaesegui, $64&"|")
GUICtrlSetData($Listaesegui, $65&"|")
GUICtrlSetData($Listaesegui, $66a&"|")
GUICtrlSetData($Listaesegui, $66b&"|")
GUICtrlSetData($Listaesegui, $67&"|")
GUICtrlSetData($Listaesegui, $68&"|")
GUICtrlSetData($Listaesegui, $69&"|")
GUICtrlSetData($Listaesegui, $70&"|")
GUICtrlSetData($Listaesegui, $71&"|")
GUICtrlSetData($Listaesegui, $72&"|")
GUICtrlSetData($Listaesegui, $73&"|")
GUICtrlSetData($Listaesegui, $74&"|")
GUICtrlSetData($Listaesegui, $75&"|")
GUICtrlSetData($Listaesegui, $76&"|")
GUICtrlSetData($Listaesegui, $77&"|")
GUICtrlSetData($Listaesegui, $78&"|")
GUICtrlSetData($Listaesegui, $79&"|")
GUICtrlSetData($Listaesegui, $80&"|")
GUICtrlSetData($Listaesegui, $81&"|")
GUICtrlSetData($Listaesegui, $82&"|")
GUICtrlSetData($Listaesegui, $83&"|")
GUICtrlSetData($Listaesegui, $84&"|")
GUICtrlSetData($Listaesegui, $85&"|")
GUICtrlSetData($Listaesegui, $86&"|")
GUICtrlSetData($Listaesegui, $87&"|")


$Processi = ProcessList()
For $i = 1 To $Processi[0][0]
GUICtrlSetData($Listaprocessi, $Processi[$i][0])
Next

$Aggiorna = GUICtrlCreateButton("Aggiorna", 20, 435, 125, 25)
$Termina = GUICtrlCreateButton("Termina", 155, 435, 125, 25)
$Esegui = GUICtrlCreateButton("Esegui", 335, 435, 260, 25)

GUISetState()

While 1


$Evento = GUIGetMsg()
Switch $Evento
Case $GUI_EVENT_CLOSE
Exit

Case $Aggiorna
GUICtrlDelete($Listaprocessi)
$Listaprocessi = GUICtrlCreateList("", 20, 30, 260, 400)
$Processi = ProcessList()
For $i = 1 To $Processi[0][0]
GUICtrlSetData($Listaprocessi,$Processi[$i][0])
Next

Case $Termina
$Proc = GUICtrlRead($Listaprocessi)
ProcessClose($Proc)
GUICtrlDelete($Listaprocessi)
$Listaprocessi = GUICtrlCreateList("", 20, 30, 260, 400)
$Processi = ProcessList()
For $i = 1 To $Processi[0][0]
GUICtrlSetData($Listaprocessi,$Processi[$i][0])
Next

Case $Esegui
               $exe = GUICtrlRead ($Listaesegui)
                       Esegui()
EndSwitch
Wend

Func Esegui()
       If $exe = $1 Then ; Microsoft Office Word
               If Not $exe = "" Then ; Se il processo non esiste allora
               send ("#r") ; Apri "Esegui..."
               sleep (100) ; Tempo di caricamento di 0,1 secondi
               send ("winword.exe") ; digita "*********"
               send ("{ENTER}") ; premi il tasto "ENTER" (Invio)
               EndIf
       ElseIf $exe = $2 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("EXCEL.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $3 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("powerpnt.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $4 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("OUTLOOK.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $5 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("MSACCESS.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $6 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("osk.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $7 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("charmap.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $8 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("pinball.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $9 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("notepad.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $10 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("calc.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $11 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("EXPLORER.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $12 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("mspaint.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $13 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("cmd.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $14 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Windows Sidebar\sidebar.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $15 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Internet Explorer\iexplore.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $16 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("msimn.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $17 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("moviemk.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $18 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\VideoLAN\VLC\vlc.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $19 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("WinRAR.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $20 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("WinZIP32.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $21 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("AcroRd32.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $22 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("Safari.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $23 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Pivot Stickfigure Animator\pivot.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $24 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("msnmsgr.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $25 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("wlmail.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $26 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\eMule\emule.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $27 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Photoshop CS4 [ITA]\Photoshop CS4\PhotoshopPortable.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $28 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("chrome.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $29 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\LogMeIn Hamachi\hamachi-2-ui.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $30 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\AVG\AVG9\avgui.exe")
               send ("{ENTER}")
               EndIF        
       ElseIf $exe = $31 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("QuickTimePlayer.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $32 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("wmplayer.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $33 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("firefox.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $34 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\FileZilla FTP Client\filezilla.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $35 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Core\nero.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $36 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero BackItUp\BackItUp.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $37 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero CoverDesigner\CoverDes.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $38 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero Home\NeroHome.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $39 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero ImageDrive\ImageDrive.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $40 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero MediaHome\NeroMediaHome.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $41 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero PhotoSnap\PhotoSnap.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $42 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero PhotoSnap\PhotoSnapViewer.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $43 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero Recode\Recode.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $44 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero ShowTime\ShowTime.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $45 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero SoundTrax\SoundTrax.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $46 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero StartSmart\NeroStartSmart.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $47 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero Toolkit\CDSpeed.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $48 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero Toolkit\DriveSpeed.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $49 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero Toolkit\InfoTool.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $50 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero Toolkit\NeroBurnRights.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $51 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero Vision\NeroVision.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $52 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Nero\Nero 7\Nero WaveEditor\waveedit.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $53 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\File comuni\Ahead\Lib\NeroScoutOptions.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $54 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\HyCam2\HyCam2.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $55 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Dev-Cpp\devcpp.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $56 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\AutoIt3\AutoIt3.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $57 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\AutoIt3\SciTE\SciTE.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $58 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\AutoIt3\Aut2Exe\Aut2Exe.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $59 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\AutoIt3\Au3Info.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $60 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\AutoIt3\AutoIt3Help.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $61 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\mIRC\mirc.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $62 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\FreeTime\FormatFactory\FormatFactory.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $63 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\Programmi\Acoustica MP3 Audio Mixer\iMix.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $64 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send (@ProgramFilesDir)
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $65 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("winmine.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $66a Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("C:\")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $66b Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("D:\")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $67 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("sol.exe")
               send ("{ENTER}")
               EndIF
       ElseIf $exe = $68 Then ; Altrimenti se ...
               If Not $exe = "" Then
               send ("#r")
               sleep (100)
               send ("control.exe")
               send ("{ENTER}")
               EndIF
       EndIf
EndFunc


(So che avrei potuto creare una funzione che mi toglieva le ripetizioni ma ci ho pensato adesso =)> XD)

E qui l'eseguibile: http://anyhub.net/file/16jv-task-manager-v3.0.exe

SPERO VI PIACCIA ^^

Sono ben accetti commenti, critiche, consigli e (soprattutto) report di bug o errori =)

edit by xmasterx: metti sempre i spoiler per i script piu grandi XD

Edited by xMasteRx - 8/12/2010, 17:27
 
Top
FrontBack
CAT_IMG Posted on 8/12/2010, 17:03     +1   -1




non tutti hanno i programmi che hai inserito, sarebbe bella una lista personalizzata, ma dopo la cosa si fa veramente difficile...

EDIT: oppure ce li hanno ma non sotto C:\
 
Top
3ad_Pr0grammer
CAT_IMG Posted on 8/12/2010, 17:08     +1   -1




Carino...
Ma non vedo l' utilità, c'è già la classica Task Manager, ma comunque bravo per l' impegno =).
Un consiglio, fai scrivere nella lista dei programmi solo quelli che sono nel PC..
 
Top
xMasteRx
CAT_IMG Posted on 8/12/2010, 17:11     +1   -1




Si potrebbe fare creando una array bidimensionale con i nomi delle applicazioni che verrà poi inserita nella lista e con le patch, per esempio:

CODICE
Global $Apps[5][2]
$Apps[0][0]="Notepad"
$Apps[0][1]=@WindowsDir&"\Notepad.exe"
$Apps[1][0]="Prompt Dei Comandi"
$Apps[1][1]=@WindowsDir&"\cmd.exe"
$Apps[2][0]="Windows Live Messenger"
$Apps[2][1]=@ProgramFilesDir&"\Windows Live\Messenger\msnmsgr.exe"
$Apps[3][0]="Sofisticated Media Player" ;LOL XD
$Apps[3][1]=@ProgramFilesDir&"\Sofisticated Media Player\SofisticatedMediaPlayer.exe"

For $x=0 To Ubound($Apps, 1)-1
If FileExists($Apps[$x][1]) Then GUICtrlSetData($ListaEsegui, $Apps[$x][0]&"|")
Next


XD
 
Top
Darkprince97
CAT_IMG Posted on 8/12/2010, 17:13     +1   -1




Bravo^^
Fa in modo che non si veda l'esegui quando apri qualcosa
WinSetState("Esegui",@SW_HIDE)
 
Top
xMasteRx
CAT_IMG Posted on 8/12/2010, 17:14     +1   -1




CITAZIONE (Darkprince97 @ 8/12/2010, 17:13) 
Bravo^^
Fa in modo che non si veda l'esegui quando apri qualcosa
WinSetState("Esegui",@SW_HIDE)

Il comando Send() va in vuoto se la finestra si nasconde XD veramente doveva usare Run() u.u
 
Top
Darkprince97
CAT_IMG Posted on 8/12/2010, 17:21     +1   -1




CITAZIONE (xMasteRx @ 8/12/2010, 17:14) 
CITAZIONE (Darkprince97 @ 8/12/2010, 17:13) 
Bravo^^
Fa in modo che non si veda l'esegui quando apri qualcosa
WinSetState("Esegui",@SW_HIDE)

Il comando Send() va in vuoto se la finestra si nasconde XD veramente doveva usare Run() u.u

Mhh hai ragione y.y
 
Top
riki107
CAT_IMG Posted on 8/12/2010, 19:23     +1   -1




@3ad_Pr0grammer = Bhe l'idea era quella di affiancare il task manager ad un menù di programmi eseguibili ^^ ora provo lo script del MODESTO xMasteRx XD XD no scerzo dai XD
Ora provo a modificarlo un po' e vediamo ^^
 
Top
Aaly
CAT_IMG Posted on 8/12/2010, 19:35     +1   -1




comunque carino il programma, bravo =)
 
Top
riki107
CAT_IMG Posted on 8/12/2010, 19:36     +1   -1




Grazie ^^
 
Top
xMasteRx
CAT_IMG Posted on 8/12/2010, 19:38     +1   -1




CITAZIONE (riki107 @ 8/12/2010, 19:23) 
MODESTO xMasteRx XD XD

looooooooooooooool
ma no io non sono stato non-modesto XD, almeno non ora u.u
 
Top
riki107
CAT_IMG Posted on 8/12/2010, 19:42     +1   -1




xMasteRx se ho ben capito nel codice che hai scritto tu devo modificare Global $Apps[5][2] in Global $Apps[numero degli array][2]; e poi potresti spiegarmi perchè dopo Ubound($Apps, 1) c'è -1??? Grazie mille ^^

XD lo so scherzavo XD XD
 
Top
xMasteRx
CAT_IMG Posted on 8/12/2010, 19:47     +1   -1




Ubound() ritorna il numero di elementi presenti nella dimensione [nel caso la prima, perché ho messo il secondo parametro con 1] della array. Ecco un esempio: con una array con 10 elementi, faccio un loop:
CODICE
Global $arr[10]
For $x=0 To Ubound($arr)
$txt=$arr[$x]
Next

Nell'ultimo loop, $x avrebbe il valore 10, però non esiste l'elemento 10 nella array ^^, ecco perché il -1 dopo ubound, così facciamo in modo che il loop non sorpassi il numero massimo di elementi ;)
 
Top
riki107
CAT_IMG Posted on 8/12/2010, 19:52     +1   -1




ok e Global $Apps[numero dei programmi in lista][2] è giusto?
 
Top
xMasteRx
CAT_IMG Posted on 8/12/2010, 19:53     +1   -1




si
 
Top
19 replies since 8/12/2010, 16:48   351 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity