ATNEL tech-forum

Re: Przechwyt wiadomości SMS w tle

2017-06-17T18:13:04+01:00

Witam z dopiskiem nazwa_activity.zminena ( tak jak wyżej kolega zapisal ) można sobie przypisywać zmienne z różnych activiti To tak jakby ktoś szukał.

Statystyki: Napisane przez grzeniu 73 — 17 cze 2017, o 18:13

Re: Przechwyt wiadomości SMS w tle

2017-05-21T12:55:07+01:00

Quote:

To poszukaj z łaski swojej, bo bardzo chętnie bym skorzystał

Ok już znalazłem.
Ja odwoływałem się do zmiennych poza modułem, podaję nazwę modułu.zmienna np:
będąc w Starter odwołuję się do zmiennej w Main w taki sposób:

Main.flafa = True

Mam nadzieję że oto ci chodziło.

Statystyki: Napisane przez kurnachatka — 21 maja 2017, o 12:55

Re: Przechwyt wiadomości SMS w tle

2017-05-20T21:00:45+01:00

Quote:

ak powołam zmienną w globals to będzie widoczna w każdym activiti

Jest taka możliwość, nawet jak dobrze pamiętam wykorzystuję taką możliwość w mojej aplikacji, jak będę przy komputerze to zerknę jak to zrealizować.

Statystyki: Napisane przez kurnachatka — 20 maja 2017, o 21:00

Re: Przechwyt wiadomości SMS w tle

2017-05-20T18:51:46+01:00

O teraz jest gitara. Działa tak jak chciałem. Przynajmniej na razie. Wcześniej próbowałem wywoływać główne activiti i wywalało mi apke. Jeszcze małe pytanie czy jest możliwość korzystania z tych samych zmiennych pomiędzy dwoma activiti? Wielkie dzięki za pomoc.
Dałbym "pomógł" ale nie umiem

Statystyki: Napisane przez grzeniu 73 — 20 maja 2017, o 18:51

Re: Przechwyt wiadomości SMS w tle

2017-05-20T14:58:49+01:00

Witam! Na razie to Twój program i dodałem do testu tylko prosta obsługę usb i wysyłanie stringa. Gdy android nie jest uśpiony (apka wyłączona) to po otrzymaniu smsa wysyła stringa do procka. Gdy android spi tez otrzymuje smsa ale już nic nie wysyła. Znalazłem jakiś program ,który po otrzymaniu sms uruchamia moja apke i wtedy działa nie zależnie czy jest uśpiony czy nie. Ten program go budzi. Tylko to tak trochę na około jest. Mógłbyś napisać o tym startactiviti? Musze powołać jeszcze jeden moduł? Tu jest to co dodałem do programu

[syntax=basic4gl]' tutaj możemy dopisać reakcję kodu na przychodzącą wiadomość np

str=messages(i).body
ToastMessageShow("jestem tu",True)
'****************************************************
If usb.UsbPresent = usb.USB_NONE Then
'Log("Msgbox - no device")
Return
End If

If (usb.HasPermission) Then
Dim dev As Int
dev = usb.Open(38400)
If dev <> usb.USB_NONE Then
ast.Initialize( Me, "ast",usb.GetInputStream, usb.getOutputStream )
ast.Write( "p:"& str & Chr(13) & Chr(10) )
ast.Close

End If
Else
usb.RequestPermission
End If
'****************************************************[/syntax]

Docelowo tablet będzie w samochodzie i po otrzymaniu smsa w zależności jakie będzie polecenie to albo włączy/wyłączy webasto ,albo wyśle mi odczyty napięcia i temperatury. Dlatego fajnie by było gdyby" serwis moduł (s1)" uruchomił moduł w którym to wszystko będzie i to on mi już będzie wysyłał co trzeba. Nie wiem czy w dobrym kierunku kombinuje

Statystyki: Napisane przez grzeniu 73 — 20 maja 2017, o 14:58

Re: Przechwyt wiadomości SMS w tle

2017-05-19T22:33:04+01:00

Obróbkę smsa mam już zrobiona. Problem polega na tym, że smsa do tableta będę wysyłał gdy tablet jest uśpiony. Program od Ciebie uruchamia się i powiadamia mnie ze doszedł. Jednak w uśpieniu nie wysyła nic przez Usb. Gdy tablet nie jest uśpiony,a tylko apka wyłączona to ta operacja jest poprawnie przeprowadzana. Samo zapisanie do pliku tekstowego mi nic nie da ,bo chce żeby program zareagował natychmiast po otrzymaniu sms.
Najlepiej dla mnie byłoby gdyby po otrzymaniu smsa w stanie uśpienia włączała się apka ,która by sobie wszystko już sama zrobiła. Tego niestety nie wiem jak zrobić. Ewentualnie tylko wybudzić androida ,a dopiero później wysłać dane do procka. Tylko jak się wybudza

Statystyki: Napisane przez grzeniu 73 — 19 maja 2017, o 22:33

Re: Przechwyt wiadomości SMS w tle

2017-05-19T19:21:08+01:00

No już w końcu apka działa. Właśnie musze teraz dojść jak obrobić wiadomość. Chce żeby w czasie uśpienia tableta po otrzymaniu smsa wysłał do procka odpowiednie rozkazy. Próbuje włączyć "startaktyvity" po otrzymaniu smsa ale aplikacja jest zamykana po odebraniu.

Statystyki: Napisane przez grzeniu 73 — 19 maja 2017, o 19:21

Re: Przechwyt wiadomości SMS w tle

2017-05-19T12:48:15+01:00

Witam Kolegów,
jakiś czas temu napisałem apkę dla kolegi do przekierowywania sms-ów i połączeń nieodebranych na wskazany numer telefonu.
Wykorzystuję tam obsługę w tle za pomocą Service.
W załączeniu projekt, może komuś się nada.

SMS_Message_ver001.zip

Statystyki: Napisane przez kurnachatka — 19 maja 2017, o 12:48

Re: Przechwyt wiadomości SMS w tle

2017-05-19T12:12:09+01:00

No i sa problemy.
Zaznaczylem biblioteki dokleiłem w manifeście co podano i mam blad przy kompilacji.
Dopisałem w kodzie w którym miejscu.

[syntax=basic4gl]#Region Project Attributes
#ApplicationLabel: B4a sms
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type Message (Address As String, Body As String)
End Sub
Sub Service_Create
End Sub

Sub Service_Start(startingIntent As Intent)
If startingIntent.Action = "android.provider.Telephony.SMS_RECEIVED" Then
Dim messages() As Message
messages = ParseSmsIntent(startingIntent)
For i = 0 To messages.Length - 1
Log(messages(i))
' Label1.Text= messages(i)
Next
End If
End Sub

'Parses an SMS intent and returns an array of messages
Sub ParseSmsIntent (in As Intent) As Message()
Dim messages() As Message
If in.HasExtra("pdus") = False Then Return messages
Dim pdus() As Object
Dim r As Reflector
pdus = in.GetExtra("pdus")
If pdus.Length > 0 Then
Dim messages(pdus.Length) As Message
For i = 0 To pdus.Length - 1

r.Target = r.RunStaticMethod("android.telephony.SmsMessage", "createFromPdu", _ ' tu mam blad nieprawidlowy format ciagu wejscia
Array As Object(pdus(i)), Array As String("[B"))
messages(i).Body = r.RunMethod("getMessageBody")
messages(i).Address = r.RunMethod("getOriginatingAddress")

' tutaj możemy dopisać reakcję kodu na przychodzącą wiadomość
' np StartActivity("main")
Label1.text= messages(i).Body=" ' tutaj przekazana jest treść wiadomości"
Label2.Text= messages(i).Address =" ' tutaj przekazany jest numer telefonu"
Next
End If
Return messages
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Private Button1 As Button
Private Label1 As Label
Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")

StartService(s1)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
'sms1.Send("600688275","to ja")

End Sub[/syntax]

Statystyki: Napisane przez grzeniu 73 — 19 maja 2017, o 12:12