form1.frm

本人早先用vb写的脚本解释器,功能不是很多,支持分支循环的嵌套.

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3075
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3075
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rwi As New ReadWrite
Dim ana As New XHMScriptM

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    ana.键盘操作入口 CLng(KeyCode)
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    ana.键盘消除入口 CLng(KeyCode)
End Sub

Private Sub Form_Load()
ana.初始化图形 Me.hWnd, 640, 480, False
ana.初始化声音音乐 Me.hWnd
ana.初始化鼠标 Me.hWnd
ana.分析脚本 rwi.ReadInformation(App.Path & "\1.scp"), App.Path
End
End Sub