Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fn.def embox0$(ken1$)
- grabfile outhtml$,"emo00.html",1
- outhtmlk$="\n"
- outhtml$=replace$(outhtml$,"@@@1@@@",ken1$)
- 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:"
- ! PRINT "User data: " + data$
- ! 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