uwscでclipchampのTTSを使ってナレーション音声を自動作成します
uwscはwindowsを操作するとても古いツールです。サポートは切れていますが、windows11でも問題なく使えますスクリプトの書き方もとても簡単ですpower Automteと同じことをしてみました画像を認識してクリックするようにしたのですが、うまく画像を認識しないところがあり苦労しましたとりあえず認識不良のところは、画面位置を直接クリックするようにしました//-----------------------//CLIPCHAMPで音声変換を自動化する//-----------------------init()FID = FOPEN("words.txt",F_READ) //音声用の文字を取得n = FGET(FID, F_LINECOUNT) //音声作成用の文字があるまで繰り返すFor i = 1 to n str=FGET(FID,i) InputWord(str) //音声を作成nextFCLOSE(FID)//画像を見つけてクリックPROCEDURE ImgClick(img) flg=false while flg=false //画像があるまで繰り返す IFB CHKIMG("images\"+img) //画像があるか？ flg=true BTN(LEFT,CLICK, G_IMG_X, G_IMG_Y,300) //あればクリックする endif sleep(1) wendFENDPROCEDURE InputWord(w)//画像認識で認識できないので、直接位置をクリックする BTN(LEFT,CLICK,20,190,2000) //録画と作成 BTN(LEFT,CLICK,200,400,2500) //音声変換// ImgClick("nanami.bmp") //ナレータ選択 BTN(LEFT,CLICK,735,420,2000) //ナレータ選択 ImgClick("mayu.bmp") //mayuを選択 //ImgClick("wordsarea.bmp") //入力域を見つける BTN(LEFT,CLICK,800,600,2000) //入力域を見つける wid=GETID(GET_ACTIVE_WIN) //アクティブなウインドウを選択 sendstr(wid,w) //音声用の文字をペースト// ImgClick("save.bmp") //メディアへの保存をクリック BTN(LEFT,CLICK,1104,840,2000) //メディアへの保存をクリック sleep(3)FENDPROCEDURE init() //clipchampを全画面で起動して終了しておく clip=EXEC("clipchamp launch") //clipchampを起動 ID=GETID(GET_ACTIVE_WIN) px = STATUS( ID, ST_X ) py = STATUS( ID, ST_Y ) ImgClick("new.bmp") //新しいビデオ作成をクリックFEND認識用の画像これが音声用文字です
