[R] Corriger mes erreurs/finir mon script.

[blacksoul305]

Bonjour tout le monde, j'ai besoin d'aide pour corriger certaines de mes erreurs qui d'après, n'ont pas lieu d'être afin de pouvoir terminer ce script.
Avis aux admins.

► Afficher le texte

Désolé pour le titre qui n'a pas l'air au point, mais j'arrivais pas à trouver un titre convenable. Modifiez si vous trouver un titre plus approprié ou faites le moi savoir, je le modifierai.

Donc, première erreur:

► Afficher le texte

Case $Button5
Run("C:\Program Files\Windows Media Player\wmplayer.exe")
If $Button5=0 Then
MsgBox(16, "Erreur démarrage", "Le programme suivant n'existe peut être pas ou rencontre des difficultés à s'exécuter normalement.")
EndIf

Tout me programme est en fait un ensemble de boutons qui sont censés ouvrir le programme ou alors, afficher une MsgBox, qui nous dit que le programme n'a pas été trouvé ou ne s'est pas exécuté. Seulement, la MsgBox ne s'affiche pas quand le programme est inexistant. La seule MsgBox qui fonctionne est celle de l'InputBox.

► Afficher le texte

Case $Button13
$LOL=GUICtrlRead($Input1)
Run($LOL)
If $LOL=0 Then
MsgBox(16, "Erreur démarrage", "Le programme suivant n'existe peut être pas ou rencontre des difficultés à s'exécuter normalement.")
EndIf

Celle-ci marche.

Maintenant, je vous demande un conseil, comme vous pouvez le voir dans le spoiler ci-dessus, c'est le bouton qui dit de lire l'InputBox, comment devrais-je faire pour supprimer le bouton et permettre à l'utilisateur de se contenter d'appuyer sur la touche "Entrée" ?

Merci pour vos futures conseils et/ou corrections.

[Yogui]

Bonjour,

Code : Tout sélectionner

Case $Button5
Run("C:\Program Files\Windows Media Player\wmplayer.exe")
If $Button5=0 Then
MsgBox(16, "Erreur démarrage", "Le programme suivant n'existe peut être pas ou rencontre des difficultés à s'exécuter normalement.")
EndIf

je commencerai par vous conseiller de lire l'aide de la fonction Run...

Code : Tout sélectionner

$PID = Run("C:\Program Files\Windows Media Player\wmplayer.exe")
if  $pid = 0 then
MsgBox(16, "Erreur démarrage", "Le programme suivant n'existe peut être pas ou rencontre des difficultés à s'exécuter normalement.")
endif

Pour le second point merci de lire la doc de : Hotkeyset

Voilà bonne lecture

[blacksoul305]

Merci pour la réponse.

Le fait d'utiliser $pid marche très bien.
J'ai lu pour la fonction mais j'ai une erreur. En effet je pensais à "HotKeySet" mais je ne savais pas comment formuler. Pouvez vous me rectifier ?

A la suite du formulaire de ma GUI:

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ENTER}","Valider")

Tout en bas du script, après la fermeture de ma boucle While:

► Afficher le texte

Code : Tout sélectionner

Func Valider()
    $LOL=GUICtrlRead($Input1)
    Run($LOL)
    If $LOL=0 Then
        MsgBox(16, "Erreur démarrage", "Le programme suivant n'existe peut être pas ou rencontre des difficultés à s'exécuter normalement.")
    EndIf
[b]EndFunc[/b]

Merci d'avance.

EDIT: Je m'excuse, grosse erreur de ma part, j'ai juste oublié le "EndFunc" à la fin de ma fonction. Résolu !