B4J Library [BANanoGreenAPI] BANanoFetch REST API WhatsApp bridge to Send & Receive Messages, Manage Groups

Public GreenAPI As BANanoGreenAPI

Sub StartGreenAPI
    GreenAPI.Initialize(Me, "greenapi", Main.GreenAPI_Instance, Main.GreenAPI_Token)
    GreenAPI.ApiUrl = Main.GreenAPI_APIURL
    'this will return the phone number & deviceid
    BANano.Await(GreenAPI.GetWaSettings)
    'BANano.Await(GreenAPI.GetSettings)
    Main.AccountID = GreenAPI.PhoneNumber
    Main.AccountAvatar = GreenAPI.Avatar
    '
    'get the contact information for the account
    Dim thisAccount As ContactInfo = BANano.Await(GreenAPI.GetContactInfo($"${Main.AccountID}@c.us"$))
    If thisAccount.name = "" Then
        app.ShowToastWarning("Please re-login to your GreenAPI instance to establish the name of your account.")
    End If
    Dim suserName As String = $"${thisAccount.name} - ${thisAccount.chatId} - ${Main.UserName}"$
    BANano.Await(UpdateUserName(suserName))
    
'    'trap incoming messages & files (this can be done once via the instance in web interface)
'    Log("Apply settings...")
'    GreenAPI.WebhookUrl = Main.GreenAPI_WebHook
'    GreenAPI.OutgoingWebhook = "no"
'    GreenAPI.OutgoingAPIMessageWebhook = "no"
'    GreenAPI.OutgoingMessageWebhook = "no"
'    GreenAPI.IncomingWebhook = "yes"
'    GreenAPI.OutgoingWebhook = "no"
'    GreenAPI.pollMessageWebhook = "no"
'    GreenAPI.StateWebhook = "no"
'    GreenAPI.StatusInstanceWebhook = "no"
'    Dim bSettings As Boolean = BANano.Await(GreenAPI.SetSettings)
'    Log(bSettings)
    
'    Log(GreenAPI.deviceid)
'    Log(GreenAPI.PhoneNumber)
'    Log(GreenAPI.Avatar)
    'update the user logo in pgIndex
    'UpdateUserName(GreenAPI.PhoneNumber)
    'UpdateUserAvatar(GreenAPI.Avatar)
    'log out first
    'BANano.Await(GreenAPI.LogOut)
    'get QR Code
    'Dim qr As String = BANano.Await(GreenAPI.GetQRCode)
    'Log(qr)
    
    'authorize
    'Dim acode As String = BANano.Await(GreenAPI.GetAuthorizationCode)
    'Log(acode)
    
    'greenAPI.MediaUrl = "https://7103.media.greenapi.com"
    'BANano.Await(GreenAPI.getAccountSettings)
    'Dim accountStatus As String = BANano.Await(GreenAPI.GetAccountState)
    'Log(accountStatus)
    'Dim bResponse As Boolean = BANano.Await(GreenAPI.ReBoot)
    'Log(bResponse)
    '*****
    'send a message to a contact
'    Dim sAndile As String = "27xxx@c.us"
'    Dim sSiba As String = "27xxx@c.us"
'    Dim sMySelf As String = "27xxx@c.us"
'    Dim sDean As String = "27xxx@c.us"
    
'    Dim sResp As String = BANano.Await(greenAPI.SendPoll(sMySelf, "Please choose the color", Array("green", "red", "blue"), False, ""))
'    Log(sResp)
    
    
    'Dim idMessage As String = BANano.Await(greenAPI.SendMessage(sSiba, "Da is testing the GreenAPI to send & receive WhatsApp messages for b4x. Please confirm receipt!","",True))
    'Log(idMessage)
    '
'    Dim fileURL As String = "https://drive.google.com/uc?export=download&id=1-G3jNqwkweu4qtN3tntYFjmHtUF5X6FZxxx"
'    Dim idMessage As String = BANano.Await(greenAPI.SendFileByUrl(sMySelf, fileURL, "BANanoVuetify 3 - Mock.Compile.Publish.pdf", "BANanoVuetify 3 - Mock.Compile.Publish", ""))
'    Log(idMessage)
    
    'Dim mypos As BANanoGeoPosition = BANano.Await(app.GetMyLocation)
    'Log(mypos)
    '
    'Dim idMessage As String = BANano.Await(greenAPI.SendLocation(sAndile, mypos.Latitude, mypos.Longitude, "Home via GreenAPI", "<Address>", ""))
    'Log(idMessage)
    
    '
    'Dim idMessage As String = BANano.Await(greenAPI.SendContact(sAndile, "Anele", "Mashy", "Mbanga", "27xxx", "Sithaso Holdings BANanoGreenAPI", ""))
    'Log(idMessage)
    
    'Dim whatsAppExists As Boolean = BANano.Await(greenAPI.CheckWhatsApp("27xxx"))
    'Log(whatsAppExists)
    '
    'Dim myAvatar As String = BANano.Await(greenAPI.GetAvatarFor(sAndile))
    'Log(myAvatar)
    
    'Dim contacts As List = BANano.Await(greenAPI.GetContacts(False))
    'Log(contacts)
    '
    'Dim contact As ContactInfo = BANano.Await(greenAPI.GetContactInfo(sDean))
    'Log(contact)
    '
    'Dim contacts As List
    'contacts.Initialize 
    'contacts.Add(sDean)
    'contacts.Add(sSiba)
    'contacts.Add(sMySelf)
    'Dim grp As Map = BANano.Await(greenAPI.CreateGroup("Group created by BANanoGreenAPI", contacts))
    'Log(grp)
    '120363347003942330@g.us
    'Dim nGroupID As String = "120xxx@g.us"
    'Dim bRenameGroup As Boolean = BANano.Await(greenAPI.UpdateGroupName(nGroupID, "Sithaso BANanoGreenAPI"))
    'Log(bRenameGroup)
    '
    'Dim gd As GroupData = BANano.Await(greenAPI.GetGroupData(nGroupID))
    'Log(gd)
    
    'Dim bAdded As Boolean = BANano.Await(greenAPI.AddGroupParticipant(nGroupID, sAndile))
    'Log(bAdded)
    '
    'Dim bRemoved As Boolean = BANano.Await(greenAPI.RemoveGroupParticipant(nGroupID, sAndile))
    'Log(bRemoved)
    '
    'Dim bGroupAdmin As Boolean = BANano.Await(greenAPI.SetGroupAdmin(nGroupID, sDean))
    'Log(bGroupAdmin)
    '
    'Dim bGroupAdmin As Boolean = BANano.Await(greenAPI.SetGroupAdmin(nGroupID, sSiba))
    'Log(bGroupAdmin)
    '
    'Dim bRemoveGroupAdmin As Boolean = BANano.Await(greenAPI.RemoveGroupAdmin(nGroupID, sDean))
    'Log(bRemoveGroupAdmin)
    
    'Dim bRemoveGroupAdmin As Boolean = BANano.Await(greenAPI.RemoveGroupAdmin(nGroupID, sSiba))
    'Log(bRemoveGroupAdmin)
    
    '*** send file by upload
'    Dim assetFile As BANanoObject = BANano.Await(SDUIShared.FetchAsFile("./assets", "mashy.jpg"))
'    Dim fileURL As String = BANano.Await(greenAPI.UploadFile(assetFile))
'    Log(fileURL)
    '
'    Dim response As Map = BANano.Await(greenAPI.SendFileByUpload(sMySelf, "Mashy", assetFile, "mashy.jpg", ""))
'    If response.ContainsKey("urlFile") Then
'        Dim surlFile As String = response.Get("urlFile")
'        Dim idMessage As String = BANano.Await(greenAPI.SendFileByUrl(sMySelf, surlFile, "mashy.jpg", "Mashy", ""))
'        Log(idMessage)
'    End If
    
    'get a file from the assets folder

'    Dim bRemoveGroupAdmin As Boolean = BANano.Await(greenAPI.SetGroupPicture(nGroupID, assetFile))
'    Log(bRemoveGroupAdmin)
    '
'    Dim bLeaveGroup As Boolean = BANano.Await(greenAPI.LeaveGroup(nGroupID))
'    Log(bLeaveGroup)

    'Dim chats As List = BANano.Await(greenAPI.GetChatHistory(sMySelf))
    'Log(chats)
    '    
    'Dim chat As Message = BANano.Await(greenAPI.GetMessage("27xxx@c.us", "BAxxx"))
    'Log(chat)
    
    'Dim forwards As List = BANano.Await(greenAPI.ForwardMessages(sSiba, sMySelf, Array("BAxxx", "BAxxx")))
    'Log(forwards)
    
    'Dim lLastIncomingMessages As List = BANano.Await(greenAPI.LastIncomingMessages(1440))
    'Log(lLastIncomingMessages)
    '
    'Dim lLastOutgoingMessages As List = BANano.Await(greenAPI.LastOutgoingMessages(1440))
    'Log(lLastOutgoingMessages)
    
    '***** works for notifications
'    Try
'        app.PagePause
'        Dim message As MessageNotification
'        message.Initialize
'        Dim messageExists As Boolean = BANano.IsNull(message) 
'        Do While messageExists = False
'            'trap receive notifications
'            message = BANano.Await(greenAPI.ReceiveNotification(20))
'            Log(message)
'            BANano.Await(greenAPI.DeleteNotification(message.receiptId))
'            messageExists = BANano.IsNull(message)
'        Loop
'        app.pageresume
'    Catch
'        Log(LastException)
'        app.pageresume
'    End Try    
End Sub