Sub Process_Globals
Private wifilock As Object
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "wifi", "java.lang.String")
wifilock = r.RunMethod4("createWifiLock", Array As Object(1, "locktag"), _
Array As String("java.lang.int", "java.lang.String"))
End If
End Sub
Sub AcquireLock
Dim r As Reflector
r.Target = wifilock
r.RunMethod("acquire")
End Sub
Sub ReleaseLock
Dim r As Reflector
r.Target = wifilock
r.RunMethod("release")
End Sub
Sub Activity_Resume
AcquireLock
End Sub
Sub Activity_Pause (UserClosed As Boolean)
ReleaseLock
End Sub