[SOLVED] Help to create a "TrayItemSetOnEvent" with variables past on to function.

[lgvlgv]

Im writeing a script that creates a Traymenu.

one of the features with it is that it download a inifile (.dat) from a site with values Program, Installpath, varibles and so on.

my problem is when i try to create a dynamic list of

"TrayCreateItem($prog[$i][0], $kundprog)"

and trying to set

"TrayItemSetOnEvent($tempprg, _runme($sections[$i],$prog[$i][2],$prog[$i][5]))"

is it possible to send vars to the function?

cant figure out how to make it work....

anyone have a tip?

//Regards Lasse

PS.

Belov function allways run when scrip runs..

iff i add '_runme[vars]' i get error

and if i run 'runme' i lose the vars..

Func _LoadKundSoftData()
local $sections = IniReadSectionNames ( @TempDir &"\CHSofT_" & @OSArch &".dat")
TrayItemDelete($kundprog)
Global $kundprog = TrayCreateMenu("Program",$Instapp)
global $prog[1][7]

For $i = 1 To $sections[0]
; If @error <> 0 Then ExitLoop
IniReadSection(@TempDir &"\CHSofT_" & @OSArch &".dat",$sections[$i])
ReDim $prog[UBound($prog) + 1][8]
$prog[$i][0] = $sections[$i]
$prog[$i][1] = IniRead(@TempDir &"\CHSofT_" & @OSArch &".dat", $sections[$i], 'version', 'Error reading file')
$prog[$i][2] = IniRead(@TempDir &"\CHSofT_" & @OSArch &".dat", $sections[$i], 'setup', 'Error reading file')
$prog[$i][3] = IniRead(@TempDir &"\CHSofT_" & @OSArch &".dat", $sections[$i], 'User', 'Error reading file')
$prog[$i][4] = IniRead(@TempDir &"\CHSofT_" & @OSArch &".dat", $sections[$i], 'Password', 'Error reading file')
$prog[$i][5] = IniRead(@TempDir &"\CHSofT_" & @OSArch &".dat", $sections[$i], 'MSI', 'Error reading file')
$prog[$i][6] = IniRead(@TempDir &"\CHSofT_" & @OSArch &".dat", $sections[$i], 'filesize', 'Error reading file')
$prog[$i][7] = IniRead(@TempDir &"\CHSofT_" & @OSArch &".dat", $sections[$i], 'filetime', 'Error reading file')
_DebugOut("$prog$i : "& $sections[$i])
Global $sections[$i]
Global $tempprg = TrayCreateItem($prog[$i][0], $kundprog)
TrayItemSetOnEvent($tempprg, _runme($sections[$i],$prog[$i][2],$prog[$i][5]))

Next
;_ArrayDisplay($prog)
FileDelete(@TempDir &"\CHSofT_" & @OSArch &".dat")
Return
EndFunc


Func _runme($tp1,$tp2,$tp3)
_DebugOut("$temprunName: "&$tp1)

;shellexecute($temprun[$r][2],"$temprun[$r][5]","","open","")
EndFunc

Edited July 12, 2012 by lgvlgv

[hannes08]

"TrayItemSetOnEvent($tempprg, _runme($sections[$i],$prog[$i][2],$prog[$i][5]))"

is it possible to send vars to the function?

cant figure out how to make it work....

*SetOnEvent() functions are always empty. You need to deliver your infromation another way.

iff i add '_runme[vars]' i get error

1. use ( and ) to call functions

2. if you define a function with 1 parameter, pass 1 parameter OR use default values

See the helpfile section for functions.

Edited July 11, 2012 by hannes08

[lgvlgv]

1. use ( and ) to call functions

2. if you define a function with 1 parameter, pass 1 parameter OR use default values

See the helpfile section for functions.

sorry its a typ error i use () but if i use it like this

TrayItemSetOnEvent($tempprg, _runme($sections[$i],$prog[$i][2],$prog[$i][5]))

the _runme executes right away and if i put the '' like this TrayItemSetOnEvent($tempprg, '_runme($sections[$i],$prog[$i][2],$prog[$i][5])')

i get error

Could u point me in how to deliver it in another way any ideas?

both

TrayCreateItem($prog[$i][0], $kundprog)

TrayItemSetOnEvent($tempprg, '_runme') '_runme' should be/contain a variable pointing to diffrent dynamic function depending on privius value of $prog[$i][0]

Edited July 11, 2012 by lgvlgv

[BrewManNH]

OnEvent functions can not be called with any parameters. The functions themselves can not have any parameters in the declaration of the function. For example, TrayItemSetOnEvent($tempprg, '_runme') will work as long as the function _runme doesn't have any parameters (Func _runme()). If it does have parameters you're going to get errors on both calling it, and executing the function, you need to use another function that calls the _runme function with the correct parameters in the OnEvent trigger.

[lgvlgv]

OnEvent functions can not be called with any parameters. The functions themselves can not have any parameters in the declaration of the function. For example, TrayItemSetOnEvent($tempprg, '_runme') will work as long as the function _runme doesn't have any parameters (Func _runme()). If it does have parameters you're going to get errors on both calling it, and executing the function, you need to use another function that calls the _runme function with the correct parameters in the OnEvent trigger.

Thx for verify, thats what i figure.

Any idea witch way i would procced?

maybe put the execution in the While 1 loop and look for "checked" flag on the trayicon, but then i need to loop the try icon some how to find all dynamic created tray "TrayCreateItem($prog[$i][0], $kundprog)", and i have no idea how to do that?

maybe i can use the global $prog array and loop trough that to find the trayitems, what u think?

even better i put it ofcourse in the '_runme'

Edited July 11, 2012 by lgvlgv

[lgvlgv]

Ok, i come this far..

Now how can i convert "$prog[$i][0]" to a varible or make so that TrayItemGetState/TrayItemSetState can read it and understand?

$prog[$i][0] = "NovellClient"

Any help is much appreciated

//Lasse

Func _runme()
_DebugOut("*******************************************************")
Local $aNewArray = _ArrayUnique($prog)
For $i = 1 to $aNewArray[0]
Local $tmptray=TrayItemGetState($prog[$i][0])
if $tmptray Then
TrayItemSetState($prog[$i][0], $TRAY_UNCHECKED)
exitloop
Else
_DebugOut("Failed EXECUTE: " & $tmptray)
EndIf
Next
Return
;shellexecute($temprun[$r][2],"$temprun[$r][5]","","open","")
EndFunc

Edited July 11, 2012 by lgvlgv

[John]

What I do is call the function without args, use a Switch on the text of the Tray Item. This is apparently $prog[$i][0] in your code.

So your:

TrayItemSetOnEvent($tempprg, _runme($sections[$i],$prog[$i][2],$prog[$i][5]))

Would look like

TrayItemSetOnEvent($tempprg, "_runme")

Then the _runme() would contain a Switch with cases that depend on the the string defined by:

$sections[$i],$prog[$i][2],$prog[$i][5])

This also has the added advantage that you don't have to pre-read anything from the ini except the $sections. Wait till the function is called to read the section values and run $sections[$i],$prog[$i][2],$prog[$i][5] based on the return there.

[lgvlgv]

What I do is call the function without args, use a Switch on the text of the Tray Item. This is apparently $prog[$i][0] in your code.

So your:

TrayItemSetOnEvent($tempprg, _runme($sections[$i],$prog[$i][2],$prog[$i][5]))

Would look like

TrayItemSetOnEvent($tempprg, "_runme")

Then the _runme() would contain a Switch with cases that depend on the the string defined by:

$sections[$i],$prog[$i][2],$prog[$i][5])

This also has the added advantage that you don't have to pre-read anything from the ini except the $sections. Wait till the function is called to read the section values and run $sections[$i],$prog[$i][2],$prog[$i][5] based on the return there.

hmm, will it work regarding that the switch in that case also need to be dynamic? the "case" could be anything from 1 to +50 dependig how many sections i have in the inifile that is downloaded from website.

[John]

Yes, I have written a complete open with replacement shell for windows this way, that would give a unique drawer of choices for every filetype and act as a drawer of options for every link toolbar link. Presently doing a rewrite so that configuring it doesn't require manually editing the config file. All files are associated with the same AutoIt program on my windows machine.

[lgvlgv]

Yes, I have written a complete open with replacement shell for windows this way, that would give a unique drawer of choices for every filetype and act as a drawer of options for every link toolbar link. Presently doing a rewrite so that configuring it doesn't require manually editing the config file. All files are associated with the same AutoIt program on my windows machine.

Im sorry, u lost me after " I have written a complete "

do u have some example i can study?

/Regards Lasse

[John]

I don't really get what exactly you cod is supposed to act on, but I used a fluffed ini with the contents:

[App1]
version=version 0.1
setup=setup true
User=Username
Password=mypass
MSI=install.msi
filesize=6.2 meg
filetime=1952
[app2]
version=version 0.2
setup=setup true
User=Username2
Password=anotherpass
MSI=install.msi
filesize=8.1 meg
filetime=1958

The sample code:

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode",1)

local $sections = IniReadSectionNames(@ScriptDir &"\CHSofT.ini")
For $i = 1 To $sections[0]
TrayCreateItem($sections[$i])
TrayItemSetOnEvent(-1,"_runme")
Next
TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"_runme")

While 1
Sleep(50)
WEnd

Func _runme()
$sect=TrayItemGetText(@TRAY_ID)
If $sect="Exit" Then Exit
$prog1=IniRead(@ScriptDir &"\CHSofT.ini", $sect, 'setup', 'Error reading file')
$prog2=IniRead(@ScriptDir &"\CHSofT.ini", $sect, 'MSI', 'Error reading file')
;~ _runme($sect,$prog1,$prog1) is the equivalent of _runme($sections[$i],$prog[$i][2],$prog[$i][5]))
;~ Though you can do you function stuff here now and retrive anything from the ini under $sect.
MsgBox(0,"",$sect &" | "& $prog1 & " | "& $prog2)
EndFunc

[lgvlgv]

Wonderful!!

Ur great that @TRAY_ID is a killer, dident know about that one....

here are my compleate code "software code", it works great.

Im going to put this threed in "solved" (i just figure out to do that to )

expandcollapse popup

Func _CheckKundSoftware()
InetClose($i_InetGetHandle)
$i_InetGetHandle=-1
if @OSArch = "X86" Then
_DebugOut('(_CheckKundSoftware) Architecture: '& @OSArch)
$i_InetGetHandle = InetGet($s_CHSofT_x86, @TempDir &"CHSofT_x86.dat", 3, 1)
ToolTip("Starting to update")
Do
; _DebugOut('Downloading update '&'CHSofT_x86.dat'&" <- " &InetGetInfo($i_InetGetHandle, 0))
Until InetGetInfo($i_InetGetHandle, 2)

If @error <> 0 Then
_DebugOut('Could not connect to site, Please check your connection and try again')
EndIf
InetClose($i_InetGetHandle)
TrayItemSetState($checksoftupdate, $TRAY_UNCHECKED)
_LoadKundSoftData()
ElseIf @OSArch = "X64" Then
_DebugOut('(CheckKundSoftware) Architecture: '& @OSArch)
$i_InetGetHandle = InetGet($s_CHSofT_x64, @TempDir &"CHSofT_x64.dat", 3, 1)
Do
_DebugOut('Downloading update '&'CHSofT_x64.dat'& " <- " &InetGetInfo($i_InetGetHandle, 0))
Until InetGetInfo($i_InetGetHandle, 2)
If @error <> 0 Then
_DebugOut('Could not connect to site, Please check your connection and try again')
EndIf
InetClose($i_InetGetHandle)
TrayItemSetState($checksoftupdate, $TRAY_UNCHECKED)
_LoadKundSoftData()
Else
_DebugOut('(CheckKundSoftware) Not a valid architecture: '& @OSArch)
EndIf

EndFunc

Func _LoadKundSoftData()
global $prog[1][7]
TrayItemDelete($kundprog)
Global $kundprog = TrayCreateMenu(RegRead($key7 & "SOFTWAREChargeChargeDeamon", "Kund")&"-Program",$Instapp)
_DebugOut('Inside _LoadKundSoftData')
local $sections = IniReadSectionNames ( @TempDir &"CHSofT_" & @OSArch &".dat")
For $i = 1 To $sections[0]
TrayCreateItem($sections[$i], $kundprog)
TrayItemSetOnEvent(-1,"_runme")
Next
TrayItemSetOnEvent(-1,"_runme")
EndFunc

Func _runme()
Global $prog[1][7]
Local $prog1,$prog2
_DebugOut("*******************************************************")
Global $sections = IniReadSectionNames ( @TempDir &"CHSofT_" & @OSArch &".dat")

$sect=TrayItemGetText(@TRAY_ID)
If $sect="Exit" Then Exit
For $i = 1 To $sections[0]
ReDim $prog[UBound($prog) + 1][8]
$prog[$i][0] = $sections[$i]
$prog[$i][1] = IniRead(@TempDir &"CHSofT_" & @OSArch &".dat", $sect, 'version', 'Error reading file')
$prog[$i][2] = IniRead(@TempDir &"CHSofT_" & @OSArch &".dat", $sect, 'setup', 'Error reading file')
$prog[$i][3] = IniRead(@TempDir &"CHSofT_" & @OSArch &".dat", $sect, 'User', 'Error reading file')
$prog[$i][4] = IniRead(@TempDir &"CHSofT_" & @OSArch &".dat", $sect, 'Password', 'Error reading file')
$prog[$i][5] = IniRead(@TempDir &"CHSofT_" & @OSArch &".dat", $sect, 'MSI', 'Error reading file')
$prog[$i][6] = IniRead(@TempDir &"CHSofT_" & @OSArch &".dat", $sect, 'filesize', 'Error reading file')
$prog[$i][7] = IniRead(@TempDir &"CHSofT_" & @OSArch &".dat", $sect, 'filetime', 'Error reading file')

$prog1=$prog[$i][2]
$prog2=$prog[$i][5]
Next
MsgBox(0,"",$sect &" | "& $prog1 & " | "& $prog2)
$sect=TrayItemSetState(@TRAY_ID, $TRAY_UNCHECKED)
EndFunc