[REBOL] Re: Accessing serial port under Windows
From: ryanc::iesco-dms::com at: 21-Mar-2001 10:19
I am not sure what you mean? Could you how me an example of your problem?
Here is program I wrote a few months ago after getting bombarded by spam. It might help.
--Ryan
rebol [
Title: "Dial Away"
Date: 18-Dec-2000
File: %dialaway.r
Purpose: {
I strictly discourage you to use this program 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]
]