几年前写的一个按键精灵脚本，分享给平时工作需要从EXCEL录入网页端平台的打工人。

本着开源的精神提供，希望能帮到您日常的工作。

程式类似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日