本着开源的精神提供，希望能帮到您日常的工作。
程式类似VB，中间夹杂了按键精灵的相关按键代码，读起来也并非难懂，有一定VB语言即可，下载按键精灵，把下面的代码放入运行就可以完成自动录入工作。
代码原理：通过复制粘贴，抓取网页表格位置和EXCEL的数据互相复制粘贴，达到自动录入完成的效果。目前模拟的是一份30行的表单，自动循环执行次数为20次，相当于录入20页，需要修改的可以修改对应的这两个数值即可。
Dim ak,mycheck,c
MessageBox "选择表格"
WaitClick
Hwnd1= Plugin.Window.MousePoint()
TracePrint Hwnd1
MessageBox "选择浏览器"
WaitClick
Hwnd2 = Plugin.Window.MousePoint()
TracePrint Hwnd2
MessageBox "开始复制"
/Rem q
ak = WaitKey()
If ak = 16 Then//小键盘1键
//脚本继续
MessageBox "开始复制"
Else
Goto q
End If/
DelAy 2000
For 20
For 30
UserVAr A=0"设置内容"
Call Plugin.Window.Active(Hwnd1)
DelAy 300
//表格
KeyPress "Tab", 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
DelAy 300
CAll Plugin.Window.Active(Hwnd2)
//浏览器
Delay 600
mycheck = Plugin.Sys.GetCLB()
If Asc(mycheck) = 13 Then
MessageBox "录入完毕"
EndScript
End If
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
DelAy 1000
KeyPress "Enter", 1
DelAy 1000
For 2
Call Plugin.Window.Active(Hwnd1)
DelAy 600
//表格
KeyPress "TAb", 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
DelAy 300
CAll Plugin.Window.Active(Hwnd2)
//浏览器
DelAy 300
A = Plugin.Sys.GetCLB()
If A = 99 or A = 0 Then
Else
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
DelAy 300
KeyPress "Enter", 1
End If
DelAy 300
Next
CAll Plugin.Window.Active(Hwnd1)
//表格
DelAy 1000
KeyPress "TAb", 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
DelAy 600
A = Plugin.Sys.GetCLB()
KeyPress "Enter", 1
KeyPress "Enter", 1
CAll Plugin.Window.Active(Hwnd2)
//浏览器
DelAy 1000
Call Plugin.Sys.SetCLB(A)
If A = 0 Then
Else
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyPress "Enter", 1
End If
DelAy 600
Next
Delay 1000
KeyPress "F4", 1
Delay 4000
Next
//Call Plugin.Media.Play("E:\XXX\XXXXXXX.mp3")
//Call Plugin.Media.Beep(659, 1600)
//MessageBox "本页已录完！
"于2018年冬天创建初始脚本，2019年夏天引入FOR20之前用户界面脚本，此后停止更新持续运行时长2年零8个月
开源时间2021年8月17日
