0 Usuarios y 1 Visitante están viendo este tema.
Imports System.Net.NetworkInformationImports System.TextImports WifiHelperImports WifiHelper.Types
Dim sb As New StringBuilder() For Each ni As NetworkInterface In Wifi.GetWlanInterfaces() sb.AppendLine("Name........: " & ni.name) sb.AppendLine("Description.: " & ni.Description) sb.AppendLine("Guid........: " & ni.Id) sb.AppendLine("+++++++++++++++++++++++++++++++++++++++++++++") sb.AppendLine() Next Messagebox.Show(sb.ToString())
Name........: Wi-Fi 2Description.: 802.11n USB Wireless LAN CardGuid........: {59FB677D-E975-4AD8-B420-0A51F490FFE7}+++++++++++++++++++++++++++++++++++++++++++++Name........: Wi-FiDescription.: Ralink RT5390R 802.11bgn Wi-Fi AdapterGuid........: {FDDB1266-7176-45CD-AC21-E56737E036A4}+++++++++++++++++++++++++++++++++++++++++++++
Dim ni As NetworkInterface = Wifi.GetInterfaceFrom("Ralink RT5390R 802.11bgn Wi-Fi Adapter")
' Obtener Los Profiles disponiblesDim profiles As IEnumerable(Of WlanProfileInfo) = Wifi.GetProfiles(nic).ToList()If Not IsNothing(profiles) Then 'Obtener el Número de profiles disponibles Messagebox.Show(profiles.Count()) ' Obtener los Nombres de los SSID Disponibles For Each b as WlanProfileInfo in profiles MessageBox.Show(b.profileName) NextEnd If
' Obtener Información de un ProfileDim res As WifiProfile = Wifi.GetProfileData("Claro", nic)Dim sb As new StringBuilder()sb.AppendLine("SSID.......: " & res.SsidName)sb.AppendLine("Password..: " & res.Password)Messagebox.Show(sb.ToString())Messagebox.Show(res.ToString())
Name...................: ClaroSSID...................: ClaroConnection Type........: ESSConnection Mode........: autoAuthentication.........: WPA2PSKEncryption.............: AESKey Type...............: passPhraseIs Protect?............: FalsePassword...............: 0987654321