[REBOL] Re: NQL-Bye.r
From: ryanc:iesco-dms at: 23-Apr-2001 12:42
Petr Krenzelok wrote:
> foreach address nql-addressess [
> loop 100000 [send address "....just to let you know what spam
This is my favorite I reserve for nastiest perpetrators, (not NQL):
Title: "Dial Away"
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"
to-call-position: random length? phone-nums
to-call: rejoin ["atdt " pick phone-nums to-call-position "^/"]
insert sp to-call
print copy sp
now > quit-time
view layout [
label "Time to run (hh:mm): "
button "Dial Away" [dial-away]
button "Cancel" [quit]