_StealWinTitle() - Need help

[James]

Hey,

I am currently working on a UDF which deals with:

• Fading GUI in
• Steal a random window title and sets the AutoIt window title

I have the fading one done.. But the name steal is hard.

I currently have:

Func _StealWinTitle($iGUI)
    $iGUI = AutoItWinGetTitle()
EndFunc

The idea is, the UDF will create a list of all the windows which are currently available. Then it will randomly set the title of an AutoIt GUI from the available windows. But I have no idea how to do that.

So:

• Creates a list of the running windows
• Randomly picks a window title
• Sets the AutoIt window to the chosen name

If you still don't get it, ask me.

Thanks,

Secure

[Shevilie]

But why

[Shevilie]

Creates a list of the running windows - Use search button in the forum

Randomly picks a window title - Well a hint Random()

Sets the AutoIt window to the chosen name - Look inj the file containing help also know as helpfile...

And the

Func _StealWinTitle($iGUI)

$iGUI = AutoItWinGetTitle()

EndFunc

Cant be used to anything of the things you wanna acomplish

[James]

I know. I meant to put "set" not "get"

[James]

Hmm.. OK, I will work it out with what I have got. Thanks.

[Sardith]

This is what I did to solve this problem. Let me know if it works for you.

expandcollapse popup

;Made by: Sardith
;Jeff
;Type: UDF?
;Renames a GUI to a random Running program title, that is visable, and isn't "".
;2-23-07

Dim $Program, $i, $Rvar

Func _Randomtitle($Debug = 1); Debug = 0, no Debug mode. Debug = 1, Debug mode. Shows a Debug tooltip.
$Program = WinList(); Gathers current running programs.
sleep(10)

Do 
    $Rvar = Random(1, $Program[0][0]); Randoms a program. Program 1- to current amount of running programs. '$Program[0][0]'
  
Until $Program[$Rvar][0] <> "" AND _IsVisible($Program[$Rvar][1]);Checks the program, to make sure it's not blank Window title, and if it's visable to the user.

If $Debug = 0 Then
    Sleep(10)

ElseIf $Debug = 1 Then

ToolTip("", 0, 0);Clears old tooltip. DEBUG
Sleep(10); DEBUS
ToolTip("Title= " & $Program[$Rvar][0] & @LF & "Handle= " & $Program[$Rvar][1], 0, 0);Test: Displays a random program gathered from Winlist. DEBUG
Sleep(1000); DEBUG
EndIf
EndFunc

Func _IsVisible($handle);Checks to see if program is visable to the current user.
  If BitAnd( WinGetState($handle), 2 ) Then 
    Return 1
  Else
    Return 0
  EndIf

EndFunc

Func _StealWinTitle(); Must keep the _Randomtitle placement. You also, must have a GUI created, $iGUI.
    $GUItitle = WinGetTitle($iGUI, "");Gets title of the parent GUI you created. AutoIt Help file variable = $iGUI
_Randomtitle("1")
WinSetTitle($GUItitle, "", $Program[$Rvar][0]); Renames the GUI title to a random program title.
EndFunc

[Paulie]

This is what I did to solve this problem. Let me know if it works for you.

Mines a little shorter.

Func _StealWindowTitle($Title_to_Change)
$oldTitle=WinGetTitle($Title_to_Change)
Local $Window[100], $Title[100], $HWND[100], $number = 0
Local $WindowList = WinList()
For $i = 1 to $WindowList[0][0]
    If $WindowList[$i][0] <> "" And $WindowList[$i][0] <> "Program Manager" AND $WindowList[$i][0] <> $oldtitle AND IsVisible($WindowList[$i][1]) Then
        $number = $number + 1
        $HWND[$Number] = $WindowList[$i][1]
        $Title[$Number] = $WindowList[$i][0]
    EndIf
Next
WinSetTitle(WinGetHandle($oldtitle),"",$Title[Random(1,$number)])
EndFunc

Func IsVisible($handle)
    If BitAnd( WinGetState($handle), 2 ) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Edited February 24, 2007 by Paulie

[SmOke_N]

Mines a little shorter.

You bragging?

[Paulie]

You bragging?

Who? me?!

No way!

[MrCreatoR]

Paulie

The function _IsVisible() can be much shorter

Func IsVisible($handle)
    Return  BitAnd( WinGetState($handle), 2 )
EndFunc

[James]

Paulie. Thanks.

[Sardith]

Mines a little shorter.

Func _StealWindowTitle($Title_to_Change)
$oldTitle=WinGetTitle($Title_to_Change)
Local $Window[100], $Title[100], $HWND[100], $number = 0
Local $WindowList = WinList()
For $i = 1 to $WindowList[0][0]
    If $WindowList[$i][0] <> "" And $WindowList[$i][0] <> "Program Manager" AND $WindowList[$i][0] <> $oldtitle AND IsVisible($WindowList[$i][1]) Then
        $number = $number + 1
        $HWND[$Number] = $WindowList[$i][1]
        $Title[$Number] = $WindowList[$i][0]
    EndIf
Next
WinSetTitle(WinGetHandle($oldtitle),"",$Title[Random(1,$number)])
EndFunc

Func IsVisible($handle)
    If BitAnd( WinGetState($handle), 2 ) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Thats interesting. I'll look at that script of yours. Always willing to learn something new =)