Date: Fri, 11 Feb 2000 00:55:49 +0100
From: Manfred Polak <ma.po@gmx.de>
Subject: [Agent] Tagline
--------
From: Manfred Polak <ma.po@gmx.de>

Von Frank Ledwon gibt es ja so ein Tool, das die Tagline
in der Agent-Titelleiste anzeigt. Da Hamster jetzt auch
Taglines beherrscht, habe ich den Spie umgedreht.
Das folgende Script liest aus dem Agent-Fenster die
gerade gewhlte Gruppe aus, erkundigt sich beim Hamster
nach der Tagline und zeigt sie in einem Popup-Fenster
an. Wenn keine Tagline gefunden wird, wird einfach ein
leeres Fenster angezeigt.
Voraussetzung fr das Script ist Heiko Rosts "MiniOle".

Set MiniOle = CreateObject("ScriptFunctions.App")
set WSHShell = CreateObject("Wscript.Shell")
window = miniole.WndGetList("agent","")
Set regEx = New RegExp
regEx.Pattern = "Agent - \["
group = regEx.Replace(window, "c:\programme\online\hamster\groups\") 'Pfad anpassen!
regEx.Pattern = "]"
group = regEx.Replace(group, "\data.ini")
tagline = MiniOle.IniRead(group,"info","Description","")
text = WSHShell.Popup(tagline, 10, "Tagline")

Die "10" in der letzten Zeile bewirkt, da das Fenster 10
Sekunden sichtbar ist. Natrlich kann man auch jeden
anderen Wert einsetzen. Wenn man die Zahl ganz weglt,
bleibt das Fenster dauerhaft sichtbar. In dem Fall mu
aber trotzdem das zweite Komma stehenbleiben.

Mit RegEx in VBScript habe ich noch keine Erfahrung.
Falls das irgendwie eleganter geht, nur her damit.

Natrlich funktioniert das ganze nach entsprechender
Anpassung auch mit jedem anderen Client, der die
gerade gewhlte Gruppe in der Titelleiste anzeigt.

Manfred