-
Notifications
You must be signed in to change notification settings - Fork 7
/
test_lua_app.frm
41 lines (40 loc) · 1.14 KB
/
test_lua_app.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3120
ClientLeft = 108
ClientTop = 432
ClientWidth = 9744
LinkTopic = "Form1"
ScaleHeight = 3120
ScaleWidth = 9744
StartUpPosition = 3 '´°¿Úȱʡ
Begin VB.CommandButton Command1
Caption = "Execute Lua"
Height = 492
Left = 2520
TabIndex = 1
Top = 2280
Width = 4572
End
Begin VB.TextBox Text1
Height = 2052
Left = 0
MultiLine = -1 'True
TabIndex = 0
Top = 0
Width = 9732
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim win32exts As New win32atlsexe
Call win32exts.exec(Text1.Text, 0)
End Sub
Private Sub Form_Load()
Text1.Text = "win32exts.load_sym([[*]], [[*]])" + Chr(13) + Chr(10) + "win32exts.WinExec([[notepad]], 1)"
End Sub