slipperylobster

One other thought...if the active window on ventrilo changes in any way when someone is speaking (for instance a color change or a graphic indicator) then you could use autoit to detect that change (via a change in color at a specific pixel locationl. You would just loop until the pixel color change then go to a func subroutine to mute winamp. quite simple actually. The reverse to turn it back on

i did this with a free oscilloscope program which reads output frequencies of the soundcard. If the frequency was at a particular level then my program would start recording. I cant remember the name of the program but you can google it.

Nice. Just before I saw your script..I googled for some info on clearing memory. Then I just made a shortcut to point to this file: %windir%\system32\rundll32.exe advapi32.dll,ProcessIdleTasks This also clears the memory.

hmmm....can this record my yahoo webcam.....? Just so I know what the kids are up 2? Or is that off limits?

could anyone tell me what this program does? if i download it and tweak it here and there to make it work...what is it that it will be doing ? will i be viewing ur webcam?

ur spelling variabulls wrong

no cam? is it possible to have a cam work on this?

Sorry...I didn't post the entire script...here it is again. $filedir = "C:\AA TASKBAR SHORTCUTS\Desk\Hold Basket\Word.txt" $pos1= 0 $pos2= 0 $word = "" $line = "" $rssfeed = "http://wordsmith.org/words/today.html" InetGet($rssfeed, $filedir) $file = FileOpen($filedir, 0) while 1 $line = FileReadLine($file) $pos1=stringinstr($line,"<quote>") if $pos1>0 then start() wend func start() while 1 $line = FileReadLine($file) $line=stringreplace($line,"<p>","") $word = $word & $line $pos2 = StringInStr($line, "</quote>") If $pos2 > 0 Then end() WEnd endfunc Func end() splashtextOn("Quote For The Day",$word) FileClose($file) Exit EndFunc

align="right"><b> Its easier than you think. Each number you are looking for is preceded by the above. I do it the hard way but it works....here is an example of how I search for a quote in a website. script follows........ $filedir = "C:\AA TASKBAR SHORTCUTS\Desk\Hold Basket\Word.txt" $pos1= 0 $pos2= 0 $word = "" $line = "" ;Local $o_speech = ObjCreate ("SAPI.SpVoice") *disabled ;$o_speech.Speak("Here is your quote for today") *disabled $rssfeed = "http://wordsmith.org/words/today.html" InetGet($rssfeed, $filedir) $file = FileOpen($filedir, 0) while 1 $line = FileReadLine($file) $pos1=stringinstr($line,"<quote>") if $pos1>0 then start() wend func start() while 1 $line = FileReadLine($file) $line=stringreplace($line,"<p>","") $word = $word & $line $pos2 = StringInStr($line, "</quote>") If $pos2 > 0 Then end() WEnd endfunc

Or use that fancy dancy CODE WIZARD . But first edit your pic with text overlay and do a splashimage instead of a splashtext.

:"> I will try not to be embarrassed of my coding capabilities. Here is a script that will downloads great pics from a site I found. Just enter a page number in between 1 and 425. Also, Make sure you put in your own directory to save the pics in. These pics are not porno...mostly just classy asian models...cute, not nude. Try it if you will. crossPictures.au3

I screwed up... Here is the full code... while 1 $filedir = "C:\AA TASKBAR SHORTCUTS\Desk\Hold Basket\Joke.txt" $last = 0 $end = 0 $linenumb = 0 $joke = "" $line = "" $file="" Local $o_speech = ObjCreate ("SAPI.SpVoice") go() wend Func go();;;;;;;;;;;;;;;;;; $file = FileOpen($filedir, 0) $o_speech.Speak("I Have a good joke for you") $rnd = Random(1, 11146, 1) $rssfeed = "http://jokes.comedycentral.com/random_joke.aspx?joke_id=" & $rnd InetGet($rssfeed, $filedir,1,0) For $linenumb = 464 To 500 Step 1 $line = FileReadLine($file, $linenumb) If $linenumb = 467 Then StringTrimLeft($line, 100) $line=stringreplace($line,"<p>","") $line=stringreplace($line,"<br>","") $joke = $joke & $line $last = StringInStr($line, "</div>") If $last > 0 Then finish() Next endfunc Func finish() $file=fileclose($filedir) $joke=stringtrimright($joke,6) SoundPlay("D:\My Music\Sound Effects\People\kids giggle.wav", 1) splashtextOn("Jokes (Press (CntrlAltShift E) to Exit",$joke) $o_speech.Speak($joke) SoundPlay("D:\My Music\Sound Effects\People\kids laugh.wav", 1) splashoff() sleep(100) $ans=msgbox(1,"Joke Machine","Want Another?") if $ans=2 then exit EndFunc

ok.. I am not as smart as most of the guys here. I do what I can with the limited amount of brain cells left after ar hard day of drinking.. Here is what I did to get random jokes out of a webpage. I just know it aint pretty..but it works! Use beta for voice or delete two lines referencing voice. Notice, I pull out the joke string and get rid of most of the exterraneous b/s. But I have it read from a file. use your own $filedir. while 1 $filedir = "C:\AA TASKBAR SHORTCUTS\Desk\Hold Basket\Joke.txt" $last = 0 $end = 0 $linenumb = 0 $joke = "" $line = "" $file="" Local $o_speech = ObjCreate ("SAPI.SpVoice") go() wend Func go();;;;;;;;;;;;;;;;;; $file = FileOpen($filedir, 0) $o_speech.Speak("I Have a good joke for you") $rnd = Random(1, 11146, 1) $rssfeed = "http://jokes.comedycentral.com/random_joke.aspx?joke_id=" & $rnd InetGet($rssfeed, $filedir,1,0) For $linenumb = 464 To 500 Step 1 $line = FileReadLine($file, $linenumb) If $linenumb = 467 Then StringTrimLeft($line, 100) $line=stringreplace($line,"<p>","") $line=stringreplace($line,"<br>","") $joke = $joke & $line $last = StringInStr($line, "</div>") If $last > 0 Then finish() Next endfunc

another 5 minutes wasted on reading this thread.... need i continue? I use midi files in cakewalk products and would be somewhat interested in what this guy had, and if it could be modified to suit my needs. ahhh well....back to the pros. Cakewalk