| どふぁそららんだむ クラビウエーブ.UWS |
|
|
const sp = "C:\WINDOWS\Media\chimes.wav"
sound(sp)
IDPASS = "CLAVIWAVE0$<#CR>楽譜どふぁそららんだむ$<#CR>240$<#CR>"
//文字列10個出力
FOR A = 1 TO 24
//文字数は8文字
FOR B = 1 TO 8
IDPASS = IDPASS + RETURNCHAR()
NEXT
IDPASS = IDPASS + "<#CR>"
NEXT
SENDSTR(EXEC("NOTEPAD"),IDPASS)
sound(sp)
//クリップボードに文字をコピー
SENDSTR(0, "$")
ID = exec("KeyHoleVideo")
// 貼り付け
SCKEY(ID, VK_CTRL, V)
KBD(VK_CTRL,DOWN,10)
KBD(VK_V,CLICK,16)
KBD(VK_CTRL,UP,328)
FUNCTION RETURNCHAR()
SELECT RANDOM(6)
CASE 0
RESULT = "ド"
CASE 1
RESULT = "ファ"
CASE 2
RESULT = "ソ"
CASE 3
RESULT = "ラ"
CASE 4
RESULT = "ー"
default
RESULT = "・"
SELEND
FEND
// どふぁそららんだむ クラビウエーブ.UWS
// 参考：http://canal22.org/qanda/random/
// クラビウエーブ
// http://www010.upp.so-net.ne.jp/suede/
| |
|
2014年3月22日（土）03:07 | トラックバック(0) | コメント(0) | フリーソフト | 管理
|
フォトログ表示
