VB 模拟鼠标点击(脚本版)

'窗体部分:
Private Sub Command1_Click()
Script.AddItem ( "坐标：" & MouseX.Text & "-" & MouseY.Text)
End Sub

Private Sub Command2_Click()
Script.AddItem ( "鼠标：左键" )
End Sub

Private Sub Command3_Click()
Script.AddItem ( "鼠标：右键" )
End Sub

Private Sub Command4_Click()
If KeyText.Text <> "" Then
Script.AddItem ( "键盘：" & KeyText.Text)
End If
End Sub

Private Sub Command5_Click()
'==============================
'功能：保存脚本
'参数：script.txt -> 脚本文件名
'==============================
Dim i As Integer
Open App.Path + "\script.txt" For Output As #1
For i = 1 To Script.ListCount
Print #1 , Script.List(i - 1 ) '这里使用 i-1 是因为 ListBox 控件是从 0 开始
Next i
Close #1
MsgBox "保存完毕！" , vbOKOnly, "保存脚本"
End Sub
Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
Call Start
End Sub

Private Sub Form_Load()
'==============================
'功能：读取脚本
'参数：script.txt -> 脚本文件名
'===&