More dialer stuff

[Alejandro Tejada]

Hi Developers,

This handler, based in the function published
by Ken Ray, get the COM ports from the Registry
in my system, but it needs more testers 
that confirms that the key "DeviceType" always
contains the correct com port for modems in every 
windows 98 machine.

on mouseUp
  repeat with i = 0 to 5
    put
"HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Modem\000"
& i & "\model" into tRegLoc
    put queryRegistry(tRegLoc) into tComPort
    replace null with "" in tComPort -- strips nulls
    if tComPort <> empty then
      put tComPort & return after qwe
      put
"HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Modem\000"
& i & "\DeviceType" into tRegLoc
      put queryRegistry(tRegLoc) into tComPort
      replace null with "" in tComPort -- strips nulls
      put chartonum(tComPort) into tComPort
      if tComPort is empty then put "Internal Modem" &
return after qwe else put "COM " & tComPort & return
after qwe
    end if
  end repeat
  if qwe = "" then
    answer "No modem available."
  else
    answer "Modem(s) available: " & return & qwe
  end if
end mouseUp

al

=====
Visit my site:
http://www.geocities.com/capellan2000/
Search the mail list:
http://mindlube.com/cgi-bin/search-use-rev.cgi

__________________________________
Do you Yahoo!?
Yahoo! Search - Find what you’re looking for faster
http://search.yahoo.com