Thomas Barghahn schrieb:
> Dein Script ...
> ... *SICHERN* und komplett austauschen durch:
Das habe ich nun nochmal neu gemacht.
Die neue news-in.hsc
#!hs2 #!load hamster.hsm
varset ( $KnHome, "C:\Programme\Korrnews\" )
HamNewsJobsClear HamNewsJobsPullDef HamNewsJobsStart HamWaitIdle
runscript( "sound.hsc", "", true) # <--- *NEU (war: News_In.hsc)*
runscript( "NewsWatcher.hsc", "", true) Execute( $KnHome + "Only_kn.exe
Type:News-In Filename:" + ParamStr( 2 ),$KnHome,0,1 ) quit
Die sound.hsc
varset ( $My_FQDN_2,"barghahn\-online\.de" )
varset ( $My_FQDN_1,"wolfgang\-bauer\.at" )
varset ( $SND_EIGENES,"C:\Programme\HCL\eigenesposting.wav" )
varset ( $SND_THOMAS,"C:\Programme\HCL\thomas.wav" )
varset ( $SND_DIREKT,"C:\Programme\HCL\dir-antwort.wav" )
varset ( $SND_INDIREKT,"C:\Programme\HCL\indir-antwort.wav" )
# +++ EIGENES POSTING
if ( re_match ( $MsgId, $My_FQDN_1 ) )
PlayMediaFile ( $SND_EIGENES, True ) # SOUND BITTE ANPASSEN!
endif
# +++ VON THOMAS
if ( re_match ( $MsgId, $My_FQDN_2 ) )
PlayMediaFile ( $SND_THOMAS, True ) # SOUND BITTE ANPASSEN!
endif
# +++ DIREKTE ANTWORTEN
if ( ( re_match ( $References, $My_FQDN_1 + ">$" ) ) & _
( !re_match ( $MsgId, $My_FQDN_1 + ">" ) ) )
PlayMediaFile ( $SND_DIREKT, True )
endif
# +++ INDIREKTE ANTWORTEN
if ( ( re_match ( $References, $My_FQDN_1 + ">\s*<" ) ) & _
( !re_match ( $References, $My_FQDN_1 + ">$" ) ) & _
( !re_match ( $MsgId, $My_FQDN_1 + ">" ) ) )
PlayMediaFile ( $SND_INDIREKT, True )
endif
Ist das soweit korrekt? Getestet habe ich noch nicht.