[AutoIt] Une gestion d'erreur qui apparait trop souvent

Namkan · 29/01/2011, 14h21

Bonjour à tous !
J'ai un petit problème j'ai codé une gestion d'erreur sous condition (très simple) mais le problème c'est que même si je fait la bonne commande il affiche une erreur...
Regarder un bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ma gestion d'erreur se trouve à la fin dans les fonctions et voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
	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)

Le problème que je rencontre ici c'est que même si la commande est correct il affiche le message d'erreur et 2 fois sur 10 il éxécute la commande...
Où est mon erreur ? Est ce que j'ai oublier des choses ?

Merci d'avance =)
Cordialement Namkan

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email