gps.shojaei
New Member
hello
i test more sample.
but i cannot read WIFI SSID List.
i test more and more sample. last sample is M
Dim myMLWifiObject As MLwifi
Dim myMLScan As MLScan
Dim rp As RuntimePermissions
Type SSIDentry (SSID As String, BSSID As String, Index As String)
myMLScan.startscan("wifi",False)
but
Sub wifi_ScanDone(Results() As String, Count As Int)
Dim record As SSIDentry
record.initialize
Dim ListForList As List
ListForList.Initialize
Dim listofNetworks As List
listofNetworks = myMLScan.listSavedNetworks
Dim returnedEntry() As String
For i = 0 To listofNetworks.Size-1
returnedEntry = Regex.Split(",",listofNetworks.Get(i))
record.ssid = returnedEntry(0).SubString2(1,returnedEntry(0).Length-1) 'Remove the quotes
record.bssid = returnedEntry(1)
record.index = returnedEntry(2)
SSIDListView1.AddTwoLines2(record.SSID,record.Index,record.SSID)
Next
End Sub
no act this event
and
it wait for unlimited time in this line
'_________ SSID list____________
'SSID
Dim numberOfValidPermissions As Int = 0
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
===>>>> wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
' Fine location permission OK
please help me
[email protected]
i test more sample.
but i cannot read WIFI SSID List.
i test more and more sample. last sample is M
Dim myMLWifiObject As MLwifi
Dim myMLScan As MLScan
Dim rp As RuntimePermissions
Type SSIDentry (SSID As String, BSSID As String, Index As String)
myMLScan.startscan("wifi",False)
but
Sub wifi_ScanDone(Results() As String, Count As Int)
Dim record As SSIDentry
record.initialize
Dim ListForList As List
ListForList.Initialize
Dim listofNetworks As List
listofNetworks = myMLScan.listSavedNetworks
Dim returnedEntry() As String
For i = 0 To listofNetworks.Size-1
returnedEntry = Regex.Split(",",listofNetworks.Get(i))
record.ssid = returnedEntry(0).SubString2(1,returnedEntry(0).Length-1) 'Remove the quotes
record.bssid = returnedEntry(1)
record.index = returnedEntry(2)
SSIDListView1.AddTwoLines2(record.SSID,record.Index,record.SSID)
Next
End Sub
no act this event
and
it wait for unlimited time in this line
'_________ SSID list____________
'SSID
Dim numberOfValidPermissions As Int = 0
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
===>>>> wait for Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
' Fine location permission OK
please help me
[email protected]