WinSetTrans

[lilx]

hello,

i was kinda bored and was looking true some stuff on the help and i saw winsettrans very funny to use and i would like to make a rogram that would make all me ie windows that are opend at the moment transparant, and i made this code

Opt("WinTitleMatchMode", 2); Match substring
$var = WinList("- Windows Internet Explorer")

$a = $var[0][0]
MsgBox ( 48, "Test", $a )

for $i = 1 to $a step 1
    WinSetTrans($var[$i][0], "", 215)
Next

but know it is only making one window tranparant what am i doing wrong?

[rasim]

hello,

i was kinda bored and was looking true some stuff on the help and i saw winsettrans very funny to use and i would like to make a rogram that would make all me ie windows that are opend at the moment transparant, and i made this code

Opt("WinTitleMatchMode", 2); Match substring
$var = WinList("- Windows Internet Explorer")

$a = $var[0][0]
MsgBox ( 48, "Test", $a )

for $i = 1 to $a step 1
    WinSetTrans($var[$i][0], "", 215)
Next

but know it is only making one window tranparant what am i doing wrong?

Hi! Try this:

$aWin = WinList("[CLASS:IEFrame]")
If Not IsArray($aWin) Then
    MsgBox(16, "Error", "Required window(s) not exist")
    Exit
EndIf

For $i = 1 to $aWin[0][0]
    WinSetTrans($aWin[$i][1], "", 215)
Next

[lilx]

hey thanks for the reply and is working now

now i got a other question, i want that when a other ie opens that it makes that just open window transparant to, is there a way in autoit to detect that new window and make that one transparant

[rasim]

hey thanks for the reply and is working now

now i got a other question, i want that when a other ie opens that it makes that just open window transparant to, is there a way in autoit to detect that new window and make that one transparant

HotKeySet("{Pause}", "Quit")

$aWin = WinList("[CLASS:IEFrame]")
If $aWin[0][0] = 0 Then
    MsgBox(16, "Error", "Required window(s) not exist")
    Exit
EndIf

For $i = 1 to $aWin[0][0]
    WinSetTrans($aWin[$i][1], "", 215)
Next

While 1
    Dim $aNewWindows = WinList("[CLASS:IEFrame]")
    For $i = 1 to $aNewWindows[0][0]
        For $j = 1 To $aWin[0][0]
            If $aNewWindows[$i][1] <> $aWin[$j][1] Then WinSetTrans($aNewWindows[$i][1], "", 215)
        Next
    Next
    Sleep(1000)
WEnd

Func Quit()
    $aWin = 0
    $aNewWindows = 0
    Exit
EndFunc