Sub Process_Globals
Dim Wifi As ABWifi
End Sub
Sub Globals
Dim btn1 As Button
Dim Timer1 As Timer
Dim lblIsconnected As Label
Dim lblMac As Label
Dim lblSSID As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
End Sub
Sub btn1_Click
Timer1.Initialize("Timer1",2500)
Timer1.Enabled=True
End Sub
Sub Timer1_tick
Dim RES As Boolean
RES = Wifi.ABLoadWifi
If RES = True Then
lblSSID.Text=Wifi.ABGetCurrentWifiInfo.SSID
lblMac.Text=Wifi.ABGetCurrentWifiInfo.MacAddress
If Wifi.ABGetCurrentWifiInfo.IsConnected = True Then
lblIsconnected.Text="Connected"
Else
lblIsconnected.Text="Not Connected"
End If
Else
Msgbox(Wifi.ABWifiLastError,"Error")
End If
Timer1.Enabled=False
End Sub