J'ai un nouveau problème sur mon script qui écrit certaines données dans un fichier Texte, en effet, lorsque j'entre des données dans un fichier texte via mon deuxième script, le premier script ne reconnais pas les fichiers texte pourtant bien présent sur mon PC, je suis obligé de redémarré le logiciel pour qu'il les prennent en compte, et le problème arrive à chaque fois que j'appuie sur le bouton "Option" du premier 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\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(@scriptdir & "\Add-On\Option.exe") Then
Run(@scriptdir & "\Add-On\Option.exe")
Else
$workdir = @scriptdir & "\Add-On"
FileChangeDir($workdir)
ShellExecute(@workingdir & "\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
#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(@scriptdir & "\Add-On\Option.exe") Then
Run(@scriptdir & "\Add-On\Option.exe")
Else
$workdir = @scriptdir & "\Add-On"
FileChangeDir($workdir)
ShellExecute(@workingdir & "\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
► 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
#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
Doc
