声明：本文为个人在扶风县的工作经验，非官方文档。如果继续阅读，默认您已经意识到实际操作流程已经变化的可能性，并自愿承担相应责任。同时，非常感谢您能留言提出自己的宝贵经验。
因为工作原因，需要在公司负责的所有客户的电子税务局里面，收集他们的企业法定负责人，财务负责人，办税人员的信息。
这个属于机械重复工作，所以利用按键精灵写个脚本来进行这项工作。代码不完善，做个记录。
//手工登录电子税务局后，开始运行按键精灵脚本
'复制税号，因为税号列表在事先准备好的另一个网页上。手工复制后，按键精灵接着从粘贴板获取。（技术和时间有限，没有采用数据库的办法，-_-||）'这里复制的税号是给后面粘贴到wps中使用的。因为过程中会有复制操作，所以提前赋值给变量“shuihao”。
shuihao = Plugin.Sys.GetCLB
'==========以下是按键精灵录制的内容==========
MoveTo 797, 423'确定,网页自动弹出的提示窗口
leftclick 1
Delay 1000
MoveTo 818, 583'
Delay 1000
leftclick 3'9下，这里和下面是依次点击关闭后面的提示窗口，有的单位进去多，有的少。
Delay 1000
leftclick 3'9下
Delay 1000
leftclick 3'9下
Delay 1000
leftclick 3'9下
Delay 1000
leftclick 3'9下
Delay 1000
MoveTo 481, 235'我要办税，点击
leftclick 1
Delay 1000
MoveTo 402, 316'综合信息，点击
leftclick 1
Delay 1000
MoveTo 92, 307'身份信息，点击
leftclick 1
Delay 1000
MoveTo 105, 437'变更
leftclick 1
Delay 3000
MoveTo 1226, 750'确认，没有签署电子渠道接收通知等，这里直接确认。先不勾选处理。
leftclick 2
Delay 1000
MoveTo 1069, 601'确认
leftclick 1
Delay 1000
MoveTo 562, 352'下来
leftclick 1
Delay 1000
KeyPress "Down", 25
KeyPress "Enter", 1
Delay 500
MoveTo 870, 630'是
LeftClick 1
Delay 1500
MoveTo 1547, 477'增加
LeftClick 1
Delay 1000
MoveTo 560, 494'下拉
leftclick 1
KeyPress "Down", 31'31下
KeyPress "Enter", 1
Delay 500
moveto 867,605'是
LeftClick 1
Delay 3000
Delay 1000 '这个延迟必须加，不然确认窗口不会消失。就是那么斤斤计较
'==========以上是到达页面=================
'==========以下是开始进行复制操作==========
//法人名字
MoveTo 624, 354
LeftDown 1
MoveTo 660, 353
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
farenming = Plugin.Sys.GetCLB
//法人身份证
MoveTo 625, 402
LeftDown 1
MoveTo 753, 401
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
farenid = Plugin.Sys.GetCLB
'MsgBox farenid
//法人电话
MoveTo 625, 451
LeftDown 1
MoveTo 702, 450
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
farenphone = Plugin.Sys.GetCLB
//法人邮箱
MoveTo 625, 476
LeftDown 1
MoveTo 744, 476
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
farenemail = Plugin.Sys.GetCLB
//财务名称
MoveTo 625, 498
LeftDown 1
MoveTo 660, 498
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
caiwuming = Plugin.Sys.GetCLB
//财务身份
MoveTo 625, 549
LeftDown 1
MoveTo 750, 545
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
caiwuid = Plugin.Sys.GetCLB
//财务电话
MoveTo 625, 592
LeftDown 1
MoveTo 702, 592
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
caiwuphone = Plugin.Sys.GetCLB
//办税人姓名--暂时不用，因为增加去获取办税人的功能了。
//MoveTo 627, 645
//LeftDown 1
//MoveTo 663, 647
//LeftUp 1
//KeyDown 17, 1
//KeyPress 67, 1
//KeyUp 17, 1
//KeyUp 67,1
//banshui = Plugin.Sys.GetCLB
'=========这里切换页面，准备获取经办人信息======
KeyDown 17, 1
KeyDown 16, 1
KeyPress 9, 1
KeyUp 16, 1
KeyUp 17, 1
KeyUp 9, 1
'==========点击经办人信息更改=======
MoveTo 161, 522'变更经办人
leftclick 1
Delay 1000
Delay 1000
MoveTo 1226, 750'确认没有签署
leftclick 2
Delay 1000
'==========开始复制==========
//经办人名字
MoveTo 387, 482
LeftDown 1
MoveTo 349, 482
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
jingbanming = Plugin.Sys.GetCLB
//经办人身份证
MoveTo 481, 503
LeftDown 1
MoveTo 349, 503
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
jingbanid = Plugin.Sys.GetCLB
'MsgBox farenid
//经办人电话
MoveTo 428, 525
LeftDown 1
MoveTo 350, 525
LeftUp 1
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
KeyUp 67,1
jingbanphone = Plugin.Sys.GetCLB
'=========下面是切换到wps窗口，准备粘贴=======
//Hwnd = Plugin.Window.Find("WPS", 0)'这句是使用窗口名字激活窗口，但是我没有成功，不知道是因为wps窗口名字特别，还是我语法不对
//下面这句是按句柄id激活窗口，窗口的id有软件可以获取。比如“窗口句柄.exe”
Call Plugin.Window.Active(132918)
//MsgBox Hwnd
Delay 1000
'粘贴税号
Call Plugin.Sys.SetCLB(shuihao)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘贴法人名
Call Plugin.Sys.SetCLB(farenming)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘贴法人身份证
Call Plugin.Sys.SetCLB(farenid)
'MsgBox farenid
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘贴法电话
Call Plugin.Sys.SetCLB(farenphone)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86, 1
KeyPress "Tab",1
//MsgBox farenphone
'粘贴法人邮箱
Call Plugin.Sys.SetCLB(farenemail)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘贴财务名
Call Plugin.Sys.SetCLB(caiwuming)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘贴财务身份证
Call Plugin.Sys.SetCLB(caiwuid)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘财务电话
Call Plugin.Sys.SetCLB(caiwuphone)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘财办税人
Call Plugin.Sys.SetCLB(jingbanming)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘财办税人身份证
Call Plugin.Sys.SetCLB(jingbanid)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86,1
KeyPress "Tab", 1
'粘财办税人电话
Call Plugin.Sys.SetCLB(jingbanphone)
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyUp 86, 1
//KeyPress "Tab", 1
'换行，另起一行，准备下一家公司的粘贴操作（这里利用了wps，tab键之后enter会，回到原点而且另起一行的功能）
KeyPress "Enter", 1
扫一扫 手机查看