- #1
J
Juergen_F
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 03.01.2002
- Beiträge
- 3.764
- Reaktionspunkte
- 0
Hallo,
da hier immer wieder Fragen zu Makros und auch Vorlagen gestellt werden, meine ich, das man einmal einen Thread in dieses Forum stellen sollte, in dem jeder, der z.B. ein interessantes Makro oder Vorlage erstellt oder irgendwo gefunden hat, dieses der Allgemeinheit zur Verfügung stellen kann. Entweder hier direkt hineinschreiben (kleinere Makrotexte) oder nur die Beschreibung einer Vorlage, um sie dann z. B. per email oder download anzubieten.
Hier ein erstes Makro für SO 5.2, welches ich irgendwo im Netz gefunden habe. In der SO-Hilfe ist zwar schon ein ähnliches Makro aufgeführt, das funktioniert (zumindest bei mir) aber nicht.:
Declare Function SysPlaySound Lib winmm.dll Alias PlaySound (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub PlaySound (wavFile As String)
Dim hMod As Long
SysPlaySound(wavFile, hMod, &H20000)
End Sub
Sub ProgStart
PlaySound(c:\windows\media\welcome.wav)
End Sub
Sub ProgEnd
PlaySound(c:\windows\media\goodbye.wav)
End Sub
sub newmail
playsound(c:\windows\media\gotmail.wav)
end sub
Beachte: Von 'Declare' bis 'as Long' muß in einer Zeile stehen.
Mit diesem Makro könnt ihr euch SO-Ereignisse akustisch melden lassen. Die drei Subroutinen müssen nach der Makroerstellung den Ereignissen zugeordnet werden.Der Pfad zu den .wav-Daeien muß eventuell noch angepasst werden, auch die wav-Dateien selbst natürlich noch. Ich habe dafür die AOL-Klänge 'Willkommen', 'Sie haben Post', und 'Bis bald' genommen. Die Subroutinen lassen sich natürlich erweitern auf alle unterstützten Ereignisse.
Ich hoffe, es besteht Interesse an einem solchen Thread ;D.
Ciao
Jürgen
da hier immer wieder Fragen zu Makros und auch Vorlagen gestellt werden, meine ich, das man einmal einen Thread in dieses Forum stellen sollte, in dem jeder, der z.B. ein interessantes Makro oder Vorlage erstellt oder irgendwo gefunden hat, dieses der Allgemeinheit zur Verfügung stellen kann. Entweder hier direkt hineinschreiben (kleinere Makrotexte) oder nur die Beschreibung einer Vorlage, um sie dann z. B. per email oder download anzubieten.
Hier ein erstes Makro für SO 5.2, welches ich irgendwo im Netz gefunden habe. In der SO-Hilfe ist zwar schon ein ähnliches Makro aufgeführt, das funktioniert (zumindest bei mir) aber nicht.:
Declare Function SysPlaySound Lib winmm.dll Alias PlaySound (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub PlaySound (wavFile As String)
Dim hMod As Long
SysPlaySound(wavFile, hMod, &H20000)
End Sub
Sub ProgStart
PlaySound(c:\windows\media\welcome.wav)
End Sub
Sub ProgEnd
PlaySound(c:\windows\media\goodbye.wav)
End Sub
sub newmail
playsound(c:\windows\media\gotmail.wav)
end sub
Beachte: Von 'Declare' bis 'as Long' muß in einer Zeile stehen.
Mit diesem Makro könnt ihr euch SO-Ereignisse akustisch melden lassen. Die drei Subroutinen müssen nach der Makroerstellung den Ereignissen zugeordnet werden.Der Pfad zu den .wav-Daeien muß eventuell noch angepasst werden, auch die wav-Dateien selbst natürlich noch. Ich habe dafür die AOL-Klänge 'Willkommen', 'Sie haben Post', und 'Bis bald' genommen. Die Subroutinen lassen sich natürlich erweitern auf alle unterstützten Ereignisse.
Ich hoffe, es besteht Interesse an einem solchen Thread ;D.
Ciao
Jürgen