MSGBOX("処理を実行してもよろしいですか？", BTN_YES OR BTN_NO)

CONST OKOnly = BTN_OK                                          // 1
CONST OKCancel = BTN_OK OR BTN_CANCEL                          // 3
CONST AbortRetryIgnore = BTN_ABORT OR BTN_RETRY OR BTN_IGNORE  // 112
CONST YesNoCancel = BTN_YES OR BTN_NO OR BTN_CANCEL            // 14
CONST YesNo = BTN_YES OR BTN_NO                                // 12
CONST RetryCancel = BTN_RETRY OR BTN_CANCEL                    // 34

CONST OKOnly = 1
CONST OKCancel = 3
CONST AbortRetryIgnore = 112
CONST YesNoCancel = 14
CONST YesNo = 12
CONST RetryCancel = 34

CONST YesNo = 12

MSGBOX("処理を実行してもよろしいですか？", YesNo)

PRINT MSGBOX("ボタンの表示なし", 128)

MSGBOX("ファイルを削除します。よろしいですか？", BTN_YES OR BTN_NO,,, BTN_NO)

SELECT MSGBOX("ボタンを選択してください。", BTN_YES OR BTN_NO)
	// 「はい」
	CASE BTN_YES
		MSGBOX("「はい」が選択されました。")
	// 「いいえ」
	CASE BTN_NO
		MSGBOX("「いいえ」が選択されました。")
SELEND

FUKIDASI("何らかの処理")
SLEEP(1.500)

WHILE TRUE
	FUKIDASI(RANDOM(100),,,, 20)
	SLEEP(1.500)
	FUKIDASI()
	SELECT MSGBOX("ボタンを選択してください。", BTN_ABORT OR BTN_RETRY OR BTN_IGNORE)
		CASE BTN_ABORT
			EXITEXIT
		CASE BTN_RETRY
			CONTINUE
		CASE BTN_IGNORE
			BREAK
	SELEND
WEND

FUKIDASI("処理を続行します。")
SLEEP(1.500)

DIM WshShell = CREATEOLEOBJ("WScript.Shell")

DIM browser = WshShell.RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice\ProgId")

IFB browser = "MSEdgeHTM" THEN
	PRINT "Microsoft Edge"
ELSEIF browser = "ChromeHTML" THEN
	PRINT "Google Chrome"
ELSEIF browser = "IE.HTTP" THEN
	PRINT "Internet Explorer"
ELSEIF POS("FirefoxURL-", browser) THEN
	PRINT "Firefox"
ELSE
	PRINT browser
ENDIF

DIM WshShell = CREATEOLEOBJ("WScript.Shell")
PRINT WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\")

MSGBOX("Example Domain<#CR>http://example.com", BTN_OK,,,, TRUE)

MSGBOX("お問い合わせは以下のメールアドレスに送信してください。クリックするとメーラーが起動します。<#CR><#CR>mailto:info@example.com", BTN_OK,,,, TRUE)

MSGBOX("こんにちは！")

MSGBOX("1行目のテキスト<#CR>2行目のテキスト<#CR>3行目のテキスト")

MSGBOX("1行目のテキスト<#CR>" + _
		"2行目のテキスト<#CR>" + _
		"3行目のテキスト")

IF MSGBOX("メモ帳を起動しますか？", BTN_YES OR BTN_NO) = BTN_YES THEN EXEC("notepad")

HASHTBL type

type[BTN_YES] = "はい"
type[BTN_NO] = "いいえ"
type[BTN_OK] = "OK"
type[BTN_CANCEL] = "キャンセル"
type[BTN_ABORT] = "中止"
type[BTN_RETRY] = "再試行"
type[BTN_IGNORE] = "無視"

DIM num = INPUT("数値を入力してください。")

IF VAL(num) = ERR_VALUE THEN EXIT

PRINT num
PRINT "----------"

FOR n = 0 TO 6
	IF (num AND POWER(2, n)) <> 0 THEN PRINT type[POWER(2, n)]
NEXT

MSGBOX("以下のボタンが表示されます", num)