PcManager, Task Multifunzione

« Older   Newer »
  Share  
Crazy_Mauro
icon9  CAT_IMG Posted on 26/5/2008, 22:41     +1   -1




Non so perchè l'ho fatto ma racchiude molte funzioni.

Potete scaricarlo da QUI

oppure

CODICE
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/

#include <GUIConstants.au3>
#NoTrayIcon
#include <IE.au3>

;Finestra Principale
$btnip = ""
$Form = GUICreate("Pc Manager", 225, 255)
GUISetBkColor(0x000000)
$SysInfo = GUICtrlCreateLabel("Nome Utente: " & @UserName & @CRLF & "Sistema Operativo: " & @OSVersion & @CRLF & "Service PACK: " & @OSServicePack & @CRLF & "Processore: " & @ProcessorArch & @CRLF & "Indirizzo IP: " & @IPAddress1 & @CRLF & "Nome del computer: " & @ComputerName, 23, 20, 170, 130)
GUICtrlSetColor(-1, 0xC0C0C0)
$ButtonCLS = GUICtrlCreateButton("Chiudi", 10, 200, 200, 25)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$ButtonTER = GUICtrlCreateButton("Avvia il Terminale", 10, 175, 200, 23)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)

;Tasti e pop-up del menu
$Menu_File = GUICtrlCreateMenu("File")
 $Exit = GUICtrlCreateMenuItem("Chiudi", $Menu_File)
$Menu_CDTray = GUICtrlCreateMenu("CDTray")
 $CDTOpen = GUICtrlCreateMenuItem("Apri", $Menu_CDTray)
 $CDTClose = GUICtrlCreateMenuItem("Chiudi", $Menu_CDTray)
$MenuACT = GUICtrlCreateMenu(@Username)
 $TaskMGR = GUICtrlCreateMenuItem("Task-Manager", $MenuACT)
 $Shutdown = GUICtrlCreateMenuItem("Arresta il sistema", $MenuACT)
$MenuHACK = GUICtrlCreateMenu("Tools")
 $FakeMl = GUICtrlCreateMenuItem("Invia una Fake-Mail", $MenuHACK)
 $SMS = GUICtrlCreateMenuItem("SMS Gratis", $MenuHACK)
$Help = GUICtrlCreateMenu("?")
 $HelpAbout = GUICtrlCreateMenuItem("About", $Help)
 
 
;Funzioni della finestra principale
GUISetState(@SW_SHOW)

While 1
 $Msg = GUIGetMsg()
 Switch $Msg
Case $GUI_EVENT_CLOSE
        Exit        
         Case $Exit
        Exit
Case $Shutdown
       Shut_down()
Case $SMS
If FileExists("C:\Program Files\XMS7\XMS7.exe") Then
        Run("XMS7.exe", "C:\Program Files\XMS7\")
Else
        _IECreate("http://www.enzoleonardi.it/getfile.php?name=xms7setup")
EndIf
Case $TaskMGR
        Lista()
Case $CDTOpen;
    CDTray("E:", "open")
        CDTray("D:", "open")
        CDTray("F:", "open")
Case $CDTClose;
        CDTray("E:", "close")
        CDTray("D:", "close")
        CDTray("F:", "close")
Case $ButtonCLS
        Exit
Case $ButtonTER
        Run("cmd.exe", @SystemDir)
case $FakeMl
        _IECreate("http://www.secretsite.altervista.org/Fake Mail/")
        ProcessClose("Task.exe")
Case $HelpAbout
        MsgBox(64, "About", "Programma compilato in linguaggio Autoit. " & @CRLF & @CRLF & "Autore: The_Black_Dragon. " & @CRLF & @CRLF & "http://www.secretsite.altervista.org" & @CRLF & @CRLF & "Programma open source. Per visualizzare il programma: http://www.secretsite.altervista.org/phpbb/viewtopic.php?f=27&t=5&sid=7a34f98f24904b9bb1c85135f027cb89")
EndSwitch
WEnd

;Funzioni del Task Manager
Func RefreshData($parametro)
   GUICtrlSetData($parametro, "")
   $array = ProcessList()
   For $i = 0 To $array[0][0]
       GUICtrlSetData($parametro, $array[$i][0])
   Next
EndFunc

Func Lista();
   $Processi = GUICreate("Lista Processi", 400, 300, 0, 0, 2, $WS_EX_MDICHILD, $Form)
       GUISetBkColor(0x000000)
   GUISetState(@SW_SHOW)
   $mylist = GUICtrlCreateList("", 0, 0, 394, 220)
       GUICtrlSetColor(-1, 0xCCCCCC)
   GUICtrlSetBkColor(-1, 0x000000)
   $array = ProcessList();
   For $i = 0 To $array[0][0]
       GUICtrlSetData($mylist, $array[$i][0])
   Next
   $close = GUICtrlCreateButton("Chiudi", 10, 250)
       GUICtrlSetColor(-1, 0xCCCCCC)
   GUICtrlSetBkColor(-1, 0x6A6A6A)
   $StopSelected = GUICtrlCreateButton("Termina Processo", 200, 250)
       GUICtrlSetColor(-1, 0xCCCCCC)
   GUICtrlSetBkColor(-1, 0x6A6A6A)
   While (1)
       Switch GUIGetMsg()
           Case $close
               GUIDelete()
               ExitLoop
           Case $StopSelected
               $Processi = GUICtrlRead($mylist)
               ProcessClose($Processi)
              RefreshData($mylist)
       EndSwitch
   WEnd
EndFunc

;Funzione Shutdown

Func Shut_down()
       MsgBox(0, "Shutdown", "Shutdown fra 30 secondi. Se non vuoi più eseguire lo shutdown terminare l'applicazione dal Task-Manager")
       Sleep(10000)
       MsgBox(0, "Shutdown", "Shutdown fra 20 secondi. Se non vuoi più eseguire lo shutdown terminare l'applicazione dal Task-Manager")
       Sleep(10000)
       MsgBox(0, "Shutdown", "Shutdown fra 10 secondi. Se non vuoi più eseguire lo shutdown terminare l'applicazione dal Task-Manager")
       Sleep(10000)
       MsgBox(0, "Shutdown", "Shutdown")
       Sleep(25)
       Shutdown(8)
       EndFunc
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/


Presto provvederò ad incrementarlo con altre funzioni tra cui il ping e un lettore mp3.
 
Top
lknokl
CAT_IMG Posted on 27/5/2008, 11:48     +1   -1




molto carino ^^ bravo ^^
 
Top
MatteoJug
CAT_IMG Posted on 27/5/2008, 15:36     +1   -1




carino, però io sistemerei lo shutdown: una volta avviato, non è possibile fermarlo, l'unico modo è terminare il processo...
 
Top
Crazy_Mauro
CAT_IMG Posted on 27/5/2008, 15:39     +1   -1




CITAZIONE (MatteoJug @ 27/5/2008, 16:36)
carino, però io sistemerei lo shutdown: una volta avviato, non è possibile fermarlo, l'unico modo è terminare il processo...

Appunto per questo ho messo 3 msgbox, uno ogni 10 secondi, così l'utente ha il tempo di chiudere l'applicazione.. in altro modo non saprei fare.
 
Top
MatteoJug
CAT_IMG Posted on 27/5/2008, 16:02     +1   -1




CODICE
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/

#include <GUIConstants.au3>
#NoTrayIcon
#include <IE.au3>

;Finestra Principale
$btnip = ""
$Form = GUICreate("Pc Manager", 245, 255)
GUISetBkColor(0x000000)
$SysInfo = GUICtrlCreateLabel("Nome Utente: " & @UserName & @CRLF & "Sistema Operativo: " & @OSVersion & @CRLF & "Service PACK: " & @OSServicePack & @CRLF & "Processore: " & @ProcessorArch & @CRLF & "Indirizzo IP: " & @IPAddress1 & @CRLF & "Nome del computer: " & @ComputerName, 23, 20, 190, 130)
GUICtrlSetColor(-1, 0xC0C0C0)
$ButtonCLS = GUICtrlCreateButton("Chiudi", 10, 200, 220, 25)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$ButtonTER = GUICtrlCreateButton("Avvia il Terminale", 10, 175, 220, 23)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$ButtonAbortSd = GUICtrlCreateButton("Annulla ShutDown", 10, 150, 220, 23)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
GUICtrlSetState(-1,128+32)

;Tasti e pop-up del menu
$Menu_File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem("Chiudi", $Menu_File)
$Menu_CDTray = GUICtrlCreateMenu("CDTray")
$CDTOpen = GUICtrlCreateMenuItem("Apri", $Menu_CDTray)
$CDTClose = GUICtrlCreateMenuItem("Chiudi", $Menu_CDTray)
$MenuACT = GUICtrlCreateMenu(@Username)
$TaskMGR = GUICtrlCreateMenuItem("Task-Manager", $MenuACT)
$Shutdown = GUICtrlCreateMenuItem("Arresta il sistema", $MenuACT)
$MenuHACK = GUICtrlCreateMenu("Tools")
$FakeMl = GUICtrlCreateMenuItem("Invia una Fake-Mail", $MenuHACK)
$SMS = GUICtrlCreateMenuItem("SMS Gratis", $MenuHACK)
$Help = GUICtrlCreateMenu("?")
$HelpAbout = GUICtrlCreateMenuItem("About", $Help)


;Funzioni della finestra principale
GUISetState(@SW_SHOW)

$Shutdown_Timer_Limit=30000; in MilliSecondi
$Shutdown_B=False
$Shutdown_Timer=False
While 1
       $Msg = GUIGetMsg()
       Switch $Msg
               Case $GUI_EVENT_CLOSE,$Exit,$ButtonCLS
                       Exit
               Case $ButtonAbortSd
                       $Shutdown_B=False
                       $Shutdown_Timer=False
                       GUICtrlSetState($ButtonAbortSd,128+32)
                       WinSetTitle($Form,"","Pc Manager")
               Case $Shutdown
                       $Shutdown_Timer_Limit_New=InputBox("","Inserire i SECONDI prima dello shutdown",$Shutdown_Timer_Limit/1000)
                       if @error then ContinueLoop
                       $Shutdown_Timer_Limit=$Shutdown_Timer_Limit_New*1000
                       $Shutdown_B=True
                       $Shutdown_Timer=TimerInit()
                       GUICtrlSetState($ButtonAbortSd,64+16)
               Case $SMS
                       If FileExists("C:\Program Files\XMS7\XMS7.exe") Then
                               Run("XMS7.exe", "C:\Program Files\XMS7\")
                       Else
                               _IECreate("http://www.enzoleonardi.it/getfile.php?name=xms7setup")
                       EndIf
               Case $TaskMGR
                       Lista()
               Case $CDTOpen;
                       $CD_List=DriveGetDrive("CDROM")
                       For $i=1 to $CD_List[0]
                               CDTray($CD_List[$i], "open")
                       Next
               Case $CDTClose;
                       $CD_List=DriveGetDrive("CDROM")
                       For $i=1 to $CD_List[0]
                               CDTray($CD_List[$i], "close")
                       Next
               Case $ButtonTER
                       Run("cmd.exe", @SystemDir)
               case $FakeMl
                       _IECreate("http://www.secretsite.altervista.org/Fake Mail/")
                       ProcessClose("Task.exe")
               Case $HelpAbout
                       MsgBox(64, "About", "Programma compilato in linguaggio Autoit. " & @CRLF & @CRLF & "Autore: The_Black_Dragon. " & @CRLF & @CRLF & "http://www.secretsite.altervista.org" & @CRLF & @CRLF & "Programma open source. Per visualizzare il programma: http://www.secretsite.altervista.org/phpbb/viewtopic.php?f=27&t=5&sid=7a34f98f24904b9bb1c85135f027cb89")
       EndSwitch
       if $Shutdown_B=True and TimerDiff($Shutdown_Timer)>$Shutdown_Timer_Limit Then
               Shutdown(8)
       EndIf
       if $Shutdown_B=True Then WinSetTitle($Form,"","ShutDown Avviato: -" & Int(($Shutdown_Timer_Limit-TimerDiff($Shutdown_Timer))/1000))
WEnd

;Funzioni del Task Manager
Func RefreshData($parametro)
  GUICtrlSetData($parametro, "")
  $array = ProcessList()
  For $i = 0 To $array[0][0]
      GUICtrlSetData($parametro, $array[$i][0])
  Next
EndFunc

Func Lista();
  $Processi = GUICreate("Lista Processi", 400, 300, 0, 0, 2, $WS_EX_MDICHILD, $Form)
      GUISetBkColor(0x000000)
  GUISetState(@SW_SHOW)
  $mylist = GUICtrlCreateList("", 0, 0, 394, 220)
      GUICtrlSetColor(-1, 0xCCCCCC)
  GUICtrlSetBkColor(-1, 0x000000)
  $array = ProcessList();
  For $i = 0 To $array[0][0]
      GUICtrlSetData($mylist, $array[$i][0])
  Next
  $close = GUICtrlCreateButton("Chiudi", 10, 250)
      GUICtrlSetColor(-1, 0xCCCCCC)
  GUICtrlSetBkColor(-1, 0x6A6A6A)
  $StopSelected = GUICtrlCreateButton("Termina Processo", 200, 250)
      GUICtrlSetColor(-1, 0xCCCCCC)
  GUICtrlSetBkColor(-1, 0x6A6A6A)
  While (1)
      Switch GUIGetMsg()
          Case $close
              GUIDelete()
              ExitLoop
          Case $StopSelected
              $Processi = GUICtrlRead($mylist)
              ProcessClose($Processi)
             RefreshData($mylist)
      EndSwitch
  WEnd
EndFunc
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/

Ho trovato un modo per rendere più comodo lo ShutDown.
Dimmi se ti può essere utile.
 
Top
Crazy_Mauro
CAT_IMG Posted on 31/5/2008, 18:50     +1   -1




CITAZIONE (MatteoJug @ 27/5/2008, 17:02)
CODICE
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/

#include <GUIConstants.au3>
#NoTrayIcon
#include <IE.au3>

;Finestra Principale
$btnip = ""
$Form = GUICreate("Pc Manager", 245, 255)
GUISetBkColor(0x000000)
$SysInfo = GUICtrlCreateLabel("Nome Utente: " & @UserName & @CRLF & "Sistema Operativo: " & @OSVersion & @CRLF & "Service PACK: " & @OSServicePack & @CRLF & "Processore: " & @ProcessorArch & @CRLF & "Indirizzo IP: " & @IPAddress1 & @CRLF & "Nome del computer: " & @ComputerName, 23, 20, 190, 130)
GUICtrlSetColor(-1, 0xC0C0C0)
$ButtonCLS = GUICtrlCreateButton("Chiudi", 10, 200, 220, 25)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$ButtonTER = GUICtrlCreateButton("Avvia il Terminale", 10, 175, 220, 23)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$ButtonAbortSd = GUICtrlCreateButton("Annulla ShutDown", 10, 150, 220, 23)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
GUICtrlSetState(-1,128+32)

;Tasti e pop-up del menu
$Menu_File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem("Chiudi", $Menu_File)
$Menu_CDTray = GUICtrlCreateMenu("CDTray")
$CDTOpen = GUICtrlCreateMenuItem("Apri", $Menu_CDTray)
$CDTClose = GUICtrlCreateMenuItem("Chiudi", $Menu_CDTray)
$MenuACT = GUICtrlCreateMenu(@Username)
$TaskMGR = GUICtrlCreateMenuItem("Task-Manager", $MenuACT)
$Shutdown = GUICtrlCreateMenuItem("Arresta il sistema", $MenuACT)
$MenuHACK = GUICtrlCreateMenu("Tools")
$FakeMl = GUICtrlCreateMenuItem("Invia una Fake-Mail", $MenuHACK)
$SMS = GUICtrlCreateMenuItem("SMS Gratis", $MenuHACK)
$Help = GUICtrlCreateMenu("?")
$HelpAbout = GUICtrlCreateMenuItem("About", $Help)


;Funzioni della finestra principale
GUISetState(@SW_SHOW)

$Shutdown_Timer_Limit=30000; in MilliSecondi
$Shutdown_B=False
$Shutdown_Timer=False
While 1
       $Msg = GUIGetMsg()
       Switch $Msg
               Case $GUI_EVENT_CLOSE,$Exit,$ButtonCLS
                       Exit
               Case $ButtonAbortSd
                       $Shutdown_B=False
                       $Shutdown_Timer=False
                       GUICtrlSetState($ButtonAbortSd,128+32)
                       WinSetTitle($Form,"","Pc Manager")
               Case $Shutdown
                       $Shutdown_Timer_Limit_New=InputBox("","Inserire i SECONDI prima dello shutdown",$Shutdown_Timer_Limit/1000)
                       if @error then ContinueLoop
                       $Shutdown_Timer_Limit=$Shutdown_Timer_Limit_New*1000
                       $Shutdown_B=True
                       $Shutdown_Timer=TimerInit()
                       GUICtrlSetState($ButtonAbortSd,64+16)
               Case $SMS
                       If FileExists("C:\Program Files\XMS7\XMS7.exe") Then
                               Run("XMS7.exe", "C:\Program Files\XMS7\")
                       Else
                               _IECreate("http://www.enzoleonardi.it/getfile.php?name=xms7setup")
                       EndIf
               Case $TaskMGR
                       Lista()
               Case $CDTOpen;
                       $CD_List=DriveGetDrive("CDROM")
                       For $i=1 to $CD_List[0]
                               CDTray($CD_List[$i], "open")
                       Next
               Case $CDTClose;
                       $CD_List=DriveGetDrive("CDROM")
                       For $i=1 to $CD_List[0]
                               CDTray($CD_List[$i], "close")
                       Next
               Case $ButtonTER
                       Run("cmd.exe", @SystemDir)
               case $FakeMl
                       _IECreate("http://www.secretsite.altervista.org/Fake Mail/")
                       ProcessClose("Task.exe")
               Case $HelpAbout
                       MsgBox(64, "About", "Programma compilato in linguaggio Autoit. " & @CRLF & @CRLF & "Autore: The_Black_Dragon. " & @CRLF & @CRLF & "http://www.secretsite.altervista.org" & @CRLF & @CRLF & "Programma open source. Per visualizzare il programma: http://www.secretsite.altervista.org/phpbb/viewtopic.php?f=27&t=5&sid=7a34f98f24904b9bb1c85135f027cb89")
       EndSwitch
       if $Shutdown_B=True and TimerDiff($Shutdown_Timer)>$Shutdown_Timer_Limit Then
               Shutdown(8)
       EndIf
       if $Shutdown_B=True Then WinSetTitle($Form,"","ShutDown Avviato: -" & Int(($Shutdown_Timer_Limit-TimerDiff($Shutdown_Timer))/1000))
WEnd

;Funzioni del Task Manager
Func RefreshData($parametro)
  GUICtrlSetData($parametro, "")
  $array = ProcessList()
  For $i = 0 To $array[0][0]
      GUICtrlSetData($parametro, $array[$i][0])
  Next
EndFunc

Func Lista();
  $Processi = GUICreate("Lista Processi", 400, 300, 0, 0, 2, $WS_EX_MDICHILD, $Form)
      GUISetBkColor(0x000000)
  GUISetState(@SW_SHOW)
  $mylist = GUICtrlCreateList("", 0, 0, 394, 220)
      GUICtrlSetColor(-1, 0xCCCCCC)
  GUICtrlSetBkColor(-1, 0x000000)
  $array = ProcessList();
  For $i = 0 To $array[0][0]
      GUICtrlSetData($mylist, $array[$i][0])
  Next
  $close = GUICtrlCreateButton("Chiudi", 10, 250)
      GUICtrlSetColor(-1, 0xCCCCCC)
  GUICtrlSetBkColor(-1, 0x6A6A6A)
  $StopSelected = GUICtrlCreateButton("Termina Processo", 200, 250)
      GUICtrlSetColor(-1, 0xCCCCCC)
  GUICtrlSetBkColor(-1, 0x6A6A6A)
  While (1)
      Switch GUIGetMsg()
          Case $close
              GUIDelete()
              ExitLoop
          Case $StopSelected
              $Processi = GUICtrlRead($mylist)
              ProcessClose($Processi)
             RefreshData($mylist)
      EndSwitch
  WEnd
EndFunc
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/

Ho trovato un modo per rendere più comodo lo ShutDown.
Dimmi se ti può essere utile.

Molto bene! Grazie
 
Top
I.Ren
CAT_IMG Posted on 31/5/2008, 19:44     +1   -1




Molto carino! good game!
 
Top
Divine Soul
CAT_IMG Posted on 1/6/2008, 12:30     +1   -1




Ho fatto una leggerissima modifica che io trovo essenziale, ho fatto che al posto di aprire i siti con IE li apre con il browser predefinito del sistema, per quelli che come
me odiano IE ;)
Cmq bel programma, bello davvero ;)

CODE:
SPOILER (click to view)
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/

#include <guiconstants.au3>
#NoTrayIcon
#include <ie.au3>

;Finestra Principale
$btnip = ""
$Form = GUICreate("Pc Manager", 225, 255)
GUISetBkColor(0x000000)
$SysInfo = GUICtrlCreateLabel("Nome Utente: " & @UserName & @CRLF & "Sistema Operativo: " & @OSVersion & @CRLF & "Service PACK: " & @OSServicePack & @CRLF & "Processore: " & @ProcessorArch & @CRLF & "Indirizzo IP: " & @IPAddress1 & @CRLF & "Nome del computer: " & @ComputerName, 23, 20, 170, 130)
GUICtrlSetColor(-1, 0xC0C0C0)
$ButtonCLS = GUICtrlCreateButton("Chiudi", 10, 200, 200, 25)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$ButtonTER = GUICtrlCreateButton("Avvia il Terminale", 10, 175, 200, 23)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)

;Tasti e pop-up del menu
$Menu_File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem("Chiudi", $Menu_File)
$Menu_CDTray = GUICtrlCreateMenu("CDTray")
$CDTOpen = GUICtrlCreateMenuItem("Apri", $Menu_CDTray)
$CDTClose = GUICtrlCreateMenuItem("Chiudi", $Menu_CDTray)
$MenuACT = GUICtrlCreateMenu(@Username)
$TaskMGR = GUICtrlCreateMenuItem("Task-Manager", $MenuACT)
$Shutdown = GUICtrlCreateMenuItem("Arresta il sistema", $MenuACT)
$MenuHACK = GUICtrlCreateMenu("Tools")
$FakeMl = GUICtrlCreateMenuItem("Invia una Fake-Mail", $MenuHACK)
$SMS = GUICtrlCreateMenuItem("SMS Gratis", $MenuHACK)
$Help = GUICtrlCreateMenu("?")
$HelpAbout = GUICtrlCreateMenuItem("About", $Help)


;Funzioni della finestra principale
GUISetState(@SW_SHOW)

While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Shutdown
Shut_down()
Case $SMS
If FileExists("C:\Program Files\XMS7\XMS7.exe") Then
Run("XMS7.exe", "C:\Program Files\XMS7\")
Else
ShellExecute ("http://www.enzoleonardi.it/getfile.php?name=xms7setup") ; Questo tramite il browser predefinito ;)
;_IECreate("http://www.enzoleonardi.it/getfile.php?name=xms7setup") Questo tramite IE
EndIf
Case $TaskMGR
Lista()
Case $CDTOpen;
CDTray("E:", "open")
CDTray("D:", "open")
CDTray("F:", "open")
Case $CDTClose;
CDTray("E:", "close")
CDTray("D:", "close")
CDTray("F:", "close")
Case $ButtonCLS
Exit
Case $ButtonTER
Run("cmd.exe", @SystemDir)
case $FakeMl
ShellExecute ("http://www.secretsite.altervista.org/Fake Mail/") ; Questo tramite il browser predefinito ;)
;_IECreate("http://www.secretsite.altervista.org/Fake Mail/") Questo tramite IE
ProcessClose("Task.exe")
Case $HelpAbout
MsgBox(64, "About", "Programma compilato in linguaggio Autoit. " & @CRLF & @CRLF & "Autore: The_Black_Dragon. " & @CRLF & @CRLF & "http://www.secretsite.altervista.org" & @CRLF & @CRLF & "Programma open source. Per visualizzare il programma: http://www.secretsite.altervista.org/phpbb...5f027cb89")
EndSwitch
WEnd

;Funzioni del Task Manager
Func RefreshData($parametro)
GUICtrlSetData($parametro, "")
$array = ProcessList()
For $i = 0 To $array[0][0]
GUICtrlSetData($parametro, $array[$i][0])
Next
EndFunc

Func Lista();
$Processi = GUICreate("Lista Processi", 400, 300, 0, 0, 2, $WS_EX_MDICHILD, $Form)
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)
$mylist = GUICtrlCreateList("", 0, 0, 394, 220)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x000000)
$array = ProcessList();
For $i = 0 To $array[0][0]
GUICtrlSetData($mylist, $array[$i][0])
Next
$close = GUICtrlCreateButton("Chiudi", 10, 250)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
$StopSelected = GUICtrlCreateButton("Termina Processo", 200, 250)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor(-1, 0x6A6A6A)
While (1)
Switch GUIGetMsg()
Case $close
GUIDelete()
ExitLoop
Case $StopSelected
$Processi = GUICtrlRead($mylist)
ProcessClose($Processi)
RefreshData($mylist)
EndSwitch
WEnd
EndFunc

;Funzione Shutdown

Func Shut_down()
MsgBox(0, "Shutdown", "Shutdown fra 30 secondi. Se non vuoi più eseguire lo shutdown terminare l'applicazione dal Task-Manager")
Sleep(10000)
MsgBox(0, "Shutdown", "Shutdown fra 20 secondi. Se non vuoi più eseguire lo shutdown terminare l'applicazione dal Task-Manager")
Sleep(10000)
MsgBox(0, "Shutdown", "Shutdown fra 10 secondi. Se non vuoi più eseguire lo shutdown terminare l'applicazione dal Task-Manager")
Sleep(10000)
MsgBox(0, "Shutdown", "Shutdown")
Sleep(25)
Shutdown(8)
EndFunc
;Script by Crazy_Mauro / The_Black_Dragon . http://www.secretsite.altervista.org/
 
Top
Crazy_Mauro
CAT_IMG Posted on 1/6/2008, 14:45     +1   -1




CITAZIONE (Divine Soul @ 1/6/2008, 13:30)
Ho fatto una leggerissima modifica che io trovo essenziale, ho fatto che al posto di aprire i siti con IE li apre con il browser predefinito del sistema, per quelli che come
me odiano IE ;)
Cmq bel programma, bello davvero ;)

___________________

Xfetto! grazie anche perchè pure io odio IExplorer.. :D
 
Top
lknokl
CAT_IMG Posted on 2/6/2008, 10:24     +1   -1




Divine Soul è il trucchetto di shell execute che ti avevo accennato ^^
 
Top
Divine Soul
CAT_IMG Posted on 2/6/2008, 12:06     +1   -1




CITAZIONE (lknokl @ 2/6/2008, 11:24)
Divine Soul è il trucchetto di shell execute che ti avevo accennato ^^

Si esatto, davvero molto utile ;)
 
Top
10 replies since 26/5/2008, 22:41   196 views
  Share  
 

Programmi
 

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