Sub SettingsLoad
If File.Exists(File.DirInternal, "Setings.dat") Then
Rf.Initialize(File.DirInternal,"Setings.dat",True)
WiFiCfg1 = Rf.ReadObject(Rf.CurrentPosition)
Rf.Close
End If
End Sub
Sub SettingsWrite
WiFiCfg1.SSID = EditText_SSID.Text
WiFiCfg1.WiFiKey = EditText_WiFiKey.Text
WiFiCfg1.EncryptionKey = Spinner_EncryptionKey.SelectedItem
WiFiCfg1.Channel = Spinner_Channel.SelectedItem
Rf.Initialize(File.DirInternal,"Setings.dat",False)
Rf.WriteObject(WiFiCfg1,False,Rf.CurrentPosition)
Rf.Close
End Sub