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)
FUNCTION RETURNCHAR() SELECT RANDOM(6) CASE 0 RESULT = "ド" CASE 1 RESULT = "ファ" CASE 2 RESULT = "ソ" CASE 3 RESULT = "ラ" CASE 4 RESULT = "ー" default RESULT = "・" SELEND FEND
フォトログ表示
