Обнаружение всех беспроводных сетей

При вызове с пустой строкой в качестве аргумента wln.scan и wln.activescan пытаются найти все беспроводные сети в зоне досягаемости. После завершения задачи свойство wln.scanresultssid (только чтение) будет содержать список имён сетей, разделённых запятыми.

'Scan for available networks. This is a simplified example.
Dim s As String
...
wln.scan("") 'you could use wln.activescan('') instead
While wln.task<>PL_WLN_TASK_IDLE
Wend
s=wln.scanresultssid 'the list of networks will be copied into s

После выполнения этого кода строка s может содержать что-то вроде: «TIBBO,c1100_1,.....,WNET2». Обратите внимание на «.....» - это пять байт с ASCII-кодом 0. Они обозначают скрытую сеть (то есть сеть, которая не транслирует свой SSID). Естественно, имя такой сети вашему устройству не раскрывается. Так будет независимо от того, использовали вы wln.scan или wln.activescan.