Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fn.def ynbox1$(titl$,odai$,honbun$)
- outhtmlk$="\n"
- outhtml$="?<html>"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"<head >"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+" <meta http-equiv=\"content-type\" content=\"text/html;charset=UTF-8\"/>"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"<style type=\"text/css\">"+outhtmlk$
- outhtml$=outhtml$+"<!--"+outhtmlk$
- outhtml$=outhtml$+"input,textarea {font-size: 36;}"+outhtmlk$
- outhtml$=outhtml$+"-->"+outhtmlk$
- outhtml$=outhtml$+"</style>"+outhtmlk$
- outhtml$=outhtml$+"<style type=\"text/css\">"+outhtmlk$
- outhtml$=outhtml$+"<!--"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"#buttonx {"+outhtmlk$
- outhtml$=outhtml$+" width:300px;"+outhtmlk$
- outhtml$=outhtml$+" color:#ffffff;"+outhtmlk$
- outhtml$=outhtml$+" background:#337fcc;"+outhtmlk$
- outhtml$=outhtml$+" font-family: fantasy,sans-serif;"+outhtmlk$
- outhtml$=outhtml$+" font-size:24px;"+outhtmlk$
- outhtml$=outhtml$+" font-weight:bold;"+outhtmlk$
- outhtml$=outhtml$+" text-shadow:0 1px 0px #143352,0 2px 0px #143352;"+outhtmlk$
- outhtml$=outhtml$+" text-align:center;"+outhtmlk$
- outhtml$=outhtml$+" display:inline-block;"+outhtmlk$
- outhtml$=outhtml$+" text-decoration:none;"+outhtmlk$
- outhtml$=outhtml$+" border:1px solid #225588;"+outhtmlk$
- outhtml$=outhtml$+" padding:10px 0 8px 0;"+outhtmlk$
- outhtml$=outhtml$+" border-radius:5px;"+outhtmlk$
- outhtml$=outhtml$+" margin-bottom:20px;"+outhtmlk$
- outhtml$=outhtml$+"}"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"-->"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"</style>"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"<style type=\"text/css\">"+outhtmlk$
- outhtml$=outhtml$+"hr.style-eight {"+outhtmlk$
- outhtml$=outhtml$+" height: 12px;"+outhtmlk$
- outhtml$=outhtml$+" border: 0;"+outhtmlk$
- outhtml$=outhtml$+" box-shadow: inset 0 12px 12px -12px rgba(0,0,0,0.5);"+outhtmlk$
- outhtml$=outhtml$+"}"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"</style>"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+" <title>@@@1@@@</title>"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"</head>"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"<script type=\"text/javascript\">"+outhtmlk$
- outhtml$=outhtml$+" function doDataLink(data) {"+outhtmlk$
- outhtml$=outhtml$+" Android.dataLink(data);"+outhtmlk$
- outhtml$=outhtml$+" }"+outhtmlk$
- outhtml$=outhtml$+"</script>"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+"<body bgcolor=\"azure\">"+outhtmlk$
- outhtml$=outhtml$+""+outhtmlk$
- outhtml$=outhtml$+" <div align=\"center\">"+outhtmlk$
- outhtml$=outhtml$+"<hr class=\"style-eight\"><br>"+outhtmlk$
- outhtml$=outhtml$+" <h1><b>【 @@@2@@@ 】</b></h1>"+outhtmlk$
- outhtml$=outhtml$+" <h1><b>@@@3@@@</b></h1>"+outhtmlk$
- outhtml$=outhtml$+"<a id=\"buttonx\" style=\"width:250px\" onmouseover=\"this.style.background='#43cd80'\" onmouseout=\"this.style.background='#337fcc'\" onclick=\"this.style.background='#43cd80';doDataLink('yes')\" >YES</a>"+outhtmlk$
- outhtml$=outhtml$+" <a id=\"buttonx\" style=\"width:250px\" onmouseover=\"this.style.background='#43cd80'\" onmouseout=\"this.style.background='#337fcc'\" onclick=\"this.style.background='#43cd80';doDataLink('no')\">NO</a>"+outhtmlk$
- outhtml$=outhtml$+"<br> <hr class=\"style-eight\">"+outhtmlk$
- outhtml$=outhtml$+" </div>"+outhtmlk$
- outhtml$=outhtml$+"</body>"+outhtmlk$
- outhtml$=outhtml$+"</html>"+outhtmlk$
- outhtml$=replace$(outhtml$,"@@@1@@@",titl$)
- outhtml$=replace$(outhtml$,"@@@2@@@",odai$)
- outhtml$=replace$(outhtml$,"@@@3@@@",honbun$)
- HTML.OPEN
- HTML.LOAD.string outhtml$
- ! loop until data$ is not ""
- DO
- HTML.GET.DATALINK data$
- UNTIL data$ <> ""
- type$ = LEFT$(data$, 4)
- data$ = MID$(data$,5)
- ! Act on the data type
- ! Shown are all the current data types
- SW.BEGIN type$
- ! Back Key hit.
- ! if we can go back then do it
- SW.CASE "BAK:"
- PRINT "BACK key: " + data$
- popup "強制終了します",0,0,0
- html.close
- pause 2000
- exit
- SW.BREAK
- ! A hyperlink was clicked on
- SW.CASE "LNK:"
- PRINT "Hyperlink selected: "+ data$
- popup "想定外のデータ受信 強制終了します",0,0,0
- pause 5000
- html.close
- exit
- SW.BREAK
- ! An error occured
- SW.CASE "ERR:"
- PRINT "Error: " + data$
- popup "エラーが発生しました 終了します",0,0,0
- pause 2000
- html.close
- exit
- SW.BREAK
- ! User data returned
- SW.CASE "DAT:"
- ! Check for Exit
- IF data$ = "Exit"
- PRINT "User ended demo."
- HTML.CLOSE
- popup "想定外のデータ受信 強制終了します",0,0,0
- pause 5000
- exit
- else
- msx$=data$+" が選択されました"
- popup msx$,0,0,0
- html.close
- pause 2000
- ENDIF
- SW.BREAK
- ! Form data returned.
- ! Note: Form data returning
- ! always exits the html.
- SW.CASE "FOR:"
- PRINT "Form data: "+data$
- popup "想定外のデータ受信 強制終了します",0,0,0
- pause 2000
- HTML.CLOSE
- exit
- SW.BREAK
- SW.DEFAULT
- PRINT "Unexpected data type:", type$ + data$
- popup "想定外のデータ受信 強制終了します",0,0,0
- pause 2000
- HTML.CLOSE
- exit
- SW.END
- fn.rtn data$
- fn.end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement