Ich habe mir kleines Script geschrieben um mit einem Mausklick die Nachrichten des aktuellen Tages anzuzeigen. Vielleicht kanns ja einer gebrauchen?
01 ; motdtb.powerpro
02 ; Anzeige der Nachrichten des aktuellen Tages
03 ; Voraussetzung Deutsche Sprachdatei 1.29 Beta
04
05 ; @copyright: 2004 by Thomas Wölk
06 ; @license: not yet decided ...
07 ; --------------------------------------------
08
09 ; Anzeige auf "Alle Nachrichten anzeigen" zuruecksetzen
10 Win.Keys("{Slow}{To C=TMailerForm}{ctrl}{plus}{ctrl}")
11
12 ; Auf Anzeige des Fensters warten
13 Wait.For (activewindow("C=TMailerForm"))
14
15 ; Dialog aufrufen zum Einstellen der Anzeigeeigenschaften
16 Win.Keys("{Slow}{To C=TMailerForm}%age")
17
18 Wait.For(activewindow("C=TSetMsgFilterDlg"))
19
20 If (Select(date, 5, 6) != Select(Date.AddDays(date, 1), 5, 6)) do
21 Win.Keys("{Slow}{To C=TSetMsgFilterDlg}%z{tab}{space}{tab}{up}{right}{up}{tab}{space}{enter}")
22 ; Win.Debug("today is last day of the month")
23 Else
24 Win.Keys("{Slow}{To C=TSetMsgFilterDlg}%z{tab}{space}{tab}{up}{tab}{space}{enter}")
25 ; Win.Debug("today is *NOT* last day of the month")
26 EndIf
27
28 Quit
Die Sprachdatei ist keine offizielle Version und enthaelt nur die Metatasten fuer den Zugriff auf die Anzeigeeinstellungen!
[gelöscht durch Administrator]