[R] Exécution variable selon réponse

[karl789]

Bonjour,

Voila mon souci, j'aimerai excuter une action si l'on répond "oui" une question et biensur une autre action si on répond "non"

Pour cela je voudrai utilisé le msgbox "flags 4" yes or no

Quelqu'un aurai une solution ??

J'ai essayer cela mais pas top.

► Afficher le texte

$yesorno = MsgBox (4, " Choix activation clavier, souris distant" , "Voulez vous activer les clavier/souris de l'utilisateur distant ?")

If $yesorno = (6) ;6 correspond à oui, merci F1 (et 7 à non)
Then
Execute("reg add " & $regdir & " /v DisableLocalInputs /t REG_DWORD /d 00000001 /f")

Else

Execute("reg add " & $regdir & " /v DisableLocalInputs /t REG_DWORD /d 00000000 /f")

EndIf

[silvere]

Si a installer le pack fr, tu peut utiliser un logiciel nommé "CodeWizard" qui se trouve dans Outils > CodeWizard
Il te permet de géré les msgbox facilement.

[karl789]

Après instalation du pack_fr. Je n'ai même plus accès à F1 encore moins au outils. lol

[mikell]

Ben quoi ? il va bien ce script...

Code : Tout sélectionner

$yesorno = MsgBox (4, " Choix activation clavier, souris distant" , "Voulez vous activer les clavier/souris de l'utilisateur distant ?")
If $yesorno = 6 Then
    msgbox(0,"", "oui")
Else
    msgbox(0,"", "non")
EndIf

[karl789]

Ben quoi ? il va bien ce script...

Code : Tout sélectionner

$yesorno = MsgBox (4, " Choix activation clavier, souris distant" , "Voulez vous activer les clavier/souris de l'utilisateur distant ?")
If $yesorno = 6 Then
    msgbox(0,"", "oui")
Else
    msgbox(0,"", "non")
EndIf

Peu être mes "()" qui géner tout cela alors. Autant pour moi.

Merci beaucoup je teste dés que j'aurai réinstaller mon autoit. Le pack a du me créer un conflit avec l'ancien.

[TopXm]

Hello

J'ai essayer cela mais pas top.

C'est ton Then qui est mal placé. Soit tu le mets sur la même ligne, soit tu ajoutes le caractère de continuation de ligne (underscore)

Code : Tout sélectionner

If $Tralala = 1 Then
   Msgbox(0, '', 'Tralala égal 1')
Endif
 

Mais de toute façon ça ne marchera pas attendu qu'Execute() n'est pas fait pour lancer de la "commande DOS". Par contre RegWrite() lui est approprié

Code : Tout sélectionner

$RegDir = 'HKEY_CURRENT_USER\Testouille'
$yesorno = MsgBox(4, " Choix activation clavier, souris distant", "Voulez vous activer les clavier/souris de l'utilisateur distant ?")
If $yesorno = (6) _ ;6 correspond à oui, merci F1 (et 7 à non)
    Then
    RegWrite($regdir , 'DisableLocalInputs', 'REG_DWORD', '00000001')
Else
    RegWrite($regdir , 'DisableLocalInputs', 'REG_DWORD', '00000000')
EndIf