B4A Library WhatsApp Library

WhatsApp Library
Version: 1.1

This is a wrapper for this Github-project.

WhatsApp
Author: Devil-App
Version: 1.1

• Whatsapp
  Fields:
  • AUDIO_TYPE As Int
  • IMAGE_TYPE As Int
  • VIDEO_TYPE As Int
  Methods:
  • OpenChatWithNumber (phoneNumber As String)
    Open Chat with Number
    Example:<code>
    Dim whapp As WhatsApp
    whapp.OpenChatWithNumber("+39334336444")</code>
  • createPhoneNumber (displayName As String, mobileNumber As String, email As String)
    This method create a contact.
    Example:<code>
    Dim whapp As WhatsApp
    whapp.createPhoneNumber("Devil","+393343365647","info@devil-app.com"</code>
  • existPhoneNumber (phoneNumber As String) As Boolean
    This method determines if a mobileNumber is a contact.
    Example:<code>
    Dim whapp As WhatsApp
    if whapp.existPhoneNumber("+393343365647") then MsgBox("Ok","msg")</code>
  • isInstalled As Boolean
    This method determines if Whatssap are installed.
    Example:<code>
    Dim whapp As WhatsApp
    if whapp.isInstalled then MsgBox("Installed","Msg")</code>
  • launchMarket
    This method go to Market.
    Example:<code>
    Dim whapp As WhatsApp
    whapp.launchMarket</code>
  • shareMediaWithContact (uri As Uri, mediaType As Int)
    Share Media with Contact
    Example:<code>
    Example: shareMediaWithContact(Activity.this, uriMedia, IMAGE_TYPE);
    Example: shareMediaWithContact(Activity.this, uriMedia, AUDIO_TYPE);
    Example: shareMediaWithContact(Activity.this, uriMedia, VIDEO_TYPE);
    Dim whapp As WhatsApp
    whapp.shareMediaWithContact(uriMedia, whapp.VIDEO_TYPE)</code>
  • shareTextWithContact (text As String)
    Share Text with Contact
    Example:<code>
    Dim whapp As WhatsApp
    whapp.shareTextWithContact("Hi...how are you")</code>
  Permissions:
  • android.permission.READ_CONTACTS
  • android.permission.SEND_SMS
  • android.permission.WRITE_CONTACTS

Example ( with mp4, mp3 example 3.7 Mb ) and so you can download here: Devil-App
Library in attachment
LAST REL 1.1
Bye
Marco

 

[pesquera]

Hi Marco, thanks for this great library! very useful to me.. just a question: is there any way to close an opened chat?

 

[MarcoRome]

That i know... no.

 

[coslad]

See this :

https://forum.xda-developers.com/android/apps-games/app-seebye-messenger-api-root-closed-t3098865

Marco maybe you can use that to implement a WhatsApp direct message send!

I tried

https://play.google.com/store/apps/details?id=com.seebye.whatsapp.scheduler

It works

 

[Don Oso]

Thanks for this fantastic wrapper ..!! This lib comes with some method to capture or read inboud messages?

Thanks!

 

[MarcoRome]

Thanks for this fantastic wrapper ..!! This lib comes with some method to capture or read inboud messages?

Thanks!

No. But you can use THIS

 

[Star-Dust]

It can intercept messages with the NotifyListener library

https://www.b4x.com/android/forum/t...ry-notificationlistenerservice.35630/#content

 

[Star-Dust]

Thanks for this fantastic wrapper ..!! This lib comes with some method to capture or read inboud messages?

Thanks!

see also: https://www.b4x.com/android/forum/threads/whatsapp-spy-educational-purposes-only.86030/

 

[MarcoRome]

It can intercept messages with the NotifyListener library

https://www.b4x.com/android/forum/t...ry-notificationlistenerservice.35630/#content

Also WhatsApp and another things of course.

...
SBN.PackageName.Contains("whatsapp")
....

 

[MarcoRome]

This is code in Service NotificationService to intercept Whatsapp:

#Region  Service Attributes
    #StartAtBoot: True
#End Region

Sub Process_Globals
    Private listener As NotificationListener
End Sub
Sub Service_Create
    listener.Initialize("listener")
End Sub

Sub Service_Start (StartingIntent As Intent)
    If listener.HandleIntent(StartingIntent) Then Return
End Sub

Sub Listener_NotificationPosted (SBN As StatusBarNotification)

    Dim p As Phone
    If p.SdkVersion >= 19 Then
        Dim jno As JavaObject = SBN.Notification
        Dim extras As JavaObject = jno.GetField("extras")
        extras.RunMethod("size", Null)
       If SBN.PackageName.Contains("whatsapp") Then
            Dim title As String = extras.RunMethod("getString", Array As Object("android.title"))
            LogColor("Name = " & title, Colors.Blue)
            ToastMessageShow("Name: " & title,False)
            Dim cu As Contacts
            For Each c As Contact In cu.FindByName(title,True)
                Dim loc_Phones As Map
                loc_Phones.Initialize
                loc_Phones = c.GetPhones
                Dim loc_NumberFrom As String = ""
                Dim x As Int=0
                For x=0 To loc_Phones.Size-1
                   If loc_Phones.GetValueAt(x) = c.PHONE_MOBILE Then
                       loc_NumberFrom = loc_Phones.GetKeyAt(x)
                        loc_NumberFrom = loc_NumberFrom.Replace(" ","")
                        loc_NumberFrom = loc_NumberFrom.Replace("-","")
                        LogColor("Number = " & loc_NumberFrom, Colors.Blue)
                        ToastMessageShow("Number: " & loc_NumberFrom, False)
                    End If
                Next
            Next
            Dim text As String = extras.RunMethod("getString", Array As Object("android.text"))
           'LogColor("text = " & text, Colors.Blue)
            Dim loc_message As String = text
            If text = "null" Then
                Try
                    Dim lines() As Object = extras.RunMethod("getCharSequenceArray", Array("android.textLines"))
                    For Each line As Object In lines
                         'Log(line)
                         loc_message = line
                    Next
                Catch
                    LogColor("Error!" & title, Colors.Red)
                End Try
            End If 
            LogColor("Message = " & loc_message, Colors.Blue)
            ToastMessageShow("Message: " & loc_message, False)
            'Cancella Notifiche
            'listener.ClearNotification(SBN)      
        Else
            'Per posta o altro
            'ToastMessageShow("NotificationPosted, package = " & SBN.PackageName & ", id = " & SBN.Id & _
        '", text = " & SBN.TickerText, False)
        Dim p As Phone
        Dim jno As JavaObject = SBN.Notification
        Dim extras As JavaObject = jno.GetField("extras")
        extras.RunMethod("size", Null)
        Log(extras)
        Dim title As String = extras.RunMethod("getString", Array As Object("android.title"))
        Dim text As String = extras.RunMethod("getString", Array As Object("android.text"))
        LogColor("Title = " & title, Colors.Blue)
        If title <> "null" Then
        ToastMessageShow(title, True) 'title
        End If
        If text <> "null" Then
        ToastMessageShow(text, True) 'testo
        End If

End If
End If

End Sub

Sub Listener_NotificationRemoved (SBN As StatusBarNotification)
    Log("NotificationRemoved, package = " & SBN.PackageName & ", id = " & SBN.Id & _
        ", text = " & SBN.TickerText)
End Sub

Sub ClearAll
    listener.ClearAll
End Sub

Sub GetActive
    listener.GetActiveNotifications
End Sub

Sub Service_Destroy

End Sub

 

[Star-Dust]

Yes, and allows you to intercept Notifications,and see User and Message with the right changes to that code.

see my code: https://www.b4x.com/android/forum/threads/whatsapp-spy-educational-purposes-only.86030/

 

[MarcoRome]

Yes, and allows you to intercept Notifications,and see User and Message with the right changes to that code.

see my code: https://www.b4x.com/android/forum/threads/whatsapp-spy-educational-purposes-only.86030/

I will give him a look

 

[Don Oso]

Guys , thanks for your help and for the samples , have a great week !

regards
javier

 

[Mirko Melegari]

Ho visto gli esempi per inviare messaggi con whatsapp , c'e' qualcuno che ha realizzato una procedura per inviare lo stesso messaggio o immagine, a una lista di contatti preparata da programma?
Grazie

 

[amorosik]

Using this library is it possible to read the existing chats, and subsequently the messages / media contained in a chat?
And then do the opposite, so from the messages / media read, upload them to a specific chat?
The use would be to carry out a backup / restore procedure from one phone to another

 

[MarcoRome]

Using this library is it possible to read the existing chats, and subsequently the messages / media contained in a chat?
And then do the opposite, so from the messages / media read, upload them to a specific chat?
The use would be to carry out a backup / restore procedure from one phone to another

No