Je suis débutant et je m'entraine à faire de petits scripts et ce forum m'a bien aidé je dois avouer
J'ai un problème avec le script que j'ai créé sur un PC portable Windows XP x86 car en fait quand je le lance sur mon PC de bureau qui est un Windows 7 x64, le script ne fonctionne pas normalement.
Le script que j'ai fait, fait un "ipconfig /all" dans une fenêtre DOS cachée, récupère les informations dans un fichier texte, puis les affiche dans ma zone d'édition "GUICtrlCreateEdit".
Le soucis est que sous Windows 7 tous les "é" de mon fichier texte sont remplacés par des virgules et j'ai d'autres bugs avec certains caractères alors que tout fonctionne parfaitement sur le PC où j'ai créé le script.
Voici une partie du fichier texte qui bug :
► Afficher le texte
Voici le code de mon script :
Code : Tout sélectionner
; Début du script - Ajouter votre code ci-dessous.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\scripts\Form1.kxf
Global $Form1 = GUICreate("IPView v1.0", 633, 438, -1, -1)
Global $Fichiermenu = GUICtrlCreateMenu("Fichier")
Global $Quitteritem = GUICtrlCreateMenuItem("Quitter Alt+F4", $Fichiermenu)
Global $Editionmenu = GUICtrlCreateMenu("Edition")
Global $Couperitem = GUICtrlCreateMenuItem("Couper Ctrl+X", $Editionmenu)
Global $Copieritem = GUICtrlCreateMenuItem("Copier Ctrl+C", $Editionmenu)
Global $Colleritem = GUICtrlCreateMenuItem("Coller Ctrl+V", $Editionmenu)
Global $Effaceritem = GUICtrlCreateMenuItem("Effacer Suppr", $Editionmenu)
Global $Aidemenu = GUICtrlCreateMenu("Aide")
Global $Apropositem = GUICtrlCreateMenuItem("A Propos ...", $Aidemenu)
Global $Button1 = GUICtrlCreateButton("Lancer", 276, 376, 81, 33, $WS_GROUP)
Global $Pic1 = GUICtrlCreatePic("C:\testimg.bmp", 0, 0, 633, 65, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Text = GUICtrlCreateEdit("", 104, 80, 433, 281)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$fichier = @WindowsDir
$fichierread = FileRead ( $fichier & " \ipconfig.txt " )
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Fin()
Case $Button1
RunWait(@ComSpec & " /c ipconfig /all > " & "c:\WINDOWS\ipconfig.txt", "", @SW_HIDE)
GUICtrlSetData($Text, FileRead($fichier & "\ipconfig.txt"))
Case $Quitteritem
Fin()
Case $Apropositem
MsgBox(64, "A Propos", "IPView v1.0" & @CRLF & "Développé par : Antoine Martin" & @CRLF & "Companie : TonioSoftware ©" & @CRLF & @CRLF & "Uniquement compatible Windows XP")
Case $Couperitem
Send("{CTRLDOWN}")
Send("x")
Send("{CTRLUP}")
Case $Copieritem
Send("{CTRLDOWN}")
Send("c")
Send("{CTRLUP}")
Case $Colleritem
Send("{CTRLDOWN}")
Send("v")
Send("{CTRLUP}")
Case $Effaceritem
Send("{DELETE}")
EndSwitch
WEnd
Func Fin()
SplashTextOn("", "Fermeture du programme en cours, Veuillez patienter ...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
Sleep(2000)
SplashOff()
Exit
EndFuncCordialement
