More dialer stuff

[Ken Norris]

Hi Ken R.

> Date: Thu, 4 Mar 2004 17:32:53 -0600
> From: "Ken Ray" <kray at sonsothunder.com>
> Subject: RE: More dialer stuff
> 
> Ken,
> 
> This works in WinXP (both Home and Pro) - I haven't tested it in other
> Windows flavors:
> 
> on mouseUp
> put GetCOMPort() into tCOMPort
> if tCOMPort = "" then
> answer "No modem available."
> else
> answer "Modem connected at: " & tCOMPort
> end if
> end mouseUp
> 
> function GetCOMPort
> put "HKEY_LOCAL_MACHINE\Software\Microsoft\Ras\Tapi
> Devices\Unimodem\Address" into tRegLoc
> put queryRegistry(tRegLoc) into tComPort
> replace null with "" in tComPort  -- strips nulls
> return tComPort
> end GetCOMPort
-----------
Wow, thanks. Nice function. I had to go away from it for awhile helping some
friends who just bought an art glass business straighten out some computer
messes (including the usual printer crisis) and get them up and running.

In fact, I'll test the little gizmo I'm working on there, because they use
both types of machines.
-----------
> 
> Can someone test this is other Windows OS'es and let me know if this
> works reliably?
-----------
Maybe in a few days, when I can get to a running Win machine.

Ken N.