Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[EN COURS] KCV 1.0
Auteur Message
Répondre en citant
Message [EN COURS] KCV 1.0 
Donc Nettoyage, donc on passe au Karcher d'où le nom KarCherVoisin (KCV)

Le but est très simple, il doit cocher ce qu'il souhaite que ca se lance sans que d'autres fenêtres s'ouvre.

Comme c'est un blagueur et moi aussi, j'ai mis deux button où il ne fait pas cliquer (sachant qu'il le fera et que son fils aussi c'est certain !)

Le premier bouton, j'aimerais qu'il effectue un faux formatage du disque (avec la barre d'avancement). Le second il est déjà fait. Mais si vous avez des idées plus drôle ou flippante (mais sans risque) je suis partant lol

Revenons à nos moutons, pour ma part la difficulté sera de faire jouer la barre d'avancement durant les opérations (je vois pas trop comment faire).

Pour les commandes de defrag, nettoyage, je recherche en ce moment.
Je pensais aussi mettre un bouton mise à jour de windows.

Voici le code

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Sydneysyd

 Script Function: Cleaner For My Neighbor !
   Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\DAVID\Desktop\KarCherVoisin.kxf
$KarCherVoisin = GUICreate("KarCherVoisin", 357, 277, 192, 124)
$Group1 = GUICtrlCreateGroup("Vidage", 16, 64, 153, 137)
$Checkbox1 = GUICtrlCreateCheckbox("Temporaire Windows", 24, 88, 129, 33)
$Checkbox2 = GUICtrlCreateCheckbox("Temporaire AppData", 24, 128, 121, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Dossier Prefetch", 24, 160, 129, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Analyse", 184, 64, 161, 137)
$Checkbox4 = GUICtrlCreateCheckbox("Check du disque", 192, 96, 113, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Réparation du disque", 192, 128, 129, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Defragmentation du disque", 192, 160, 145, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("VALIDER", 16, 208, 329, 33)
$Button2 = GUICtrlCreateButton("Ne Pas Cliquer là ! ", 248, 248, 97, 17)
$Label1 = GUICtrlCreateLabel("KCV 1.0", 136, 16, 87, 42)
GUICtrlSetFont(-1, 24, 400, 0, "Mistral")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
;-------------------------------------------------------------------------------
;Case ne pas cliquer 1
;-------------------------------------------------------------------------------

Case $Button2
MsgBox(16, "Pas possible çà...", "ON T'AS DIT DE PAS CLIQUER ! ! !")

   EndSwitch
WEnd


Merci pour votre aide.




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [EN COURS] KCV 1.0 
Bonjour
pour defrag etc.. suiffit d'utilser les commandes batch si disponible avec Run ou RunWait
pour progressbar ça dépend ou tu veux la placer et quand.

j'en ai fait une pour mon projet : http://batch.xoo.it/t1729-Projet-Laddy-CloneVDIManager.htm c'est basé sur la taille du fichier.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Salut, merci pour tes éléments de solutions,

Je pensais à intégrer du batch dans l'autoIT pour certaines commandes.

Après, le mieux serait de rester sur de l'autoIT afin de mieux comprendre comment ca fonctionne.

Pour la progress bar, je voudrais qu'elle soit active, une fois le bouton cliqué sur Valider.

J'ai un peu regarder la fonction FileDelete et DirRemove pour le dossier temp de Windows à vider et ca ne me donne rien.

Je cherche encore sur les fofo.

Pour le moment mon code en ai à ce niveau :

Code:
#cs ----------------------------------------------------------------------------

   AutoIt Version: 3.3.6.1
   Author:         Sydneysyd

   Script Function: Cleaner For My Neighbor !
   Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#Include <Array.au3>

#region ### START Koda GUI section ### Form=c:\users\david\desktop\karchervoisin.kxf
$KarCherVoisin = GUICreate("KarCherVoisin", 357, 343, 192, 124)
$Group1 = GUICtrlCreateGroup("Vidage", 16, 56, 153, 137)
$Checkbox1 = GUICtrlCreateCheckbox("Temporaire Windows", 24, 80, 129, 33)
$Checkbox2 = GUICtrlCreateCheckbox("Temporaire AppData", 24, 120, 121, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Dossier Prefetch", 24, 152, 129, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Analyse", 184, 56, 161, 137)
$Checkbox4 = GUICtrlCreateCheckbox("Check du disque", 192, 88, 113, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Réparation du disque", 192, 120, 129, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Defragmentation du disque", 192, 152, 145, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("VALIDER", 16, 248, 329, 33)
$Button2 = GUICtrlCreateButton("Ne Pas Cliquer là ! ", 16, 312, 97, 17)
$Label1 = GUICtrlCreateLabel("KCV 1.0", 136, 8, 87, 42)
GUICtrlSetFont(-1, 24, 400, 0, "Mistral")
GUICtrlSetColor(-1, 0x000000)
$Progress1 = GUICtrlCreateProgress(16, 288, 329, 17, $WS_BORDER)
$Button3 = GUICtrlCreateButton("Là non plus ! ", 256, 312, 89, 17)
$Group3 = GUICtrlCreateGroup("Windows", 16, 200, 329, 41)
$Checkbox7 = GUICtrlCreateCheckbox("Windows Update (Mises à jour de sécurité)", 32, 216, 305, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
;-------------------------------------------------------------------------------
;Case ne pas cliquer 1
;-------------------------------------------------------------------------------

      Case $Button2
         MsgBox(16, "Pas possible çà...", "ON T'AS DIT DE PAS CLIQUER ! ! !")

;-------------------------------------------------------------------------------
;Case ne pas cliquer 2
;-------------------------------------------------------------------------------

      Case $Button3
         MsgBox(48, "Y'en a marre...", "FORMATAGE ! ")

;-------------------------------------------------------------------------------
;Partie de Validation
;-------------------------------------------------------------------------------
      Case $Button1

         If $Checkbox1 = True Then $FileList=_FileListToArray(@Tempdir)
                                    If @Error=1 Then
                                       MsgBox (0,"","No Files\Folders Found.")
                                       Exit
                                    EndIf
                                       for $i = 1 to $FileList[0]
                                          FileDelete(@Tempdir&'\'&$FileList[$i])
                                    Next





______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Bon j'avance pas rapidement et quelques bugs

Code:
Case $Button1
         If $Checkbox1 = True Then DirRemove("C:\Windows\Temp\", 1)
         If $Checkbox2 = True Then DirRemove(@TempDir, 1)


Button1 est la case de validation
Lz premier if fonctionne mais pas le second

De plus coché ou pas, le premier if retire uniquement les fichiers mais pas les sous dossier du temp

Je capte pas trop là...




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Salut,

Essaie avec ça :
Code:

Case $Button1
      If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then DirRemove("C:\Windows\Temp\", 1)
      If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then DirRemove(@TempDir, 1)


Je suis intéressé par ton projet car il ressemble au mien : SkyCleaner ==> http://total-informatique.com/forum

Tu peux prendre des parties de code si tu en as besoin.

Bonne chance pour ce projet.




______________________________________________________
Répondre en citant
Message [EN COURS] KCV 1.0 
Merci Sablier,

Je voudrais que le code soit le plus simple possible pour que je puisse bien intégrer la façon de coder en autoIT.
Car j'ai vu tes codes et c'est un peu compliqué pour moi pour le moment :-)

Sinon, je veux bien une explication du code que tu fournis, afin de comprendre les fonctions

Je vais tester et je te dis ça

Merci encore




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Donc, le premier code fonctionne, ca supprime bien le dossier temp de windows mais pas le second...




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Avec des commentaires :

Code:
Case $Button1 ;Si le bouton1 est cliqué :
      If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then DirRemove("C:\Windows\Temp\", 1) ;On lit la $Checkbox1 et si elle est cochée on supprime le dossier
      If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then DirRemove(@TempDir, 1) ;On lit la $Checkbox2 et si elle est cochée on supprime le dossier


Mais si ça ne marche pas, c'est sûrement parce qu'il y a un fichier qui est en cours d'utilisation que tu ne peux pas effacer le dossier. Tu devras supprimer les fichiers un par un. C'est bizarre que le premier marche et pas le deuxième. Il te renvoies quoi comme valeur @TempDir ?

N'hésites pas à demander plus de précisions si tu ne comprends un bout de code.




______________________________________________________
Répondre en citant
Message [EN COURS] KCV 1.0 
Sinon je pensais à mettre une fonction batch dans l'auto avec la fonction del mais je vois pas comment faire.
Au moins je serais sur de voir si ca marche.
Après je pense que le pb des coches est dû aux conditions, peut-être qu'il faut instaurer les conditions contraires en +




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Attention C:\Windows\Temp\ tout le monde n'a pas son OS sur le C:




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
C'est bien ça le problème, donc je pensais utiliser le wmic dans autoIT pour repérer l'os et changer le chemin en fonction de ça.




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Il existe des variables d'environnement tout comme en batch pour autoit, utilises les Macro Reference

@WINDOWSDIR, @TempDir, @OS

@ScriptDir pourra te servir aussi

utilise le registre pour chercher une information, le wmi serait trop lourd pour recuperer ce type d'informations.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [EN COURS] KCV 1.0 
Merci pour le conseil, je pensais pas que je pouvais passer de cette façon ! ^^




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Message [EN COURS] KCV 1.0 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch