Discussion :

[metatron]

Bonjour,

je cherche à afficher au lancement d'un script une popup sans aucun bouton, se fermant au bout de 15 secondes :

oWsh.Popup "hi",15,test,64

probleme je ne vois pas comment ne pas afficher de boutons, j'avais vu quelque part qu'il suffisait de soustraire un à la valeur ButtonType+IconType, mais sans succès, quand je mets par exmeple la valeur 63 au lieu de 64 rien ne se produit.
Auriez vous une idée pour aovir une popup avec timeout, sans boutons ?

Merci d'avance de votre précieuse aide.

[omen999]

bonjour,
possible mais en appelant les api win32
nécessite le composant dynamicwrapperx

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
Dim Wrap, pAddr
Dim CaptionWnd
Dim intButton
 
Const WM_CLOSE = &H10
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Wrap = CreateObject("DynamicWrapperX")
Set pRef = GetRef("TimerProc")
 
Wrap.Register "user32.dll", "FindWindowA", "i=ls", "r=l"
Wrap.Register "user32.dll", "FindWindowExA", "i=llsl", "r=l"
Wrap.Register "user32.dll", "SetTimer", "i=llll", "r=l"
Wrap.Register "user32.dll", "KillTimer", "i=ll", "r=l"    
Wrap.Register "user32.dll", "SendMessageA", "i=llll", "r=l"
 
pAddr = Wrap.RegisterCallback(pRef, "i=llll", "r=l")
 
Function PopupEx(strText, nSecondsToWait, strTitle, nType)
  CaptionWnd = strTitle
  'le timeout est au minimum et le timer ne sera désactivé que lorsque le popup aura été créé
  Wrap.SetTimer 0, 0, 10, pAddr 
  PopupEx = WshShell.Popup(strText, nSecondsToWait, strTitle, nType)    
End Function
 
Sub TimerProc(hWnd, uMsg, idEvent, dwTime)
Dim myHwnd
  myHwnd = Wrap.FindWindowExA(Wrap.FindWindowA(0, CaptionWnd), 0, "Button", 0)
  If myHwnd <> 0 Then Wrap.KillTimer 0, idEvent 'le timer est devenu inutile donc destruction
  Wrap.SendMessageA myHwnd, WM_CLOSE, 0, 0
End Sub
 
intButton = PopupEx("Hello world", 4, "Greeting from omen999",0)

[metatron]

ah merci de ce tips, probleme quand j'execute le script je me prends une erreur de syntaxe à la ligne suivante :

Function PopupEx(strText, nSecondsToWait, strTitle, nType)

sauriez vous d ou cela pourrait t il provenir ? Merci d avance

[omen999]

curieux, car cette ligne est syntaxiquement correcte
peux-tu nous donner le message d'erreur complet ?

[metatron]

ok en enregistrant la dll ca va mieux, merci en tout cas pour cette info et le bout de code