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

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