Erreur dans un script AutoIt

[Résolu/Fermé]
Signaler
-
 azazaz -
Bonjour,
J'ai créer un script AutoIt de QCM mais la fenêtre s'ouvre et se ferme aussitôt.
Voici mon script :
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1_1_1_1 = GUICreate("ALex", 628, 429, 193, 127)
$R1 = GUICtrlCreateRadio("Ils ont copié un coureur", 168, 192, 313, 33)
$OK = GUICtrlCreateButton("OK", 80, 344, 369, 49)
$R2 = GUICtrlCreateRadio("Pour aller plus vite", 168, 232, 457, 41)
$R3 = GUICtrlCreateRadio("Parce qu'ils avaient chaud", 168, 280, 591, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Select
Case $GUI_EVENT_CLOSE
Exit
Case $nMsg = $OK
if GUICtrlRead($R1) = 1 Then
msgbox(0,"Réponse","Eh oui ! En effet il existe beaucoup d'explications. L'une d'entre elles viendrait d'un coureur qui aurait perdu son pagne et quand même gagné la course. Les autres l'ont alors copié par superstition.")
if GUICtrlRead($R2, $R3) = 1 Then
msgbox(0, "Erreur", "Revoi(e) ton histoire")
EndIf
EndIf
EndSelect
WEnd
Merci de bien vouloir m'aider

1 réponse

Je m'excuse mais je me suis trompé pour le script
Voici le bon :
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\fgjytrtuo\Desktop\Alexandre_fichiers\Form1_1_1_1_1.kxf
$Form1_1_1_1_1 = GUICreate("ALex", 629, 413, 193, 127)
$R1 = GUICtrlCreateRadio("Ils ont copié un coureur", 168, 192, 313, 33)
$OK = GUICtrlCreateButton("OK", 80, 344, 369, 49)
$R2 = GUICtrlCreateRadio("Pour aller plus vite", 168, 232, 457, 41)
$R3 = GUICtrlCreateRadio("Parce qu'ils avaient chaud", 168, 280, 591, 41)
$Label1 = GUICtrlCreateLabel("Catégories : Drôles d'histoire", 160, 8, 137, 17)
$Label2 = GUICtrlCreateLabel("Pourquoi les athlètes de la Grèce antique couraient-ils nus?", 152, 56, 283, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Select
Case $GUI_EVENT_CLOSE
Exit
Case $nMsg = $OK
if GUICtrlRead($R1) = 1 Then
msgbox(0,"Réponse","Eh oui ! En effet il existe beaucoup d'explications. L'une d'entre elles viendrait d'un coureur qui aurait perdu son pagne et quand même gagné la course. Les autres l'ont alors copié par superstition.")
if GUICtrlRead($R2, $R3) = 1 Then
msgbox(0, "Erreur", "Revoi(e) ton histoire")
EndIf
EndIf
EndSelect
WEnd


Et j'ai un autre script qui a un autre problème
Le-voici :

#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Générer fichier ini", 300, 300)
$Label1 = GUICtrlCreateLabel("Nom", 16, 8, 26, 17)
$Label2 = GUICtrlCreateLabel("Prénom", 16, 32, 40, 17)
$Label3 = GUICtrlCreateLabel("Site web", 16, 56, 37, 17)
$Label4 = GUICtrlCreateLabel("N ° de tel", 16, 80, 57, 17)

$typefile = GUICtrlCreateCombo("RTF", 16, 104, 77, 17) ; create first item
GUICtrlSetData(-1, "HTML|TXT|INI", "HTML")
$var = FileSelectFolder("Sélectionner un fichier.", "")
$InputNom = GUICtrlCreateInput ('', 112, 8, 153, 21)
$InputPrenom = GUICtrlCreateInput ('', 112, 32, 153, 21)
$InputProduit = GUICtrlCreateInput ('', 112, 56, 153, 21)
$InputCommande = GUICtrlCreateInput ('', 112, 80, 153, 21)
$Generini = GUICtrlCreateButton ('Générer', 104, 112, 129, 33)
$Exit = GUICtrlCreateButton ( "Fermer", 104, 150, 129, 33)
$Help = GUICtrlCreateButton ( "Quel est le chemin que j'ai sélectionné ?", 75, 188, 200, 33)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg =$Generini
ProgressOn("Création du fichier", "Patientez quelques secondes", "0 %")
For $i = 0 to 100 step 5
sleep(1000)
ProgressSet( $i, $i & " %")
Next
ProgressSet(100 , "Fini", "Le fichier a été crée")
sleep(2000)
ProgressOff()
Beep(500, 1000)

iniWrite ( $var & "\Data." & $typefile, "DATA", "Nom:", GUICtrlRead($InputNom) )
iniWrite ( $var & "\Data." & $typefile, "DATA", "Prénom:", GUICtrlRead($InputPrenom) )
iniWrite ( $var & "\Data." & $typefile, "DATA", "Site web:", GUICtrlRead($InputProduit) )
iniWrite ( $var & "\Data." & $typefile, "DATA", "N ° de tel", GUICtrlRead($InputCommande) )
Case $nMsg = $Exit
SplashTextOn("", "Fermeture du logiciel en cours ...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "French Script MT", 26, 800)

; Pause de 3 secondes.
Sleep(2500)


; Fermeture du splash.
SplashOff()
ExitLoop
Case $nMsg = $Help
MsgBox( 0,"Aide",$var & " est ce que vous avez choisi")
EndSelect
WEnd

Merci de bien vouloir me répondre .