Afficher une popup sans boutons

Version imprimable

16/11/2009, 16h03
metatron

Afficher une popup sans boutons

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.

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

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
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)

17/11/2009, 10h44
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
17/11/2009, 13h50
omen999

curieux, car cette ligne est syntaxiquement correcte :aie:
peux-tu nous donner le message d'erreur complet ?
17/11/2009, 17h21
metatron

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