按键精灵常用脚本库：5个自动化脚本示例

示例一：鼠标连点器

功能：在指定位置自动点击鼠标 N 次
代码：
Dim x, y, count
x = 500 : y = 400 // 点击坐标
count = 10 // 点击次数
For i = 1 To count
  MoveTo x, y
  Delay 100
  LeftClick 1
  Delay 500
Next
MessageBox "点击完成"

示例二：Excel 自动填表

功能：打开 Excel 文件并逐行输入数据
代码：
// 假设 Excel 已打开，光标在 A1 格
Dim data(5)
data(0) = "张三" : data(1) = "李四" : data(2) = "王五"
For i = 0 To 2
  SayString data(i)
  Delay 200
  KeyPress "Tab"
  Delay 100
Next

示例三：定时文件管理

功能：每小时将指定文件夹的截图移动到备份目录
代码：
Dim srcDir, dstDir
srcDir = "C:\Users\Username\Desktop\Screenshots"
dstDir = "D:\Backup\Screenshots"
While True
  Call Plugin.File.CopyDirectory(srcDir, dstDir)
  TracePrint "备份完成: " & Now()
  Delay 3600000 // 等待 1 小时
Wend

示例四：窗口监控与通知

功能：检测特定窗口是否出现，出现时发送通知
代码：
While True
  hwnd = Plugin.Window.Find("计算器")
  If hwnd <> 0 Then
    MessageBox "计算器已打开！"
    Exit Do
  End If
  Delay 2000
Wend

示例五：自动备份指定文件

功能：启动时将重要文件复制到备份目录
代码：
Dim srcFile, dstFile
srcFile = "C:\Important\data.xlsx"
dstFile = "D:\Backup\data_" & FormatTime(Now(), "yyyyMMdd_HHmmss") & ".xlsx"
Call Plugin.File.CopyFile(srcFile, dstFile)
If Plugin.File.ExistFile(dstFile) Then
  TracePrint "备份成功：" & dstFile
Else
  MessageBox "备份失败，请检查路径"
End If