UWSCを使ってCLIP STUDIO PROでPNG一括書き出し

CLIP STUDIO PROでLINEのスタンプを作ってみたんだが、最終的にPNGファイルにする必要があり、
CLIP STUDIO PROには一括出力の機能がないので、UWSCでやらせてみた。

id=getid("CLIP STUDIO PAINT")

FOR i=1 to 20

	//ファイル名作成
	str = FORMAT(i, 2) // 2桁の文字列に変換
	str = REPLACE(str, " ", "0")+".clip"
	//PRINT str

	//Fileを開く
	sckey(id,VK_CTRL,VK_O)
	SLEEP(1)
	id2=getid("開く")
	sendstr(id2,str)
	sckey(id2,VK_ALT,VK_O)
	SLEEP(1)

	//画像を統合して書き出し
	fukidasi( "画像を統合して書き出し" )
	sckey(id,VK_ALT,VK_F)		// ALT+F
	KBD(VK_R)			// R
	KBD(VK_R)			// R
	KBD(VK_RIGHT)			// →
	KBD(VK_P)			// P
	SLEEP(1)
	id2=getid("画像を統合して書き出し",,0.5)
	sckey(id2,VK_ALT,VK_S)		// ALT+S
	SLEEP(1)
	
	//上書き確認のダイアログ
	fukidasi( "名前を付けて保存の確認")
	id2=getid("名前を付けて保存の確認",,0.5)
	IF id2>0 THEN sckey(id2,VK_Y)	// Y
	SLEEP(1)
	KBD(VK_ENTER)			// Enter
	
	//書き出しプレビュー
	fukidasi( "書き出しプレビュー")
	id2=getid("書き出しプレビュー",,0.5)
	IF id2>0 THEN KBD(VK_ENTER)	// Enter
	SLEEP(2)
	
	//ファイルを閉じる
	sckey(id,VK_ALT,VK_F)
	SLEEP(1)
	KBD(VK_C)
	SLEEP(1)
NEXT

まあキー操作を真似てるだけなので、異常系には全く弱い。
キー入力をする時にsckeyを使ったりKBDを使ったりするのは、そうじゃないと動かなかったため。普通はsckeyだけで動くんですがね・・・。

動かした動画が下記の感じになります。