Discussion :

[sknonks31]

Bonjour,

J'ai trouvé le code pour le faire en VB6 ici. Je me permets de créer une nouvelle discussion car celle-ci date de 2004.

Mon problème est que je souhaite faire cela dans un simple fichier .vbs. J'ai copié le code dans mon .vbs sans trop y croire et évidemment cela ne fonctionne pas. Comment traduire ça en VBScript ?

Merci

PS : je voudrais aussi masquer les icônes du bureau dans le même script et en faire un autre pour réafficher ces éléments.

[SfJ5Rpw8]

Voici une première version avec DynamicWrapper.

pour la comprendre (et voir comment installer DynamicWrapper ) commence par lire :

Appeler les API Win32 avec JScript/VBScript : DynamicWrapperX

ensuite un "gros exemple" d'utilisation de DynamicWrapper ici , peu t'aider à la déclaration des foncitons

pour finir en "fusionnant" le tout avec une entrée de la FAQ VB6

Le code peu alors donner :

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
Const SWP_HIDEWINDOW  = &H80 
Const SWP_SHOWWINDOW = &H40 
set DX = CreateObject ("DynamicWrapperX")                  ' instancie l'objet
With DX
        .Register "user32.dll","FindWindowA","f=s","i=ss","r=l"
        .Register "user32.dll","SetWindowPos","f=s","i=lllllll","r=l"
End With    
 
Masquer
 
Rep = msgbox ("Afficher à nouveau ?",vbYesNo)
 
if Rep=VbYes then afficher 
 
Public Sub masquer() 
    Dim hwnd 
    hwnd = DX.FindWindowA("Shell_traywnd", "") 
    DX.SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW 
End Sub 
 
Public Sub afficher() 
    Dim hwnd 
    hwnd = DX.FindWindowA("Shell_traywnd", "") 
    DX.SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW 
End Sub

[sknonks31]

OK merci pour ta réponse. C'est plus compliqué que ce que je pensais alors... Je croyais que quelques objets avec les bonnes méthodes permettraient de faire ça rapidement dans un simple fichier .vbs.

Je vais consulter tes liens et te tiendrai au courant.

Encore merci