Need Help guide for my program.

[Enrico Maria Giordano]

I use it every day but the answers are always useless. I hope it will improve in the future.

Please take a look at the answer.

I can't say more: I always get useless responses.

[Jimmy]

hi,

I use it every day but the answers are always useless.

i won´t say that Answer from ChatGPT is useless.

it is true that ChatGPT can´t do your JOB and write full working CODE for You.
but ChatGPT can give You a Idea what to do.

[Enrico Maria Giordano]

hi,

I use it every day but the answers are always useless.

i won´t say that Answer from ChatGPT is useless.

it is true that ChatGPT can´t do your JOB and write full working CODE for You.
but ChatGPT can give You a Idea what to do.

I never ask AI to do my work. I only ask it some little questions about various problems I face and the responses are unavoidably almost useless.

[Rick Lipkin]

To All

I think of AI as the HAL voice on 2001 a Space Odyssey .. "Open the Pod bay Doors HAL" ...... "Sorry Dave, I can't do that" ...... the experiences of life is the best teacher and Wisdom is learned and not an answer rolled up in AI... Sorry if my answer seems ugly ..

Rick Lipkin

[Enrico Maria Giordano]

Rick,

the AI answer is exclusively based on the data found on the search engines, there is no reasoning in there, only a dumb report with a decent grammatical form, nothing more. At least at this time. We will see (and hope!) in the future.

[Enrico Maria Giordano]

To be honest, I just receive an useful answer!

What is the classname of thunderbird.exe?

The classname for the main window of Thunderbird is typically "MozillaWindowClass".

[Otto]

Dear Enrico,
Prompt engineering is crucial. The better you post your question the better the answer.
I made a Prompt Editor for creating my PROMPTS.
Best regards,
Otto




Look at the answer I got:





Your answer:

[Otto]

... and if you want source example for HARBOUR

[Otto]

... and here the running app

[Enrico Maria Giordano]

Otto,

I just resumed the answer deleting useless things like the pseudocode. Unfortunately, the answer is not what I was looking for. The class "MozillaWindowClass" is only for the main Thunderbird window. I need the one for the compose dialog...

[Antonio Linares]

Dear Enrico,

> I need the one for the compose dialog...

Can you please explain what you need ? thanks

[Enrico Maria Giordano]

Code: Select all  Expand view

? FINDWINDOW( "the compose dialog of Thunderbird classname" )

[Antonio Linares]

Is it the title of the dialog ?

Do you get a valid handle ?

[Enrico Maria Giordano]

No, it is not:

Code: Select all  Expand view

FINDWINDOW( "classname", "window title" )

Anyway, never mind, I already solved using the window title.

[Otto]

Enrico, does this work?

Code: Select all  Expand view

#include "FiveWin.ch"

// Define necessary constants
#define GW_CHILD       5
#define GW_HWNDNEXT    2

FUNCTION Main()
    LOCAL aWindows := {}
    LOCAL cName := ""
    LOCAL hwnd := GetWindow( GetDesktopWindow(), GW_CHILD )
    LOCAL cClassName := Space( 256 )
    LOCAL cClassNameMain := "MozillaWindowClass"  // Class name for the main Thunderbird window
    LOCAL hwndMain, hwndChild, cClassNameChild

    // Iterate through all windows to find the main Thunderbird window
    WHILE hwnd != 0
        cName := GetClassName( hwnd, @cClassName, Len( cClassName ) )
        IF Len( cName ) > 0
            cName := Left( cName, Len( cName ) )
            IF cName == cClassNameMain
                // Now iterate through child windows of the main Thunderbird window
                hwndChild := GetWindow( hwnd, GW_CHILD )
                cClassNameChild := Space( 256 )
                WHILE hwndChild != 0
                    cName := GetClassName( hwndChild, @cClassNameChild, Len( cClassNameChild ) )
                    IF Len( cName ) > 0
                        cName := Left( cName, Len( cName ) )
                        IF cName == "MozillaCompositorWindowClass"
                            AADD( aWindows, { hwndChild, cName } )
                        ENDIF
                    ENDIF
                    hwndChild := GetWindow( hwndChild, GW_HWNDNEXT )
                ENDDO
            ENDIF
        ENDIF
        hwnd := GetWindow( hwnd, GW_HWNDNEXT )
    ENDDO

    // Display the results
    xbrowse(aWindows)

    RETURN NIL