Save last window name to a txt file?

[Glyph]

expandcollapse popup

#Include <process.au3>
Dim $window = ""


HotKeySet("q","Quit")


while 1
sleep (10)
WEnd


func _check()
    $title = WinGetTitle("", "")
    if $title = "" Then
        Return
        EndIf
    if $title  <>"" Then
        $window = $window& "test"
        EndIf
EndFunc


func Quit()
    Exit
endfunc


Func OnAutoItExit()

$file = FileOpen("test.txt", 1)
FileWrite($file, $window)
FileClose($file)
EndFunc


#cs
;other file Is

while 1
$READ = Fileread("test.txt",1)
filedelete($read)
    sleep (10000)
WinSetTrans($READ,"",56)
WEnd
#ce

I want it to write the last window name to a file, so that it will change the windows i open to transparent. But it's not logging them, It's giving me a blank file...

Edited May 31, 2007 by backstabbed

[PsaltyDS]

This seems to be what you are trying to do (modified to not write to disk for demo):

#Include <date.au3>

Global $AllWindows = "", $LastWindow = ""

HotKeySet("q", "Quit")

While 1
    _check()
    Sleep(100)
WEnd

Func _check()
    Local $title = WinGetTitle("", "")
    If $title <> $LastWindow Then
        $LastWindow = $title
        $AllWindows &= _Now() & @TAB & $title & @CRLF
    EndIf
EndFunc   ;==>_check

Func Quit()
    Exit
EndFunc   ;==>Quit

Func OnAutoItExit()
    MsgBox(64, "Results", $AllWindows)
EndFunc   ;==>OnAutoItExit

[Glyph]

Yes, that's exactly what i was looking for.

Thank you PsaltyDS!