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

最新推荐文章于 2025-07-12 09:43:04 发布

yeuegi

最新推荐文章于 2025-07-12 09:43:04 发布

阅读量5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： vb 文章标签： VB 脚本

本文链接：https://blog.youkuaiyun.com/yeuegi/article/details/83852285

本文介绍如何使用VB脚本来模拟鼠标点击操作，详细阐述了相关代码实现和应用场景，帮助开发者理解并运用到自动化测试或脚本编程中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'窗体部分:
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 -> 脚本文件名
'==============================
Dim Scriptemp As String

If Dir(App.Path + "\script.txt"