More dialer stuff

[Alejandro Tejada]

Hi Developers,
 
Check this handler too, based in the function
published
by Ken Ray. It get the COM ports from the Registry
for some modems in my system, but it needs 
more testers that confirms that the key 
"AttachedTo" is always present for modems in 
every windows 98 machine.

Look in google for "AttachedTo" to get more
results on this particular registry key.

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 & "\AttachedTo" into tRegLoc

put queryRegistry(tRegLoc) into tComPort

replace null with "" in tComPort -- strips nulls

if tComPort is empty then put "COM info not available"
& return after qwe else put 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