Systray / Témoin d'activité d'un vbs

Version imprimable

09/10/2006, 11h02
*_Cub_*

Systray / Témoin d'activité d'un vbs

Bonjour à tous,

J'ai écrit un script qui surveille un répertoire sur un poste fonctionnant 24h/24.
(Le script detecte toute création de fichier dans le répertoire et déplace le/les fichiers créés vers des répertoires de rangement suivant le nom de ces fichiers... Mais ca n'a pas d'importance pour ma question)

Mon script doit tourner continuellement. Il fonctionne bien sauf que je ne le vois pas. En faisant Ctrl+Alt+Supr, je vois bien Wscript.exe qui tourne mais ce n'est pas suffisant. (On est jamais à l'abri d'un bug qui stoppe le script...)

Quelqu'un saurait-il comment on peut afficher une petite icone dans le systray lorsque mon vbs est lancé ?

(J'ai bêtement essayé de lancer mon script avec la commande :
Wscript.exe c:\surveillance.vbs //Logo
mais ... rien)

Je remercie déjà tous ceux qui pourront m'aider

*_Cub_*
09/10/2006, 19h59
omen999

bonjour,
il existe de nombreux composants activex qui permettent de placer une icone dans le systray mais la plupart n'ont pas été écrits pour fonctionner
avec un langage comme vbscript.:aie:
peut-être un composant dénommé astc... (jamais testé)
la solution sportive et élégante consiste à écrire un wrapper activex qui se chargera du travail.:mrgreen:
un source simplifié en vb6 ici: http://www.vbcodemagician.dk/tips/system_systray.htm

j'avais oublié une solution qui utilise l'api win32 pour afficher le script dans la taskbar :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option explicit
'rend un script wsh visible sur la barre de tâches
'utilise le composant dynawrap pour accéder à l'api win32
 
Dim oWrap,n,hWnd
 
Set oWrap = CreateObject("DynamicWrapper") 'instancie l'objet API
 
oWrap.Register "USER32.DLL","FindWindowA","i=ss","f=s","r=h" 'handle de la fenêtre du script
hWnd=oWrap.FindWindowA("WSH-Timer","")
 
oWrap.Register "USER32.DLL","SetWindowTextA","i=hs","f=s","r=l" 'ajout d'un titre
oWrap.SetWindowTextA hWnd,"omen999®"
 
oWrap.Register "USER32.DLL","ShowWindow","i=hu","f=s","r=l"    'visible dans la barrre des tâches
oWrap.ShowWindow hWnd,6
 
n=1
While n=1
	WScript.Sleep 100
Wend

il faut évidemment que l'activex dynawrap.dll soit enregistré...

12/10/2006, 11h46
*_Cub_*

Un grand merci, Omen, la deuxième solution me convient parfaitement. :D
01/07/2010, 09h57
petitpob

désolé de reprendre si tard le sujet mais je veut faire la même chose mais n'étant pas un expert je cherche ou mettre le dynawrap.dll

et le script on le pose dans un pont vbs et ça marche?

Citation:

et le script on le pose dans un pont vbs

ce concept m'est inconnu... :calim2: :mrgreen:
toutes les explications concernant le composant dynamicwrapperx sont ici
une fois celui-ci correctement installé, voici le code qui fera apparaitre le script sur la barre des tâches (avec une petite amélioration)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
'rend un script wsh visible sur la barre de tâches
'utilise le composant dynamicwrapperx pour accéder à l'api win32
'omen999 juillet 2010
 
Dim oWrap,n,hWnd
 
Set oWrap = CreateObject("DynamicWrapperX") 'instancie l'objet wrapper
 
oWrap.Register "USER32.DLL","FindWindowA","i=ss","r=h" 'handle de la fenêtre du script
oWrap.Register "USER32.DLL","SetWindowTextA","i=hs","r=l" 'ajout d'un titre
oWrap.Register "USER32.DLL","MoveWindow","i=hlllll","r=l" 'ajout d'un titre
oWrap.Register "USER32.DLL","ShowWindow","i=hu","r=l"    'visible dans la barrre des tâches
hWnd=oWrap.FindWindowA("WSH-Timer","")
oWrap.SetWindowTextA hWnd,"omen999®"
oWrap.MoveWindow hWnd,-123,0,123,34,0
oWrap.ShowWindow hWnd,6
 
' mettre le code du script ici (remplacer la boucle demo ci-dessous)
n=1
While n=1
	WScript.Sleep 100
Wend

02/07/2010, 19h11
hackoofr

Affichage détaillé des processus en cours d'exécution

Citation:

Envoyé par *_Cub_*

Bonjour à tous,
Mon script doit tourner continuellement. Il fonctionne bien sauf que je ne le vois pas. En faisant Ctrl+Alt+Supr, je vois bien Wscript.exe qui tourne mais ce n'est pas suffisant. (On est jamais à l'abri d'un bug qui stoppe le script...)

(J'ai bêtement essayé de lancer mon script avec la commande :
Wscript.exe c:\surveillance.vbs //Logo
mais ... rien)

Jette un coup d'œil sur ceci peut-être il va t'aider a reconnaitre les différents processus en détail.:ccool: