[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]
]
