Masquer la barre des tâches en VBScript

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.

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:

---

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

---

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