Advertisement
basictomonokai

HTML変更テストプログラム basic!

Oct 18th, 2016
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.78 KB | None | 0 0
  1. console.title "HTML test"
  2.  
  3.  
  4. nxttest:
  5.  
  6. HTML.OPEN
  7.  
  8. HTML.LOAD.URL "tatest.html"
  9.  
  10. xnextUserAction:
  11.  
  12. ! loop until data$ is not ""
  13.  
  14. DO
  15. HTML.GET.DATALINK data$
  16. UNTIL data$ <> ""
  17.  
  18. type$ = LEFT$(data$, 4)
  19.  
  20. data$ = MID$(data$,5)
  21.  
  22. ! Act on the data type
  23. ! Shown are all the current data types
  24.  
  25. SW.BEGIN type$
  26.  
  27. ! Back Key hit.
  28. ! if we can go back then do it
  29. SW.CASE "BAK:"
  30. PRINT "BACK key: " + data$
  31. popup "終了します",0,0,0
  32. pause 2000
  33. end
  34. SW.BREAK
  35.  
  36. ! A hyperlink was clicked on
  37. SW.CASE "LNK:"
  38. PRINT "Hyperlink selected: "+ data$
  39. popup "リンク先をロード中",0,0,1
  40. ! HTML.LOAD.URL data$
  41. browse data$
  42.  
  43.  
  44. SW.BREAK
  45.  
  46. ! An error occured
  47. SW.CASE "ERR:"
  48. PRINT "Error: " + data$
  49. popup "エラーが発生しました 終了します",0,0,0
  50. pause 2000
  51. exit
  52. SW.BREAK
  53.  
  54. ! User data returned
  55. SW.CASE "DAT:"
  56. PRINT "User data: " + data$
  57.  
  58. ! Check for Exit
  59. IF data$ = "//x//" then
  60. PRINT "User ended demo."
  61. HTML.CLOSE
  62. popup "終了します",0,0,0
  63. pause 5000
  64. end
  65. else
  66. IF data$ = "//a//" then
  67. PRINT "send test."
  68. Html.Load.Url "javascript:document.getElementById('aaa').value='BASIC!からの送信'"
  69. popup "送信テスト",0,0,0
  70. goto xnextUserAction
  71. else
  72. msx$=data$+"←データの内容"
  73. popup msx$,0,0,0
  74. pause 1000
  75. goto xnextUserAction
  76. endif
  77. ENDIF
  78. SW.BREAK
  79.  
  80. ! Form data returned.
  81. ! Note: Form data returning
  82. ! always exits the html.
  83.  
  84. SW.CASE "FOR:"
  85. PRINT "Form data: "+data$
  86. popup "終了します",0,0,0
  87. pause 2000
  88. exit
  89. SW.BREAK
  90.  
  91.  
  92.  
  93. SW.DEFAULT
  94. PRINT "Unexpected data type:", type$ + data$
  95. popup "終了します",0,0,0
  96. pause 2000
  97. exit
  98.  
  99. SW.END
  100.  
  101. GOTO xnextUserAction
  102.  
  103.  
  104. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement