変換元には、F-san様の【第8回MMD杯予選】IAさんで「鳥の詩」 <a href="https://www.nicovideo.jp/watch/sm16745080" class="watch">sm16745080</a><br />BGMには、まゆげ様の初音ミクでアイドルマスター「てってってー」 <a href="https://www.nicovideo.jp/watch/sm3505467" class="watch">sm3505467</a><br />を利用させていただきました。勝手にすいません。ありがとうございます。<br /><br />ツールavi2txtはこちらです<br /><a href="http://benotrewarded.blog104.fc2.com/blog-entry-46.html" target="_blank" rel="noopener nofollow">http://benotrewarded.blog104.fc2.com/blog-entry-46.html</a><br /><br />UWSCのソースは次の通りです。<br />Frame=VAL(Input("フレーム数を指定してください。"))<br />Shell=CreateOleObj("Shell.Application")<br />Dialog=Shell.BrowseForFolder(0,"フォルダーを選択してください。",16,0)<br />Folder=Dialog.Items.Item.Path<br />NotePadID=GETID("メモ帳")<br />CTRLWIN(NotePadID,ACTIVATE)<br />SLEEP(10)<br />FOR I=1 TO Frame<br /> SAVEIMG(Folder+""+REPLACE(FORMAT(I,8)," ","0")+".bmp",NotePadID)<br /> CTRLWIN(NotePadID,ACTIVATE)<br /> KBD(VK_NEXT,DOWN,20)<br /> KBD(VK_NEXT,UP,20)<br /> SLEEP(0.20)<br />NEXT