[R] Problème lors d'ouverture de script via un autre

[Doc]

Bonjour à tous,

J'ai actuellement un problème gênant, j'ai réalisé un script (Toto) qui écrit certaines données dans un fichier Texte, lors du démarrage de celui-ci, cela marche parfaitement (aucun problème).

Seulement, ce script doit être lancé via un autre script que j'ai crée, lorsque que je lance Toto avec l'autre script, il est impossible d'écrire dans un fichier texte ou même d'en crée un.

J'ai déjà essayé multiples façons de résoudre le problème (modifier tout le code, désinstaller AutoIt, etc...) mais j'ai toujours ce problème qui m’empêche d'avancé dans mon travail.

Merci de m'avoir lu

Premier Script (Celui qui doit exécuter le deuxième)

► Afficher le texte

#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\lol\desktop\doc.kxf
Global $Form1 = GUICreate("Form1 / V 1.0", 273, 81, 251, 128)
Global $Radio1 = GUICtrlCreateRadio("Mono", 40, 16, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
Global $Radio2 = GUICtrlCreateRadio("Multi", 40, 48, 113, 17)
Global $OptionMulti = GUICtrlCreateButton("Option Multi", 168, 48, 91, 25)
GUICtrlSetState(-1, $GUI_HIDE)
Global $Start = GUICtrlCreateButton("Ouverture", 168, 8, 91, 25)
Global $Option = GUICtrlCreateButton("Option", 168, 48, 91, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Option
If FileExists("Add-On\Option.exe") Then
Run("Add-On\Option.exe")
Else
ShellExecute("C:\Program Files (x86)\AutoIt3\AutoIt3.exe", "Add-On\Option.au3")
EndIf

Case $Start
if FileExists("Add-On\Compte\Pass.txt") Then
$ID = FileOpen("Add-On\Compte\Pass.txt", 0)
$MS = FileOpen("Add-On\Option\MS.txt", 0)
$NDC = FileReadLine($ID, 1)
$MDP = FileReadLine($ID, 2)
$TFrappe = FileReadLine($MS, 1)
sleep(8000)
AutoItSetOption("SendKeyDelay", $TFrappe)
send ("" & $NDC & "")
sleep(100)
Send("{TAB}")
sleep(100)
send ("" & $MDP & "")
Send("{ENTER}")
Fileclose("Add-On\Compte\Pass.txt")
Else
msgbox(16, "Attention", "Veuillez renseigner votre nom de compte et votre mot de passe à l'aide du menu Option avant de pouvoir utiliser ce bouton !")
EndIf

Case $Radio2
GUICtrlSetState($Option, $GUI_HIDE)
GUICtrlSetState($OptionMulti, $GUI_SHOW)

Case $Radio1
GUICtrlSetState($Option, $GUI_SHOW)
GUICtrlSetState($OptionMulti, $GUI_HIDE)


EndSwitch
WEnd

Deuxième Script

► Afficher le texte

#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\lol\Desktop\SaveCompte.kxf
Global $Form1 = GUICreate("Sauvegarde Compte(s)", 610, 215, 273, 124)
Global $Label1 = GUICtrlCreateLabel("Nom de Compte :", 260, 8, 116, 17)
Global $Input1 = GUICtrlCreateInput("", 240, 32, 121, 21)
Global $Label2 = GUICtrlCreateLabel("Mot de Passe :", 260, 64, 124, 17)
Global $Input2 = GUICtrlCreateInput("", 240, 88, 121, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))
Global $Label3 = GUICtrlCreateLabel("Temps entre les Frappes (MS) :", 235, 120, 150, 17)
Global $Input3 = GUICtrlCreateInput("10", 240, 140, 121, 21)
Global $Button1 = GUICtrlCreateButton("Sauvegarder", 239, 165, 123, 25)
Global $Button2 = GUICtrlCreateButton("Explication", 239, 190, 123, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1

if FileExists("Compte\Pass.txt") Then
; Si le fichier Existe
Filedelete("Compte\Pass.txt")
; Suppression du fichier
_FileCreate("Compte\Pass.txt")
; Création d'un nouveau Fichier
Else
_FileCreate("Compte\Pass.txt")
; Sinon, Création d'un nouveau fichier
EndIf

If FileExists("Option\MS.txt") Then
Filedelete("Option\MS.txt")
; Suppression du fichier
_FileCreate("Option\MS.txt")
; Création d'un nouveau Fichier
Else
_FileCreate("Option\MS.txt")
; Sinon, Création d'un nouveau fichier
EndIf

$NDC = Guictrlread($Input1)
$MDP = GUICtrlRead($Input2)
$TFrappe = GUICtrlRead($Input3)
$TFrappe = Number($TFrappe)
; Lecture des variables présentes dans les deux Input

If $NDC = "" Then
msgbox(16, "Attention", "Vous n'avez mis aucun Nom de Compte !")
ElseIf $MDP = "" Then
msgbox(16, "Attention", "Vous n'avez mis aucun Mot de passe !")
; Verifie si le nom de compte ou mot de passe ne sont pas vides
Else
FileOpen("Compte\Pass.txt", 1)
FileWrite("Compte\Pass.txt", "" & $NDC & "" & @CRLF & "" & $MDP)
FileClose("Compte\Pass.txt")
FileOpen("Option\MS.txt", 1)
FileWrite("Option\MS.txt", "" & $TFrappe)
FileClose("Option\MS.txt")
Exit

EndIf
Case $Button2
msgbox(64, "Plus d'informations", "Cette partie du logiciel sert à sauvegarder votre nom de compte et votre mot de passe afin de vous connectez automatiquement lorsque vous le désiré, ainsi que de choisir le temps entre chaque frappe sur le Clavier.")


EndSwitch
WEnd

Cordialement,
Doc

[karime1]

tu devrai mettre la balise [..] au début du titre de ton sujet sinon il va se retrouver en poubelle. et met ton script pour qu'on puise comprendre d'ou vien le prob

[mikell]

Dans le premier script essaye avec juste

Code : Tout sélectionner

ShellExecute("Add-On\OptionDofus.au3")

[Doc]

Malgré ce changement, toujours aucun résultat positif

[mikell]

Hum je crois que j'ai écrit une connerie...
Dans quel dossier exactement se trouve le fichier OptionDofus.au3 (chemin complet) ?

[Doc]

Il ce trouve dans C:\Users\Doc\Desktop\Doc AutoIT\Add-On\Option.au3

(Ce n'est pas OptionDofus.au3, j'ai fais une erreur).

Le Script qui exécute Option.au3 ce trouve ici : C:\Users\Doc\Desktop\Doc AutoIT\Doc.au3

[mikell]

Argh

Code : Tout sélectionner

Case $Option
If FileExists(@scriptdir & "\Add-On\Option.exe") Then
    Run(@scriptdir & "\Add-On\Option.exe")
Else
    $workdir = @scriptdir & "\Add-On"
    FileChangeDir($workdir)
    ShellExecute(@workingdir & "\Option.au3")
EndIf

[Doc]

Merci beaucoup le problème est résolu grâce à toi