[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.
Title: "Dial Away"
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"
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]