09/06/26 03:10:05 rn5hv3nk0
//前作ってた奴から関数にしてみた。テキストのチェックはないけど
option explicit
//クラス名とExe名からIDを取得する
dim sNameClass = "#32770"
dim sNameExe = "movieoperator.exe"
dim ret = GetID_class_Exename(sNameClass,sNameExe)
msgbox(ret)
function GetID_class_Exename(sNameClass,sNameExe)
GETALLWIN()
dim iii
result = ""
for iii=resize(ALL_WIN_ID) to 0 step -1
ifb status(iii,ST_Class) = sNameClass and copy(status(iii,ST_Path),length(status(iii,ST_Path))-length(sNameExe)+1,length(sNameExe)) = sNameExe then
result = iii
exit
endif
next
FEnd