1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149
| ;Bibliothèque de fonctions
Func Cmd_court()
Add_cmd("notepad", 'notepad.exe')
Add_cmd("msdos", 'cmd.exe')
Add_cmd("calculatrice", 'calc.exe')
Add_cmd("firefox", 'C:\Program Files\Mozilla Firefox\firefox.exe')
Add_cmd("paint", 'mspaint.exe')
Add_cmd("clavier visuel", 'osk.exe')
Add_cmd("gestionnaire d'utilitaires", 'utilman.exe /start')
Add_cmd("loupe", 'magnify.exe')
Add_cmd("assistant d'accessibilité", 'accwiz.exe')
Add_cmd("assistant configuration du réseau", 'rundll32.exe hnetwiz.dll,HomeNetWizardRunDll')
Add_cmd("assistant nouvelle connexion", 'rundll32.exe netshell.dll,StartNCW')
Add_cmd("assistant réseau sans fil", 'rundll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW')
Add_cmd("connexions réseau", 'explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{7007acc7-3202-11d1-aad2-00805fc1270e}')
Add_cmd2("hyper terminal", "C:\Program Files\Windows NT\hypertrm.exe")
Add_cmd("contrôle du volume", 'sndvol32.exe')
Add_cmd2("lecteur windows média", "C:\Program Files\Windows Media Player\wmplayer.exe")
Add_cmd("magnétophone", 'sndrec32.exe')
Add_cmd2("informations système", "C:\Program Files\Fichiers communs\Microsoft Shared\MSInfo\msinfo32.exe")
Add_cmd("nettoyage système", 'cleanmgr.exe')
Add_cmd("table des caractères", 'charmap.exe')
Add_cmd("tâches planifiées", 'explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}')
Add_cmd("utilitaires de sauvegardes", 'ntbackup.exe')
Add_cmd2("carnet d'adresses", "C:\Program Files\Outlook Express\wab.exe")
Add_cmd("connexion bureau à distance", 'mstsc.exe')
Add_cmd("explorateur windows", 'explorer.exe')
Add_cmd("synchroniser", 'mobsync.exe')
Add_cmd("visite guidé de windows xp", 'tourstart.exe')
Add_cmd("worldpad", 'wordpad.exe')
Add_cmd("assist. scanner appareil photo", 'wiaacmgr.exe -SelectDevice')
Add_cmd("dame de pique", 'mshearts.exe')
Add_cmd("démineur", 'winmine.exe')
Add_cmd("freecell", 'freecell.exe')
Add_cmd("pinball", 'PINBALL.EXE')
Add_cmd("solitaire", 'sol.exe')
If $commande = "ouvre lecteur" Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $commande)
CDTray("E:", "open")
EndIf
If $commande = "url mode" Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $commande)
$url = InputBox("ShellRoot Url Mode", "Url :", "", "", 1, 1, 0 , 0)
ShellExecute($url)
$url = InputBox("ShellRoot Url Mode", "Url :", "", "", 1, 1, 0 , 0)
If $url = "exit" Then
$commande = InputBox("ShellRoot", "Commandes :", "", "", 1, 1, 0, 0)
EndIf
EndIf
;###############################################################
; Bloc de commande pour fichier
;###############################################################
If $commande = "file mode" Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $commande)
$file = InputBox("ShellRoot FileMode", "File :", "", "", 1, 1, 0, 0)
If $file = "create file" Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $file)
$file = InputBox("ShellRoot FileMode", "File :", "", "", 1, 1, 0, 0)
_FileCreate($file)
EndIf
If $file = "delete file" Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $file)
$file = InputBox("ShellRoot FileMode", "File :", "", "", 1, 1, 0, 0)
FileDelete($file)
EndIf
If $file = "copy file" Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $file)
$src = InputBox("ShellRoot CopyMode", "Source:", "", "", "", 1, 1, 0, 0)
$dest = InputBox("ShellRoot CopyMode", "Destination :", "", "", "", 1, 1, 0, 0)
FileCopy($src, $dest)
EndIf
If $file = "exit" Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $file)
$commande = InputBox("ShellRoot", "Commandes :", "", "", 1, 1, 0, 0)
EndIf
EndIf
;#################################################################
; Fin du bloc de commande
;#################################################################
If $commande = "exit" Then
$exe = False
Exit
EndIf
EndFunc
Func Add_cmd($param1, $param2)
If $commande = $param1 Then
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $commande)
Run ($param2)
$commande = InputBox("ShellRoot", "Commandes :", "", "", 1, 1, 0, 0)
Else
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & "ERROR")
MsgBox(4096, "Error", "Commande invalide, veuillez resaisir la commande")
$commande = InputBox("ShellRoot", "Commandes :", "", "", 1, 1, 0, 0)
EndIf
EndFunc
Func Add_cmd2($param3, $param4)
If $commande = $param3 Then
FileWriteLine($file2, @WDAY & " " & @MON & " " & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & $commande)
ShellExecute($param4)
$commande = InputBox("ShellRoot", "Commandes :", "", "", 1, 1, 0, 0)
Else
FileWriteLine($file2, @WDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " - " & "ERROR")
MsgBox(4096, "Error", "Commande invalide, veuillez resaisir la commande")
$commande = InputBox("ShellRoot", "Commandes :", "", "", 1, 1, 0, 0)
EndIf
EndFunc |
Partager