Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Timer1 As Timer '
Dim PE As PhoneEvents
End Sub
Sub Service_Create
Timer1.Initialize("Timer1",1000) ' 1 secondi
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub
Sub Service_Destroy
End Sub
Sub Timer1_Tick
Timer1.Enabled=False
Main.flag=True
Dim rr As Reflector
rr.Target = rr.GetContext
rr.Target = rr.RunMethod2("getSystemService", "audio", "java.lang.String")
rr.RunMethod2("setMode", "2", "java.lang.int")
rr.RunMethod2("setSpeakerphoneOn", True, "java.lang.boolean")
End Sub
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
If State == "OFFHOOK" Then
'Dim rr As Reflector
'rr.Target = rr.GetContext
'rr.Target = rr.RunMethod2("getSystemService", "audio", "java.lang.String")
'rr.RunMethod2("setMode", "2", "java.lang.int")
'rr.RunMethod2("setSpeakerphoneOn", True, "java.lang.boolean")
Timer1.Enabled=True
End If
End Sub