[R] Actualiser un GUICtrlCreateEdit

#1

Bonjour a tous,suite a une modification dans un fichier texte,l'information n'est pas visible dans le GUICtrlCreateEdit ( $fichierread , 213 , 168 , 417 , 278 , $WS_VSCROLL )

info utile:
$fichier = @SystemDir & " \drivers\etc "
$fichierread = FileRead ( $fichier & " \hosts " )

L'écriture se fait suite a un renseignement dans un champ et le tout est vallider par un boutton..

Avez vous une idée a mon probleme?

Merci

#2

Salut Vins83,
en faisant un copier coller de ce que tu viens de mettre, j'ai vu plein d'espaces en trops sur tes chemins de fichiers.

voici une petite récap à l'arrache fonctionnelle :

Code : Tout sélectionner

#include <GUIConstants.au3> 
$fichier = @SystemDir & " \drivers\etc " 
$fichierread = FileRead ( $fichier & " \hosts " ) 
ConsoleWrite ( $fichierread ) 
#region - - - GuiBuilder code Start - - - 
; Script generated by AutoBuilder 0.6 Prototype 
#include <GuiConstants.au3> 
GuiCreate ( " MyGUI " , 392 , 323 , - 1 , - 1 , BitOR ( $WS_OVERLAPPEDWINDOW , $WS_CLIPSIBLINGS ) ) 
$Input_1 = GUICtrlCreateEdit ( $fichierread , 0 , 0 , 417 , 278 , $WS_VSCROLL ) 
GuiSetState ( ) 
While 1 
$msg = GuiGetMsg ( ) 
Select 
Case $msg = $GUI_EVENT_CLOSE 
ExitLoop 
Case Else 
;;; 
EndSelect 
WEnd 
Exit 
#endregion - - - GuiBuilder generated code End - - -

#3

Le probleme de l'espace vient de "forumcouleur",mais c pas bien grave..

Par contre j'ai encore le meme probleme,lorsque je renseigne l'adresse que je veux bloquer et que je valide,elle se note bien dans le fichier hosts,mais pas dans le GuiCtrlCreateEdit..

► Afficher le texte

Code : Tout sélectionner

 #include <GUIConstants.au3> 
$title = " BlockSite " 
$fichier = @SystemDir & " \drivers\etc " 
$fichierread = FileRead ( $fichier & " \hosts " ) 
$fichierread1 = FileRead ( $fichier & " \hosts.bak " ) 
Dim $bloquerlesite , $Siteabloquer 
; Bakup du fichier hosts 
If FileExists ( $fichier & " \hosts.bak " ) Then 
Else 
FileCopy ( $fichier & " \hosts " , $fichier & " \hosts.bak " ) 
EndIf 
$BlockSite = GUICreate ( $title , 640 , 480 , - 1 , - 1 , $WS_CAPTION ) 
; bloquer le site 
GUICtrlCreateGroup ( IniRead ( " blocksite.ini " , " 1036 " , " 0 " , " " ) , 5 , 110 , 630 , 45 ) 
GUICtrlCreateLabel ( " www. " , 10 , 128 ) 
$Siteabloquer = GUICtrlCreateInput ( " " , 40 , 125 , 590 , 20 , $WS_EX_CLIENTEDGE ) 
GUICtrlSetData ( $bloquerlesite , $Siteabloquer , - 1 ) 
;Bloquer le Site 
$bloquerlesite = GUICtrlCreateButton ( " Bloquer le Site " , 5 , 157 , 200 , 80 ) 
; Voir le fichier Hosts Original 
$originalhost = GUICtrlCreateButton ( " Voir le fichier Hosts Original " , 5 , 239 , 200 , 50 ) 
; Réinstaller le fichier hosts d'origine 
$replacerlefichierdorigine = GUICtrlCreateButton ( " Revenir à la configuration Original " , 5 , 291 , 200 , 50 , $BS_MULTILINE ) 
; Liste des Site Bloquer actuellement 
GUICtrlCreateGroup ( " Liste des Site Bloquer actuellement " , 208 , 154 , 427 , 298 ) 
$siteeventuel = GUICtrlCreateEdit ( $fichierread , 213 , 168 , 417 , 278 , $WS_VSCROLL ) 
$exit = GUICtrlCreateButton ( " Exit " , 5 , 453 , 630 , 25 ) 
GUISetState ( ) 
While 1 
$msg = GUIGetMsg ( ) 
Select 
; Exit 
Case $msg = $exit 
ExitLoop 
; bloquer le site 
Case $msg = $bloquerlesite 
If GUICtrlRead ( $Siteabloquer , 0 ) = = " " Then 
MsgBox ( 48 , " " , " Le nom du Site n'est pas renseigner " ) 
Else 
FileWrite ( $fichier & " \hosts " , " 127.0.0.1 " & GUICtrlRead ( $Siteabloquer ) ) 
FileWrite ( $fichier & " \hosts " , @CRLF & " 127.0.0.1 www. " & GUICtrlRead ( $Siteabloquer ) & @CRLF ) 
MsgBox ( 4096 , $title , " le site " & GUICtrlRead ( $Siteabloquer ) & " a bien été bloquer " , 5 ) 
EndIf 
; Ouverture du fichier Hosts d'origine 
Case $msg = $originalhost 
Run ( " notepad " & $fichier & " \hosts.bak " ) 
; Réinstaller le fichier hosts d'origine 
Case $msg = $replacerlefichierdorigine 
ProgressOn ( $title , " Réinstaller le fichier hosts d'origine " , " 0 % " ) 
For $i = 1 To 100 Step 1 
FileDelete ( $fichier & " \hosts " ) 
FileCopy ( $fichier & " \hosts.bak " , $fichier & " \hosts " ) 
Sleep ( 5 ) 
ProgressSet ( $i , $i & " % " ) 
Next 
ProgressSet ( 100 , " Action accomplie avec succé " , " " ) 
Sleep ( 2000 ) 
ProgressOff ( ) 
EndSelect 
WEnd 
Exit

Comment faire?

Peu etre passer par une fonction?

#4

c'est un refresh de ton editbox qui te manque.

juste après le msgbox disant que le site a bien été bloqué, ajoute cette ligne :

Code : Tout sélectionner

GUICtrlSetData($siteeventuel,FileRead($fichier & "\hosts"))

ceci va relire le fichier host modifié et le recharger dans l'edit

#5

Merci beaucoup Sylvanie,je cherché une fois de plus bien compliqué..