IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

[VBS]cacher une fenetre


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 107
    Par défaut [VBS]cacher une fenetre
    salut tt l'monde !
    voila mon script :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    Dim MySource, MyTarget, MyZipName, MyHex, MyBinary, i
    Dim oShell, oApp, oFolder, oCTF, oFile
    Dim oFileSys
    Set fso= CreateObject("Scripting.FileSystemObject")
    Set MonFpath= fso.GetFile("c:\rapport.txt").OpenAsTextStream
    mypath = MonFpath.readline
    MySource = "" & mypath & ""
    MyTarget = "C:\sauvergarde.zip"
    
    MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
    
    For i = 0 To UBound(MyHex)
    MyBinary = MyBinary & Chr(MyHex(i))
    Next
    
    Set oShell = CreateObject("WScript.Shell")
    Set oFileSys = CreateObject("Scripting.FileSystemObject")
    
    'Create the basis of a zip file.
    Set oCTF = oFileSys.CreateTextFile(MyTarget, True)
    oCTF.Write MyBinary
    oCTF.Close
    Set oCTF = Nothing
    
    Set oApp = CreateObject("Shell.Application")
    
    'Copy the files to the compressed folder
    Set oFolder = oApp.NameSpace(MySource)
    If Not oFolder Is Nothing Then
    oApp.NameSpace(MyTarget).CopyHere oFolder.Items
    End If
    
    'Wait for compressing to begin, this was necessary on my machine
    wScript.Sleep(2000)
    lorsque le script se lance, une fenetre "compression..." apparait :



    Cette image peut rester tres longtemp, tout dépent de la grosseur du dossier a compresser.

    c'est pourquoi je voudrais savoir s'il y a un moyen de la cacher , la minimiser, la supprimé...?

    Merci pour votre aide

  2. #2
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    bonsoir,
    la minimiser
    cliquer sur le bouton prévu à cet effet
    en revanche, cacher cette boite de dialogue n'est certainement pas une bonne idée mais ça doit être possible par un appel à l'api
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 107
    Par défaut
    pourrait tu m'en dire plus sur les API a utiliser...?
    Merci

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 107
    Par défaut
    g réussi a rendre invisble la fenetre...
    et sans faire expres lol
    j'ai juste lancé le script grace au tache planifié de windows :"schtasks"
    et plus aucune fenetre...tout se fait en arrière plan
    cool

    si yen a qui peuvent confirmé, p-t que mon pc est spécial lol

  5. #5
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Je ne connais pas particulèrement "schtasks", mais il est possible que windows lance ton programme sans intéraction graphique avec l'environnement, en gros sans GUI, sans fenêtre, avec cette commande.
    En tout en c'est ce que fait windows lorsque l'on cré un processus sur un PC distant via les objets WMI.

Discussions similaires

  1. [VBS] Affiché une Fenetre et rentrer une variable
    Par SnipCool dans le forum VBScript
    Réponses: 7
    Dernier message: 06/06/2006, 11h10
  2. [FLTK] cacher une fenetre
    Par tomtom187 dans le forum Bibliothèques
    Réponses: 3
    Dernier message: 12/04/2006, 11h31
  3. VB6]cacher une fenetre dans la barre des taches en une icone
    Par bouazza92 dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 26/12/2005, 23h37
  4. [MFC]Cacher une fenetre
    Par 0xYg3n3 dans le forum MFC
    Réponses: 6
    Dernier message: 29/04/2005, 17h13
  5. cacher une fenetre externe a l'application
    Par gaut dans le forum Windows
    Réponses: 4
    Dernier message: 13/12/2004, 14h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo