TestScript/simple2.vbs

   1 Option Explicit
   2
   3 Dim Obj
   4 Set Obj = WScript.CreateObject("SeraphyScriptTools.Instance")
   5
   6 with Obj.MainFrame.Open("SIMPLE-WINDOW").SetWindowStyle(0,0,0)
   7         with .canvas.layer(0)
   8                 .SetMappingMode 1
   9                 .text 100,100,"\8fI\97¹\82ÍESC\83L\81["
  10         end with
  11         .backcolor = "&HFFFF00"
  12         .open
  13         .topmost = true
  14         .zoomed = true
  15         while(not .quit)
  16                 .waitevent
  17         wend
  18 end with
  19