[R] Système de notifications

[RL77LUC]

Eh ben le [..] va revenir pour un court instant, enfin je l'espère x). Juste un petit bug, la fenêtre qui contient le notif.exe monte en même temps que les notifications ... :S

Une solution pour régler ce bug gênant ?

[mikell]

Aucune raison particulière à ce bug
1 - vérifie que cette fenêtre n'a pas comme titre "Notification"
2 - au début de la fonction modifie ça :

Code : Tout sélectionner

$var = WinList("Notification")
For $i = 1 to $var[0][0]
If WinExists($var[$i][[color=#FF0000][b]1[/b][/color]]) Then
    $prevpos = WinGetPos($var[$i][[color=#FF0000][b]1[/b][/color]])
    WinMove($var[$i][[color=#FF0000][b]1[/b][/color]], "", $prevpos[0], $prevpos[1]-80)
EndIf
Next

3 - si ça ne va toujours pas, envoie-moi tout ça, que je puisse reproduire le bug sur mon pc

[RL77LUC]

Toujours rien. Je mets une archive qui contient tout en PJ.

[mikell]

Je suis pas arrivé à reproduire ça... chez moi y a que les notifs qui bougent
Essaie de donner un autre nom à la fenêtre ou de la fermer quand tu lances le script (raccourci)

Il faudrait aussi laisser un sleep(300) à la fin de la fonction Notif() pour laisser aux informations le temps de se transmettre, et utiliser une police standard

[RL77LUC]

Je suis idiot ^^. Le dossier se nommait "Notifications", le soucis venait de là. Merci pour ton aide, je repasse en résolu .

[mikell]

Je suis idiot ^^. Le dossier se nommait "Notifications", le soucis venait de là.

Je confirme ! Et tu n'écoutes pas ce qu'on te dit, en plus !

Aucune raison particulière à ce bug
1 - vérifie que cette fenêtre n'a pas comme titre "Notification"

Tu réalises le temps qu'on peut perdre à chercher un bug imaginaire ?

[RL77LUC]

Pour ma défense, je suis sous Windows, et je pensais que la fenêtre se nommait Explorateur Windows étant donné qu'il n'y a rien d'écrit dessus, c'est après que j'ai vérifié sur la barre des taches, qui n'était pas combinée et donc qui n'affichait pas le titre non plus. ^^

[mikell]

OK
Dans son fonctionnement le script check les titres de fenêtre
Donc pour être sûr d'être à l'abri de ce genre de bug tu peux toujours donner aux notifications des noms exotiques type "ckfkobigf1", "ckfkobigf2", etc

[RL77LUC]

Oui, si je vois une fenêtre de ce nom, alors là je change d'OS direct x). Par contre j'ai un petit soucis : J'ai changé de répertoire, et quand je fais appel à un script dans un dossier qui n'est pas le même que celui des notifications, elle fait le fondu d'apparition et enchaîne sur celui de disparition. De plus, le texte ne s'affiche plus, même si je fais appel à un script dans le même dossier ...

[mikell]

J'ai changé de répertoire, et quand je fais appel à un script dans un dossier qui n'est pas le même que celui des notifications, elle fait le fondu d'apparition et enchaîne sur celui de disparition. De plus, le texte ne s'affiche plus, même si je fais appel à un script dans le même dossier ...

Pour le texte, dans l'exemple que tu avais mis tu utilisais une police "Helvetica" que je n'avais pas sur mon XP, donc pas de texte affiché ^^
Par exemple, dans mon script j'avais mis la "Comic Sans MS" qui existe d'origine sur tous les Windows donc jamais de souci

Pour le reste ici je n'ai pas de problème en changeant de répertoire => vérifie les chemins et les valeurs de timeout

[RL77LUC]

Pour le texte en effet, j'ai oublié comme un idiot que j'avais changé d'OS x) (Encore un truc d'idiot, je sais, ça fait beaucoup ). J'ai vérifié les chemins et les valeurs de TimeOut. J'ai mis une seule particularité : Vu que c'est dans des dossiers parents, j'ai fait "..\NotifyMe\notif.exe", ça pose problème ?

[mikell]

ça pose problème ?

A priori et vu les posts précédents je pencherais pour l'erreur humaine
Je crois pas trop à une histoire de chemin (sinon ça marcherait pas du tout) mais fais des tests en mettant les chemins complets et tu verras bien...
ça m'évoque quand même furieusement une histoire de timeout (le seul moyen de reproduire ça est de mettre $timeout = 1)

[RL77LUC]

Le TimeOut est bel et bien sur 0, j'utilise exactement les mêmes paramètres depuis le script dans le même dossier et paf, ça marche. Donc je ne vois pas de quoi ça peut venir si ce n'est de l'arborescence ...

[mikell]

Là, je cale...
éventuellement, essaie de mettre des Sleep(100) dans la fonction Notif() parce que comme les données transitent par le presse-papiers entre le script de commande et l'exe, il faut leur laisser un peu de temps

[RL77LUC]

Je ne pense pas que ça vienne de là car c'est la bonne image qui s'affiche. Le seul problème est qu'elle disparait aussitôt après être apparue (Les deux fondus enchaînent).

[mikell]

OK, c'est bien une histoire de chemin mais c'est un peu tordu.... 2 solutions

solution 1 :
tu crées un raccourci de notif.exe que tu places dans le même dossier que le script de commande, en modifiant le script comme ça :

► Afficher le texte

Code : Tout sélectionner

#include <Clipboard.au3>
[color=#FF0000]$notifexedir = @scriptdir & "\test1\test2\"
If not FileExists(@scriptdir & "\notif.lnk") Then FileCreateShortcut($notifexedir & "notif.exe",@scriptdir & "\notif.lnk", $notifexedir) 
Sleep(500)[/color]

_Notif("TEST","cp", "10000")
Sleep(100)
_Notif("TEST","is")
Sleep(100)
_Notif("TEST","technos")

Func _Notif($text, $bk = "default", $timeout = 0)
    $bk = $bk & ".png"
    $data = $text & "#" & $timeout & "#" & $bk
    _ClipBoard_SetData ($data)
Sleep(100)
 [color=#FF0000]ShellExecute(@scriptdir & "\notif.lnk")[/color]
Sleep(100)
EndFunc

c'est bourrin mais ça fonctionne... ^^

solution 2 :
tu modifies directement le script de commande comme ça :

► Afficher le texte

Code : Tout sélectionner

Func _Notif($text, $bk = "default", $timeout = 0)
[color=#FF0000]$notifexedir = @scriptdir & "\test1\test2"
FileChangeDir($notifexedir)[/color]
    $bk = $bk & ".png"
    $data = $text & "#" & $timeout & "#" & $bk
    _ClipBoard_SetData ($data)
Sleep(100)
 [color=#FF0000]ShellExecute(@workingdir & "\notif.exe")[/color]
Sleep(100)
EndFunc
 

[RL77LUC]

J'ai opté pour la solution 2, qui me semble plus propre ^^. Le soucis est résolu. J'ai une dernière petite demande, après normalement tout sera OK. Je cherche un moyen d'installer la police Helvetica-Bold à partir d'un TTF (TrueType), j'ai testé plusieurs méthodes sur le forum anglais, rien n'a fonctionné. Aurais-tu un "truc" qui fonctionne aussi avec GDI+ ?

[mikell]

L'installation et l'utilisation d'une police, ça n'a strictement rien à voir avec GDI+

Voilà un extrait d'un de mes scripts où j'utilise une police 'maison' en ttf, je n'ai laissé que ce qui concerne l'installation et l'usage de la police en ne gardant des includes que les fonctions 'utiles'
Il faut évidemment adapter les noms de police et de fichier

► Afficher le texte

Code : Tout sélectionner

Global Const $FR_NOT_ENUM = 0x20
Global Const $CSIDL_FONTS = 0x0014

Global $sFont =  "Post It Medieval Rough"   ; [color=#008000]<= nom de la police[/color]
Global $iSize = 21
Global $iWeight = 400 
Global $iAttrib = 0

$FontPath = _WinAPI_ShellGetSpecialFolderPath($CSIDL_FONTS)
If Not FileExists($FontPath & "\postit_med.ttf") Then
    FileInstall (".\postit_med.ttf", @tempdir & "\postit_med.ttf")    ; [color=#008000]<= nom du fichier ttf[/color]
    _FontInstall(@tempdir & "\postit_med.ttf")
[color=#FF0000]    If @error Then 
        $sFont = "Comic Sans MS" [/color]   ; [color=#008000]<= important, la police 'de secours' en cas d'échec de l'installation[/color]
        $iSize = 18
        $iWeight = 400
    EndIf
EndIf

;######################
FONCTIONS
;=========================================================

; Yashield
;http://www.autoitscript.com/forum/topic/121885-true-type-fonts-install/page__view__findpost__p__846016

Func _FontInstall($sFile)
    Local $Font, $Name, $Path

    $Name = _WinAPI_GetFontResourceInfo($sFile, 1)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    $Name &= ' (TrueType)'
    $Font = StringRegExpReplace($sFile, '^.*\\', '')
    If Not RegWrite('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', $Name, 'REG_SZ', $Font) Then
        Return SetError(2, 0, 0)
    EndIf
    $Path = _WinAPI_ShellGetSpecialFolderPath($CSIDL_FONTS)
    If Not FileCopy($sFile, $Path) Then
        RegDelete('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', $Name)
        Return SetError(3, 0, 0)
    EndIf
    If Not _WinAPI_AddFontResourceEx($Path & '\' & $Font, 0, 1) Then
        Return SetError(4, 0, 0)
    EndIf
    Return 1
EndFunc   ;==>_FontInstall

;====================================================
; WinAPIEx.au3 (Yashield) 
;http://www.autoitscript.com/forum/topic/98712-winapiex-udf
;====================================================

Func _WinAPI_ShellGetSpecialFolderPath($CSIDL, $fCreate = 0)
    Local $tPath = DllStructCreate('wchar[1024]')
    Local $Ret = DllCall('shell32.dll', 'int', 'SHGetSpecialFolderPathW', 'hwnd', 0, 'ptr', DllStructGetPtr($tPath), 'int', $CSIDL, 'int', $fCreate)

    If (@error) Or (Not $Ret[0]) Then
        Return SetError(1, 0, '')
    EndIf
    Return DllStructGetData($tPath, 1)
EndFunc   ;==>_WinAPI_ShellGetSpecialFolderPath


Func _WinAPI_GetFontResourceInfo($sFont, $fForce = 0)
    If $fForce Then
        If Not _WinAPI_AddFontResourceEx($sFont, $FR_NOT_ENUM) Then
            Return SetError(1, 0, '')
        EndIf
    EndIf

    Local $tData = DllStructCreate('wchar[1024]')
    Local $Ret = DllCall('gdi32.dll', 'int', 'GetFontResourceInfoW','wstr', $sFont, 'dword*', 1024, 'ptr', DllStructGetPtr($tData), 'dword', 0x01)

    If (@error) Or (Not $Ret[0]) Then
        $Ret = 0
    EndIf
    If $fForce Then
        _WinAPI_RemoveFontResourceEx($sFont, $FR_NOT_ENUM)
    EndIf
    If Not IsArray($Ret) Then
        Return SetError(1, 0, '')
    EndIf
    Return DllStructGetData($tData, 1)
EndFunc   ;==>_WinAPI_GetFontResourceInfo


Func _WinAPI_AddFontResourceEx($sFont, $iFlag = 0, $fNotify = 0)
    Local $Ret = DllCall('gdi32.dll', 'int', 'AddFontResourceExW', 'wstr', $sFont, 'dword', $iFlag, 'ptr', 0)

    If (@error) Or (Not $Ret[0]) Then
        Return SetError(1, 0, 0)
    EndIf
    If $fNotify Then
        DllCall('user32.dll', 'int', 'SendMessage', 'hwnd', 0xFFFF, 'uint', 0x001D, 'int', 0, 'int', 0)
    EndIf
    Return $Ret[0]
EndFunc   ;==>_WinAPI_AddFontResourceEx


Func _WinAPI_RemoveFontResourceEx($sFont, $iFlag = 0, $fNotify = 0)
    Local $Ret = DllCall('gdi32.dll', 'int', 'RemoveFontResourceExW', 'wstr', $sFont, 'dword', $iFlag, 'ptr', 0)

    If (@error) Or (Not $Ret[0]) Then
        Return SetError(1, 0, 0)
    EndIf
    If $fNotify Then
        DllCall('user32.dll', 'int', 'SendMessage', 'hwnd', 0xFFFF, 'uint', 0x001D, 'int', 0, 'int', 0)
    EndIf
    Return 1
EndFunc   ;==>_WinAPI_RemoveFontResourceEx
 

Mais elle est moche la police Helvetica...

[RL77LUC]

L'helvetica-bold rend très bien sur les notifications. Regarde sur le PSD, c'est elle qui est utilisée, et ça fait très bien, même si le rendu est moins beau via AutoIt. J'essaye ta méthode et te tiens au courant.

EDIT: Cela ne fonctionne pas, mais laisse, je me suis débrouillé avec une autre police inclue dans Windows.