按键精灵粘贴和复制的具体怎么编写脚本,编写的脚本是什么

2025-03-31 07:37:35
推荐回答(1个)
回答1:

Dim i
i = 1
Do
Key = WaitKey
If Key = 65 Then
Text = Plugin.Office.ReadXls(1, i, 1)
Call Plugin.Sys.SetCLB(Text)
End If
If Key = 83 Then
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
i = i + 1
End If
Loop