Tray question..

[rawrr]

I got a question.. I created a tray thing.. It lists stuff and when you click it it gives you text.. How can I make it so when I click it it actually writes the text in a file? Without you seeing of course. Then save and quit it.. Thanks in advance. =]

[FreeFry]

Have a look at the File functions in the helpfile, FileWrite is probably what you want, but if you want to write to it several times, you have to go with FileOpen first.

[rawrr]

I have.. And I had it all set up.. And when I click it it says Complete and stuff or w/e i wrote but it doesn't change the file.. O.o

[FreeFry]

Mind posting your code?

[rawrr]

Sure.. 1 sec.

expandcollapse popup

#Include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.

$retail   = TrayCreateItem("Retail WoW")
traycreateitem("")

$exit   = traycreateitem("Exit")

TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        case $msg = $retail
            FileOpen("C:\Program Files\World of Warcraft\realmlist.wtf", 1)

; Check if file opened for writing OK
If $retail = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWrite($retail, "set realmlist us.logon.worldofwarcraft.com"  & @CRLF )
FileWrite($retail, "set patchlist us.version.worldofwarcraft.com")

FileClose($retail)

            
        
        
        Case $msg = $Exit
            ExitLoop
    EndSelect
WEnd

Exit

Edited February 22, 2008 by rawrr

[FreeFry]

You need to use the handle returned by FileOpen

ie.

expandcollapse popup

#Include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.

$retail   = TrayCreateItem("Retail WoW")
traycreateitem("")

$exit   = traycreateitem("Exit")

TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = 0
            ContinueLoop
        case $msg = $retail
            $fh = FileOpen("C:\Program Files\World of Warcraft\realmlist.wtf", 1)

; Check if file opened for writing OK
If $fh = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWrite($fh, "set realmlist us.logon.worldofwarcraft.com"  & @CRLF )
FileWrite($fh, "set patchlist us.version.worldofwarcraft.com")

FileClose($fh)

            
        
        
        Case $msg = $Exit
            ExitLoop
    EndSelect
WEnd

Exit

[rawrr]

sweeeeet. Thanks man. This stumped me all day. =]

[GEOSoft]

You have already declared $retail as a tray item so you don't want to re-declare it as the file handle.

case $msg = $retail
            $file = FileOpen("C:\Program Files\World of Warcraft\realmlist.wtf", 1)

; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWrite($file , "set realmlist us.logon.worldofwarcraft.com"  & @CRLF )
FileWrite($file , "set patchlist us.version.worldofwarcraft.com")

FileClose($file )

[rawrr]

And if i make the flag 10 it would erase whats in the doc and replace it right?

$file = FileOpen("C:\Program Files\World of Warcraft\realmlist.wtf", 10)

[GEOSoft]

And if i make the flag 10 it would erase whats in the doc and replace it right?

$file = FileOpen("C:\Program Files\World of Warcraft\realmlist.wtf", 10)

$file = FileOpen("C:\Program Files\World of Warcraft\realmlist.wtf", 2)

[rawrr]

ty lol