Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: NQL-Bye.r

From: ryanc:iesco-dms at: 23-Apr-2001 12:42

Petr Krenzelok wrote:
<snip> > foreach address nql-addressess [ > loop 100000 [send address "....just to let you know what spam > means!"] > ]
</snip> This is my favorite I reserve for nastiest perpetrators, (not NQL): rebol [ Title: "Dial Away" Date: 18-Dec-2000 File: %dialaway.r Purpose: { I strictly discourage you to use it all weekend long to continously dial those toll free numbers left by spammers. The tolls are much higher during weekdays! } ] dial-away: does [ phone-nums: parse/all phone-numbers-text/text "^/" quit-time: now + to-time time-to-run/text sp: open/mode/with serial://port1/9600/none [write read string no-wait] "^M" until [ to-call-position: random length? phone-nums to-call: rejoin ["atdt " pick phone-nums to-call-position "^/"] insert sp to-call wait [30] print copy sp now > quit-time ] close sp ] view layout [ title "Dial-Away" guide label "Numbers:" phone-numbers-text: area return label "Time to run (hh:mm): " time-to-run: field tab button "Dial Away" [dial-away] button "Cancel" [quit] ]