This is a very Symbol-specific question. You might try asking their support
group.
--
Chris Tacke, Embedded MVP
OpenNETCF Consulting
Giving back to the embedded community
http://community.OpenNETCF.com
<(E-Mail Removed)> wrote in message
news:75940654-2e4d-44e0-80c3-(E-Mail Removed)...
> Hello NG,
>
> i want to create a wlan profile using vb.net 2008 and windows mobile
> 6.1
>
> i use the following code:
>
> Private Sub ProfileAnlegen()
>
> 1: Try
> 2: If
> Microsoft.WindowsMobile.Status.SystemState.CradlePresent Then Exit Try
> 3: myWLAN = New Symbol.Fusion.WLAN.WLAN()
>
> 4: If fProfilVorhanden("EC", myWLAN) = False Then
> 5: myProfilData = New
> Symbol.Fusion.WLAN.InfrastructureProfileData("EC", "SSID")
> 6: myProfilData.PowerMode =
> Symbol.Fusion.WLAN.PowerMode.FAST_POWER_SAVE
> 7: myProfilData.TransmissionPower =
> Symbol.Fusion.WLAN.InfrastructureProfileData.TransmitPowerLevel.BSS_AUTO
> 8: myProfilData.IPSettings.AddressingMode =
> Symbol.Fusion.WLAN.IPSettings.AddressingModes.DHCP
> 9: myProfilData.SecurityType =
> Symbol.Fusion.WLAN.WLANSecurityType.SECURITY_LEGACY
> 10: myProfilData.Authentication.AuthenticationType =
> Symbol.Fusion.WLAN.Authentication.AuthenticationTypes.NONE
> 11: myProfilData.Encryption.EncryptionType =
> Symbol.Fusion.WLAN.Encryption.EncryptionTypes.NONE
> 12: myWLAN.Profiles.CreateInfrastructureProfile
> (myProfilData)
> 13: Else
> 14: MsgBox("EC vorhanden")
> 15: End If
>
> 16: myWLAN.Dispose()
> 17: Catch ex As Exception
> 18: MsgBox("ProfileAnlegen Zeile: " & Err.Erl & vbCrLf &
> ex.Message)
> 19: End Try
> End Sub
>
>
> but if i execute line 12 " myWLAN.Profiles.CreateInfrastructureProfile
> (myProfilData)" my application hangs. after reboot the mc55, i noticed
> that the profil was created and works correctly.
>
> Why does the CreateInfrastructureProfile command does not works?
>
> Regards, Verena
Similar Threads
