Modifying other windows

[gianfun]

Hello all.

A loooong time ago, I had found some code that would resize the Windows Calculator (calc.exe), just to make it longer, and then put a button that would invoke a msgbox saying something, like a "hello" message of some kind.

This was done during the calc.exe runtime (i.e. not changing the exe, but rather interacting with it whilst it was open)

I have searched the forum, but found nothing.

Is this possible? or am I mistaking it for something else? Even though I am pretty sure it was Autoit.

Thanks

Edit:

Joy be the Help File.

Sorry people, I had tried some things such as getting the Handle of the window and then modifying it with GUI functions.

I now found WinMove (which I hadn't realized can also resize)

here's how it is

AutoItSetOption("WinTitleMatchMode", 4)

if not ProcessExists("calc.exe") Then
    run("calc.exe")
    sleep(300) ;wait for it to open.
Else
endif

$hWnd = ""
$iPID = ProcessExists("calc.exe")

If $iPID <> 0 Then
    $aWinList = WinList()

    For $i = 1 To $aWinList[0][0]
        If WinGetProcess($aWinList[$i][0]) = $iPID Then
            $hWnd = $aWinList[$i][1]
            ExitLoop
        EndIf
    Next
EndIf

If $hWnd <> "" Then
    $title = WinGetTitle($hWnd)
    ;MsgBox(0, 0, $title & @CRLF & $hWnd)
Else
    MsgBox(64, "Not Found", "No matching process found.")
EndIf
WinActivate($title)
WinMove($title, "", 50,50,600,200) ;resizing. AH!

$control = GUICtrlCreateButton("hi", 500,100) ;Is this possible?

Func alert($msg)
    MsgBox(0, "MsgBox", $msg)
EndFunc

Well. I was able to resize.

Do I need to use a dll to add a control?

Thanks

Edited November 22, 2009 by gianfun

[AndyG]

Hi,

yes it works...^^

expandcollapse popup

#include <WindowsConstants.au3>
AutoItSetOption("WinTitleMatchMode", 4)

if not ProcessExists("calc.exe") Then
    run("calc.exe")
    sleep(300) ;wait for it to open.
Else
endif

$hWnd = ""
$iPID = ProcessExists("calc.exe")

If $iPID <> 0 Then
    $aWinList = WinList()

    For $i = 1 To $aWinList[0][0]
        If WinGetProcess($aWinList[$i][0]) = $iPID Then
            $hWnd = $aWinList[$i][1]
            ExitLoop
        EndIf
    Next
EndIf

If $hWnd <> "" Then
    $title = WinGetTitle($hWnd)
    ;MsgBox(0, 0, $title & @CRLF & $hWnd)
Else
    MsgBox(64, "Not Found", "No matching process found.")
EndIf
WinActivate($title)
WinMove($title, "", 50,50,600,200) ;resizing. AH!


$a = GUICreate("huhu", 100, 50, 500,100, $WS_CHILD, -1, $hWnd)
$control = GUICtrlCreateButton("hi", 0,0,50,30) ;Is this possible?   YES^^

guisetstate()

While 1
    $msg = GUIGetMsg ( )
    If $msg = $control Then alert($msg)
WEnd


Func alert($msg)
    MsgBox(0, "MsgBox", $msg)
EndFunc

[gianfun]

Hi,

yes it works...^^

expandcollapse popup

#include <WindowsConstants.au3>
AutoItSetOption("WinTitleMatchMode", 4)

if not ProcessExists("calc.exe") Then
    run("calc.exe")
    sleep(300) ;wait for it to open.
Else
endif

$hWnd = ""
$iPID = ProcessExists("calc.exe")

If $iPID <> 0 Then
    $aWinList = WinList()

    For $i = 1 To $aWinList[0][0]
        If WinGetProcess($aWinList[$i][0]) = $iPID Then
            $hWnd = $aWinList[$i][1]
            ExitLoop
        EndIf
    Next
EndIf

If $hWnd <> "" Then
    $title = WinGetTitle($hWnd)
    ;MsgBox(0, 0, $title & @CRLF & $hWnd)
Else
    MsgBox(64, "Not Found", "No matching process found.")
EndIf
WinActivate($title)
WinMove($title, "", 50,50,600,200) ;resizing. AH!


$a = GUICreate("huhu", 100, 50, 500,100, $WS_CHILD, -1, $hWnd)
$control = GUICtrlCreateButton("hi", 0,0,50,30) ;Is this possible?   YES^^

guisetstate()

While 1
    $msg = GUIGetMsg ( )
    If $msg = $control Then alert($msg)
WEnd


Func alert($msg)
    MsgBox(0, "MsgBox", $msg)
EndFunc

Thank you very much

[electrico]

Works fine. But I can't see the purpose of this script.

[gianfun]

Works fine. But I can't see the purpose of this script.

And what was the purpose of your comment? Pump your post count?

And this can be used to add functionality to programs...