More dialer stuff

[Ken Ray]

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


Can someone test this is other Windows OS'es and let me know if this
works reliably?

Ken Ray
Sons of Thunder Software
Email: kray at sonsothunder.com
Web Site: http://www.sonsothunder.com/ 


> -----Original Message-----
> From: use-revolution-bounces at lists.runrev.com 
> [mailto:use-revolution-bounces at lists.runrev.com] On Behalf Of 
> Ken Norris
> Sent: Wednesday, March 03, 2004 9:01 PM
> To: use-revolution at lists.runrev.com
> Subject: Re: More dialer stuff
> 
> 
> Hi Martin
> 
> > Date: Wed, 03 Mar 2004 22:52:03 +0000
> > From: Martin Baxter <martin at materiaprima.fsnet.co.uk>
> > Subject: Re: More dialer stuff
> > 
> > open file "COM3:" for write
> > write "ATDT" && dNumber && return to file "COM3"
> > 
> > dialled my internal winmodem OK -- (XP)
> ---------
> Thanks so much. That's what's I needed to see.
> 
> What's left is to find a way to query XP for the com port 
> that has the modem connected to it. My ISP says I can find it 
> on my Win system, but that won't help a user that doesn't 
> have a clue what to look for. Any suggestions?
> 
> TIA,
> Ken N
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com 
> http://lists.runrev.com/mailman/listinfo/use-> revolution
>