Code: Select all
HWND := WinExist("ahk_class ThunderRT6FormDC")
IfWinActive, ahk_id %HWND%
{ bla bla bla more code }
Ken
Code: Select all
HWND := WinExist("ahk_class ThunderRT6FormDC")
IfWinActive, ahk_id %HWND%
{ bla bla bla more code }
Code: Select all
#If WinActive("ahk_class ThunderRT6FormDC", "" , "XYplorer", "" )
1:: Rate(1, "<curitem>")
2:: Rate(2, "<curitem>")
3:: Rate(3, "<curitem>")
4:: Rate(4, "<curitem>")
5:: Rate(5, "<curitem>")
0:: Rate("", "<curitem>")
Rate(Rating,File)
{
MouseGetPos, , , , Control
if (Control = "ThunderRT6PictureBoxDC2")
{
MessagetoXYplorer := "::tagitems(ex:Rating, '" . Rating . "', " . File . ") `;"
Communicate(MessagetoXYplorer)
Send {Space}
}
Else {
Send %Rating%
}
Return
}
Code: Select all
WinGet, Control, ControlList , "ahk_class ThunderRT6FormDC", , "XYplorer"
if (Control Like "*ThunderRT6PictureBoxDC2*")
Code: Select all
MouseGetPos, , , , Control
if (Control = "ThunderRT6PictureBoxDC2")
#If WinActive("ahk_class ThunderRT6FormDC", "" , "XYplorer", "" )
Code: Select all
#If Checking()
1:: Rate(1, "<curitem>")
2:: Rate(2, "<curitem>")
3:: Rate(3, "<curitem>")
4:: Rate(4, "<curitem>")
5:: Rate(5, "<curitem>")
0:: Rate("", "<curitem>")
Checking()
{
MouseGetPos, , , , Control
If Control in _WwG1,ThunderRT6PictureBoxDC2,ThunderRT6PictureBoxDC60,Richedit20WPT6,Richedit20WPT7,Richedit20WPT8,Richedit20WPT12 AND WinActive("ahk_class ThunderRT6FormDC")
return 1
}
Rate(Rating,File)
{
MessagetoXYplorer := "::tagitems(ex:Rating, '" . Rating . "', " . File . ") `;"
Communicate(MessagetoXYplorer)
Sendinput {Space}
Return
}
Code: Select all
#Persistent
settimer, checkcontrol, 200
checkcontrol:
MouseGetPos, , , , Control
tooltip %Control%
return
2. Using Like is a bad option and hence used nIf ((WinGet, Control, ControlList , "ahk_class ThunderRT6FormDC", , "XYplorer") In ThunderRT6PictureBoxDC2)
Code: Select all
If Control in _WwG1,ThunderRT6PictureBoxDC2,ThunderRT6PictureBoxDC60,Richedit20WPT6,Richedit20WPT7,Richedit20WPT8,Richedit20WPT12 AND WinActive("ahk_class ThunderRT6FormDC")
Code: Select all
If Variable in value1,value2,value3,value4
Code: Select all
if(Variable="value1" OR Variable="value2" OR Variable="value3" OR Variable="value4")