Erreur dans un script AutoIt

Résolu/Fermé

azazaz - 19 févr. 2010 à 18:21
azazaz - 19 févr. 2010 à 19:37

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

A voir également:

Erreur dans un script AutoIt
Erreur 0x80070643 - Guide
Script vidéo youtube - Guide
Erreur 10016 epson - Forum Imprimante
Erreur c2002 western union ✓ - Forum Vos droits sur internet
Erreur g030 - Forum Bbox Bouygues

1 réponse

Réponse 1 / 1

azazaz
19 févr. 2010 à 19:37

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 .

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Problème de décodeur TV Bouygues Telecom

Discussions similaires

Newsletters