Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] Cacher IE
Auteur Message
Répondre en citant
Message [Prog] Cacher IE 
Salut !

Programme qui sert tout simplement a cacher une fenêtre Internet Explorer (elle disparait de la barre de tache) via la touche F2 ou la barre de notification.

Tester avec Internet Explorer 7 et 8.

Utile en cours Mr. Green




Code:
#include <ButtonConstants>
#include <GUIConstantsEx>
#include <WindowsConstants>
HotKeySet("{F2}","f2")
$cacher = "0"
MsgBox(64, "Cacher IE by Yago_nfs_tm_91- v2", "F2 pour afficher/cacher Internet Explorer")
;$f = WinGetClassList("Function")
;MsgBox(0, "", $f)
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.

$ButtonA  = TrayCreateItem("AFFICHER")
TrayCreateItem("")
$ButtonC  = TrayCreateItem("CACHER")
TrayCreateItem("")
$QUITTER   = TrayCreateItem("Quitter")
TraySetToolTip("Cacher internet explorer")

TraySetState()



While 1
 $nMsg = TrayGetMsg()

 Switch $nMsg
  Case $QUITTER
   Exit

   Case $ButtonA
     ;For $i = 1 to 100 Step 1
   ;WinSetState($i&"%", "", @SW_SHOW)
   ;WinSetState("Téléchargement de", "", @SW_SHOW)
   ;$ftitle = WinGetTitle ("", "Internet")
   $ftitle2 = FileReadLine("ftitle.txt", 1)
   If $ftitle2 = "" Then
      MsgBox(48, "erreur", "pas de fenetre cacher")
   Else
   WinSetState($ftitle2, "", @SW_SHOW)
   EndIf
   $cacher = "0"
   ;Next

   Case $ButtonC
      ;For $i = 1 to 100 Step 1
   ;WinSetState($i&"%", "", @SW_HIDE)
   ;WinSetState("Téléchargement de", "", @SW_HIDE)
      If $cacher <> "1" Then
   $ftitle = WinGetTitle ("", "Internet")
   RunWait("cmd.exe /c echo "&$ftitle&"> ftitle.txt")
   WinSetState($ftitle, "", @SW_HIDE)
   $cacher = "1"
   EndIf
   ;Next
 EndSwitch
WEnd

Func f2()

   If $cacher <> "1" Then
   $ftitle = WinGetTitle ("", "Internet")
   RunWait("cmd.exe /c echo "&$ftitle&"> ftitle.txt", @WorkingDir, @SW_HIDE)
   WinSetState($ftitle, "", @SW_HIDE)
   $cacher = "1"
Else
   $ftitle2 = FileReadLine("ftitle.txt", 1)
   If $ftitle2 = "" Then
      MsgBox(48, "erreur", "pas de fenetre cacher")
   Else
   WinSetState($ftitle2, "", @SW_SHOW)
   EndIf
   $cacher = "0"
   EndIf
EndFunc


Okay




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] Cacher IE 
Bonjour

merci de ne pas utiliser la balise spoiler.... et un minium de commentaire dans le code source serait la bienvenue pour les non initiés en autoit.

c'est valable pour tous les sujets ouverts récemment

sinon bravo quelle productivité yago, tu es en forme et tjs pleines de bonnes idées




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Prog] Cacher IE 
Merci Very Happy

Désoler pour le code source mal organiser mais j'ai développer ce programme un peu a la va vite sans m'occuper de la disposition du code.

Je compte faire une version plus complete ou l'on pourra cette fois ci choisir le titre de la fenetre a cacher Okay




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Message [Prog] Cacher IE 


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