Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: (nrd) St. Valentine's Day preperation script

by newrisedesigns (Curate)
on Jan 28, 2003 at 13:51 UTC ( #230577=note: print w/ replies, xml ) Need Help??


in reply to St. Valentine's Day preperation script

Using batkins' pearl of wisdom...

#tested - works for me (win2k) use Win32::OLE qw( EVENTS ); my $lovespeak = new Win32::OLE( "{EEE78591-FE22-11D0-8BEF-0060081841DE +}" ) or die "$!"; my $self = 'Monk'; # you my $chicks_name = 'Chick'; # her my @cheese = ( "hey $chicks_name\n\n I hope everythings going well today.\n I just wa +nted to drop you a line.\n\nLove always,\n\t$self", "Baby,\n I just w +anted you to know how much I love you. Youre great!\n\nLove,\n\t$self +", "I've been thinking about you all day. I can't wait to come home t +o you.\n talk to ya later,\n\t$self", ); my @subjects = ( "hey babe...", "just wanted to say hi...", "oh I love you...", ); my $random = int(rand($#subjects)); my $say = $subjects[$random]; $random = int(rand($#cheese)); $say .= $cheese[$random]; $lovespeak->Speak($say); while( $lovespeak->{Speaking} ){ Win32::OLE->SpinMessageLoop(); Win32::Sleep( 100 ); }

Nothing says "I wuv you" like a robotic voice!

"What is this emotion you call 'wuv'?"
"Surely you mean, 'love'?"
"No, 'wuv', with an Earth double-u."
"This confuses and enrages us!"
-Futurama

Happy St. Valentine's Day.

Update: removed the "+ 1" from the int rand.

John J Reiser
newrisedesigns.com


Comment on Re: (nrd) St. Valentine's Day preperation script
Download Code
Replies are listed 'Best First'.
Re: Re: (nrd) St. Valentine's Day preperation script
by KyleYankan (Acolyte) on Jan 29, 2003 at 21:57 UTC
    Hey is there a way i can use that on win98se computers? I dunno if it's my compiler, or what..

      I guess you do not have the "DirectSpeechSynthesis Module" (%Systemroot%\speech\XVoice.dll) on the win98se. GOK if you can install that there and what is that part of. (Search for that {EEE785...} in your registry).

      Jenda

        I have it isntalled there, and the registry key exists. I'm going to go look on the M$ knowledge base for something. None of the examples that came with the software work either.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://230577]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (9)
As of 2015-07-08 00:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls