avi2txtを試してみる解説動画です

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

http://www.nicovideo.jp/watch/sm18803897