//前作ってた奴から関数にしてみた。テキストのチェックはないけど 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
