・以下のソフトは、HSPコンテスト2014に出典します。以下のソースによって動作される
ソフトウェアと同様のものを作ったり、出典しないでください。
です。エラー38が出ます。asファイルはカウントディレクトリに入れています
title "クリップボードビューアー" #packopt name "クリップボードビューアー #include "hspext.as" #include "hsp3util.as" screen 0,350,480 cls 4 *main cls 4 h=gettime(4) mi=gettime(5) mil=gettime(6) kbs="test\n" sdim kbs,100000 color 0,225,0 objsize 350,100 mes "クリップボードの文字列("+h+"時"+mi+"分"+mil+"秒)" clipget kbs,100000 objsize 350,100 pos 0,50 mesbox kbs,350,300 objsize 175,65 pos 0,350 button "STOP" , *smain pos 176,350 button "保存" , *hozon wait 100 goto *main *smain cls 4 h=gettime(4) mi=gettime(5) mil=gettime(6) kbs="test\n" sdim kbs,100000 color 0,225,0 objsize 350,100 mes "クリップボードの内容("+h+"時"+mi+"分"+mil+"秒)" clipget kbs,100000 objsize 350,100 pos 0,50 mesbox kbs,350,300 objsize 175,65 pos 0,350 button "START" , *main pos 176,350 button "保存" , *hozon stop *hozon cls 4 color 0,225,0 y=gettime(0) mes "001:時間を取得(年) wait 10 m=gettime(1) mes "002:時間を取得(月)" wait 10 d=gettime(3) mes "003:時間を取得(日)" wait 10 h=gettime(4) mes "004:時間を取得(時)" wait 10 mi=gettime(5) mes "005:時間を取得(分)" wait 10 mil=gettime(6) mes "006:時間を取得(秒)" wait 10 hzm=a mes "007:保存用変数作成(hzm)" wait 20 notesel hzm mes "008:hzmをメモリノートパッドのバッファに設定します。 wait 20 noteadd kbs mes "009:メモリノートパッドの内容を追加・変更します。" wait 20 notesave ""+y+""+m+""+d+""+h+""+mi+""+mil+".txt" wait 50 mes "011:書き込み終了" mes "カウントディレクトリに保存されました" wait 300 goto *main
ちなみに、クリップボード内の文字列を表示し、txtで保存できるソフトです。