Id0=GETID("TCPMP") CTRLWIN(id0,ACTIVATE) CLKITEM(ID0,"ファイル",CLK_TOOLBAR) KBD(VK_DOWN);KBD(VK_DOWN);KBD(VK_DOWN);KBD(VK_DOWN) KBD(VK_DOWN);KBD(VK_DOWN);KBD(VK_ENTER);SLEEP(1) Id1=GETID(GET_ACTIVE_WIN) GETITEM(Id1,ITM_STATIC,1) CTRLWIN(id1,CLOSE) Total=TOKEN(".",ALL_ITEM_LIST[5]) DIM Time[0] i=-1 REPEAT i=i+1 RESIZE(Time,i) Time[i]=VAL(TOKEN(":",Total)) UNTIL Total="" SELECT i CASE 0;Play=Time[0] CASE 1;Play=Time[0]*60+Time[1] CASE 2;Play=Time[0]*3600+Time[1]*60+Time[2] SELEND Play=INT(Play*(VAL(SETSLIDER(Id0,GET_SLIDER,2))/29982)) MSGBOX(Play)
