B4J Question [JDA] Retrieve Archived Public Thread Channels?

 ' here... welcome new members here...
Sub JDA_onGuildMemberJoin(ev As Object)
    Dim event As GuildMemberJoinEvent=ev
    Log($"JDA_onGuildMemberJoin(${event})"$)
    Log($"GuildMemberJoin.Member ${event.Member}"$)
    Log($"GuildMemberJoin.User ${event.User}"$)

Sub SendMessage(channelJO As MessageChannel, content As String)
    Try

        channelJO.sendMessageFormat(content,Null)

    Catch
        Log("Error sending message: " & LastException.Message)
    End Try
End Sub

Sub ListAllChannelsAndThreads(chan As MessageChannel)
    Dim guilds As List = jda.Guilds

    For Each gw As Guild In guilds
        SendMessage(chan,$"Guild: ${gw.Name} (ID: ${gw.Id})"$)
       
'        ' Όλα τα κανάλια στο guild
        Dim chans As List = gw.GuildChannels
        For Each ch As GuildChannel In chans
            SendMessage(chan,$"  Channel: ${ch.name} [${ch.ID}] Type: ${ch.Type}"$)
        Next
       
        ' Όλα τα active threads στο guild
        Dim threads As List = gw.ThreadChannels  ' List of ThreadChannelwrapper
        For Each th As ThreadChannel In threads
            SendMessage(chan,$"  Thread: ${th.Name} [${th.ID}] Parent: ${th.ParentChannel}"$)
        Next
    Next
End Sub
'

Sub ListAllChannelsAndThreads(chan As MessageChannel)
    ' Παίρνουμε μόνο το guild από το οποίο ήρθε η εντολή
    Dim currentGuild As Guild
   
       Dim joChannel As JavaObject = chan
    Try
        currentGuild = joChannel.RunMethod("getGuild", Null)
    Catch
        SendMessage(chan, "This command can only be used in a server channel.")
        Return
    End Try
   
    SendMessage(chan,$"Guild: ${currentGuild.Name} (ID: ${currentGuild.Id})"$)
   
       Dim chans As List = currentGuild.GuildChannels
    For Each ch As GuildChannel In chans
        SendMessage(chan,$"  Channel: ${ch.name} [${ch.ID}] Type: ${ch.Type}"$)
       
        ' Convert to JavaObject to check type properly
        Dim joChannelCheck As JavaObject = ch
        Dim channelType As JavaObject = joChannelCheck.RunMethod("getType", Null)
        Dim typeName As String = channelType.RunMethod("name", Null)
       
        ' Check if it's a TextChannel for archived threads
        If typeName = "GUILD_TEXT" Then
            RetrieveArchivedThreadsForTextChannel(chan, ch)
        End If
       
        ' Check if it's a ForumChannel for archived forum threads
        If typeName = "GUILD_FORUM" Then
            RetrieveArchivedThreadsForForumChannel(chan, ch)
        End If
    Next
   
    'active threads
    Dim threads As List = currentGuild.ThreadChannels
    For Each th As ThreadChannel In threads
        SendMessage(chan,$"  Active Thread: ${th.Name} [${th.ID}] Parent: ${th.ParentChannel}"$)
    Next
End Sub
Sub RetrieveArchivedThreadsForTextChannel(chan As MessageChannel, textCh As GuildChannel)
    Try
        Dim joChannel As JavaObject = textCh
       
        ' Public archived threads
        Try
            Dim publicAction As JavaObject = joChannel.RunMethod("retrieveArchivedPublicThreadChannels", Null)
            Dim publicResult As JavaObject = publicAction.RunMethod("complete", Null)
           
            ' Εναλλακτικά, δοκίμασε με forEach
            Dim joConsumer As JavaObject
            joConsumer.InitializeNewInstance("java.util.function.Consumer", Array(Me, "ProcessArchivedThread"))
            publicResult.RunMethod("forEach", Array(joConsumer))
           
        Catch
            Log("No permission for public archived threads: " & LastException.Message)
        End Try
       
        ' Private archived threads (needs special permission)
        Try
            Dim privateAction As JavaObject = joChannel.RunMethod("retrieveArchivedPrivateThreadChannels", Null)
            Dim privateResult As JavaObject = privateAction.RunMethod("complete", Null)
           
            Dim iterator As JavaObject = privateResult.RunMethod("iterator", Null)
            Do While iterator.RunMethod("hasNext", Null)
                Dim archThread As JavaObject = iterator.RunMethod("next", Null)
                Dim threadName As String = archThread.RunMethod("getName", Null)
                Dim threadId As String = archThread.RunMethod("getId", Null)
                SendMessage(chan, $"    Archived Private Thread: ${threadName} [${threadId}]"$)
            Loop
           
        Catch
            Log("No permission for private archived threads or none exist")
        End Try
       
    Catch
        Log("Error retrieving archived threads: " & LastException.Message)
    End Try
End Sub


Sub RetrieveArchivedThreadsForForumChannel(chan As MessageChannel, forumCh As GuildChannel)
    Try
        ' Convert to JavaObject to access raw JDA methods
        Dim joChannel As JavaObject = forumCh
       
        ' Retrieve archived public threads for forum
        Dim archivedAction As JavaObject = joChannel.RunMethod("retrieveArchivedPublicThreadChannels", Null)
        Dim archivedResult As JavaObject = archivedAction.RunMethod("complete", Null)
       
        ' Get the list from PagedIterable using iterator
        Dim archivedList As List
        archivedList.Initialize
       
        Dim iterator As JavaObject = archivedResult.RunMethod("iterator", Null)
        Do While iterator.RunMethod("hasNext", Null)
            Dim archThread As JavaObject = iterator.RunMethod("next", Null)
            archivedList.Add(archThread)
        Loop
       
        For Each archThread As JavaObject In archivedList
            Dim threadName As String = archThread.RunMethod("getName", Null)
            Dim threadId As String = archThread.RunMethod("getId", Null)
            SendMessage(chan, $"    Archived Forum Thread: ${threadName} [${threadId}]"$)
        Next
       
    Catch
        Log("Error retrieving archived threads for ForumChannel: " & LastException.Message)
    End Try
End Sub

    public List<ThreadChannel> retrieveArchivedPrivateJoinedThreadChannels() {
        return getObject().retrieveArchivedPrivateJoinedThreadChannels().complete();
    }
    public List<ThreadChannel> retrieveArchivedPrivateThreadChannels() {
        return getObject().retrieveArchivedPrivateThreadChannels().complete();
    }
    public List<ThreadChannel> retrieveArchivedPublicThreadChannels() {
        return getObject().retrieveArchivedPublicThreadChannels().complete();
    }

Sub ListAllChannelsAndThreadsAsString(guild1 As Object) As ResumableSub
    Dim output As String = ""
    Dim joJDA As JavaObject = jda
    File.OpenOutput(File.DirApp,"allmsg.txt",False)

    ' 1. Πάρε το Guild αντικείμενο
    Dim guildObj As Guild = guild1'joJDA.RunMethod("getGuildById", Array(guildId))
    'If guildObj = Null Then Return $"Guild with ID ${guildId} not found."$
    
    Log("X1")

    ' 2. Λίστα όλων των καναλιών του guild
    Dim channelsList As List = guildObj.GuildChannels
    
    Log("X2")
    
    For Each gc As Object In channelsList
        Dim joGC As JavaObject = gc
        Dim chanType As JavaObject= joGC.RunMethod("getType", Null)
        Dim chantype2 As String = chanType.RunMethod("name", Null)
        Dim chanName As String = joGC.RunMethod("getName", Null)
        Dim chanId   As String = joGC.RunMethod("getId",   Null)
        output = output & $"Channel: ${chanName} [${chanId}] Type: ${chantype2}"$ & CRLF


        'trigger them all!
        Log("X4")
        ' 4. Archived public threads (εφόσον υποστηρίζεται)
        Try
            Dim pubThreadss As JavaObject= joGC.RunMethod("retrieveArchivedPublicThreadChannels", Null)
            Dim pubThreads As List=pubThreadss.RunMethod("complete", Null)
            For Each t As Object In pubThreads
                Dim joT As JavaObject = t
                Dim tName As String = joT.RunMethod("getName", Null)
                Dim tId   As String = joT.RunMethod("getId",   Null)
                output = output & $"  Archived Public Thread: ${tName} [${tId}]"$ & CRLF
            Next
        Catch
            ' skip if unsupported or no permission
        End Try

        ' 5. Archived private threads
        Log("X5")
        Try
            Dim privThreadss As JavaObject = joGC.RunMethod("retrieveArchivedPrivateThreadChannels", Null)
            Dim privThreads As List = privThreadss.RunMethod("complete", Null)
            For Each t As Object In privThreads
                Dim joT As JavaObject = t
                Dim tName As String = joT.RunMethod("getName", Null)
                Dim tId   As String = joT.RunMethod("getId",   Null)
                output = output & $"  Archived Private Thread: ${tName} [${tId}]"$ & CRLF
            Next
        Catch
        End Try

        ' 6. Archived private-joined threads
        Log("X6")
        Try
            Dim joinedThreadss As JavaObject = joGC.RunMethod("retrieveArchivedPrivateJoinedThreadChannels", Null)
            Dim joinedThreads As List = joinedThreadss.RunMethod("complete", Null)
            For Each t As Object In joinedThreads
                Dim joT As JavaObject = t
                Dim tName As String = joT.RunMethod("getName", Null)
                Dim tId   As String = joT.RunMethod("getId",   Null)
                output = output & $"  Archived Private-Joined Thread: ${tName} [${tId}]"$ & CRLF
            Next
        Catch
        End Try





        Log("X3")
        ' 3. Active threads
        Dim activeThreads As List = guildObj.ThreadChannels 'guildObj.RunMethod("getThreadChannels", Null)
        For Each at As Object In activeThreads
            Dim joAT As JavaObject = at
            Dim parentId As JavaObject= joAT.RunMethod("getParentChannel", Null)
            Dim parentId2 As String = parentId.RunMethod("getId", Null)
            Dim aName As String = joAT.RunMethod("getName", Null)
            Dim aId   As String = joAT.RunMethod("getId",   Null)
            output = output & $"  Active Thread (in ${parentId2}): ${aName} [${aId}]"$ & CRLF
            


            Dim joThread As JavaObject = guildObj.getThreadChannelById(aId)
            ' Write header once
            AppendLineToFile("allmsg.txt", $"-- Messages in Thread [${aId}] --"$)

            ' Get history object
            Dim historyJo As JavaObject = joThread.RunMethod("getHistory", Null)

            Dim batch As List
            Dim retrievedJos As JavaObject

            ' First batch (newest 100)
            retrievedJos = historyJo.RunMethod("retrievePast", Array(100))
            Dim retrievedjo As JavaObject=retrievedJos.RunMethod("complete", Null)
            batch = retrievedjo ' complete() returns List<Message>

            Do While batch.IsInitialized And batch.Size > 0
                For Each m As Object In batch
                    Dim joM    As JavaObject = m
                    Dim authorJo As JavaObject = joM.RunMethod("getAuthor", Null)
                    Dim author   As String     = authorJo.RunMethod("getName", Null)
                    Dim timeJo   As JavaObject = joM.RunMethod("getTimeCreated", Null)
                    Dim timeStr  As String     = timeJo.RunMethod("toString", Null)
                    Dim content  As String     = joM.RunMethod("getContentDisplay", Null)
                    Dim line     As String     = $"  Message [${timeStr}] ${author}: ${content}"$
                    AppendLineToFile("allmsg.txt", line)
                Next

                If batch.Size < 100 Then Exit

                ' Page older using the last message object
                Dim oldestJo As JavaObject = batch.Get(batch.Size - 1)
                retrievedJos = historyJo.RunMethod("retrievePast", Array(100, oldestJo))
                retrievedjo= retrievedJos.RunMethod("complete", Null)
                batch = retrievedjo
            Loop


        Next



    Next

    Return output
End Sub

......

Dim joThread As JavaObject = guildObj.getThreadChannelById(aId)
AppendLineToFile("allmsg.txt", $"-- Messages in Thread [${aId}] --"$)

' Obtain the MessageHistory object
Dim historyJo As JavaObject = joThread.RunMethod("getHistory", Null)

Dim batch As List
Dim retrievedJo As JavaObject

' First batch: retrievePast(int amount)
retrievedJo = historyJo.RunMethod2("retrievePast", Array(100), Array("int"))
retrievedJo = retrievedJo.RunMethod("complete", Null)
batch = retrievedJo ' It is a List<Message>

Do While batch.IsInitialized And batch.Size > 0
    For Each m As Object In batch
        Dim joM As JavaObject = m
        Dim authorJo As JavaObject = joM.RunMethod("getAuthor", Null)
        Dim author   As String     = authorJo.RunMethod("getName", Null)
        Dim timeJo   As JavaObject = joM.RunMethod("getTimeCreated", Null)
        Dim timeStr  As String     = timeJo.RunMethod("toString", Null)
        Dim content  As String     = joM.RunMethod("getContentDisplay", Null)
        AppendLineToFile("allmsg.txt", $"  Message [{timeStr}] ${author}: ${content}"$)
    Next

    If batch.Size < 100 Then Exit

    ' Page older using retrievePast(int, Message)
    Dim oldestJo As JavaObject = batch.Get(batch.Size - 1)
    retrievedJo = historyJo.RunMethod2("retrievePast", Array(100, oldestJo), _
        Array("int","net.dv8tion.jda.api.entities.Message"))
    retrievedJo = retrievedJo.RunMethod("complete", Null)
    batch = retrievedJo
Loop

' Helper to append lines to file
Sub AppendLineToFile(fileName As String, line As String)
    Dim out As OutputStream = File.OpenOutput(File.DirApp, fileName, True)
    Dim writer As TextWriter
    writer.Initialize(out)
    writer.WriteLine(line)
    writer.Close
    out.Close
End Sub