【按键精灵】采集电子税务局的企业人员信息（20240109更新：建议使用Uibot，影刀RPA等工具）

20240109更新：建议使用Uibot，影刀RPA等工具。

官网：

Uibot官网：UiBot RPA_机器人流程自动化_提供政企RPA解决方案_免费RPA软件下载

影刀RPA：影刀RPA - 影刀官网 (yingdao.com)

UiPath：UiPath业务自动化平台：先进的RPA及自动化平台 | UiPath

Microsoft Power Automate： Microsoft Power Automate – 流程自动化平台 | Microsoft

如何选择：

UiBot和按键精灵哪个强大，有什么区别? - 哔哩哔哩 (bilibili.com)

国内外主要RPA产品盘点 - 知乎 (zhihu.com)

教程：官网和B站可以直接搜索。

UiBot机器人视频专辑-UiBot机器人视频合集-哔哩哔哩视频 (bilibili.com)

20200910：

因为工作原因，需要在公司负责的所有客户的电子税务局里面，收集他们的企业法定负责人，财务负责人，办税人员的信息。

这个属于机械重复工作，所以利用按键精灵写个脚本来进行这项工作。代码不完善，做个记录。

  1 //手工登录电子税务局后，开始运行按键精灵脚本
  2 '复制税号，因为税号列表在事先准备好的另一个网页上。手工复制后，按键精灵接着从粘贴板获取。（技术和时间有限，没有采用数据库的办法，-_-||）'这里复制的税号是给后面粘贴到wps中使用的。因为过程中会有复制操作，所以提前赋值给变量“shuihao”。
  3 shuihao = Plugin.Sys.GetCLB
  4 
  5 '==========以下是按键精灵录制的内容==========
  6 MoveTo 797, 423'确定,网页自动弹出的提示窗口
  7 leftclick 1
  8 
  9 Delay 1000
 10 
 11 MoveTo 818, 583'
 12 
 13 Delay 1000
 14 
 15 leftclick 3'9下，这里和下面是依次点击关闭后面的提示窗口，有的单位进去多，有的少。
 16 
 17 Delay 1000
 18 
 19 leftclick 3'9下
 20 
 21 Delay 1000
 22 
 23 
 24 leftclick 3'9下
 25 
 26 Delay 1000
 27 
 28 leftclick 3'9下
 29 
 30 Delay 1000
 31 
 32 leftclick 3'9下
 33 
 34 Delay 1000
 35 
 36 
 37 
 38 
 39 MoveTo 481, 235'我要办税，点击
 40 leftclick 1
 41 
 42 Delay 1000
 43 
 44 MoveTo 402, 316'综合信息，点击
 45 leftclick 1
 46 
 47 Delay 1000
 48 
 49 MoveTo 92, 307'身份信息，点击
 50 leftclick 1
 51 
 52 Delay 1000
 53 
 54 MoveTo 105, 437'变更
 55 leftclick 1
 56 
 57 Delay 3000
 58 
 59 MoveTo 1226, 750'确认，没有签署电子渠道接收通知等，这里直接确认。先不勾选处理。
 60 leftclick 2
 61 
 62 Delay 1000
 63 
 64 MoveTo 1069, 601'确认
 65 leftclick 1
 66 
 67 Delay 1000
 68 
 69 MoveTo 562, 352'下来
 70 leftclick 1
 71 
 72 Delay 1000
 73 
 74 KeyPress "Down", 25
 75 KeyPress "Enter", 1
 76 
 77 Delay 500
 78 
 79 
 80 MoveTo 870, 630'是
 81 LeftClick 1
 82 
 83 Delay 1500
 84 
 85 MoveTo 1547, 477'增加
 86 LeftClick 1
 87 
 88 Delay 1000
 89 
 90 MoveTo 560, 494'下拉
 91 leftclick 1
 92 KeyPress "Down", 31'31下
 93 KeyPress "Enter", 1
 94 
 95 Delay 500
 96 
 97 moveto 867,605'是
 98 LeftClick 1
 99 
100 
101 Delay 3000
102 Delay 1000 '这个延迟必须加，不然确认窗口不会消失。就是那么斤斤计较
103 
104 '==========以上是到达页面=================
105 '==========以下是开始进行复制操作==========
106 
107 
108 //法人名字
109 MoveTo 624, 354
110 LeftDown 1
111 MoveTo 660, 353
112 LeftUp 1
113 KeyDown 17, 1
114 KeyPress 67, 1
115 KeyUp 17, 1
116 KeyUp 67,1
117 farenming = Plugin.Sys.GetCLB
118 
119 
120 //法人身份证
121 MoveTo 625, 402
122 LeftDown 1
123 MoveTo 753, 401
124 LeftUp 1
125 KeyDown 17, 1
126 KeyPress 67, 1
127 KeyUp 17, 1
128 KeyUp 67,1
129 farenid = Plugin.Sys.GetCLB
130 
131 'MsgBox farenid
132 
133 //法人电话
134 MoveTo 625, 451
135 LeftDown 1
136 MoveTo 702, 450
137 LeftUp 1
138 KeyDown 17, 1
139 KeyPress 67, 1
140 KeyUp 17, 1
141 KeyUp 67,1
142 farenphone = Plugin.Sys.GetCLB
143 
144 
145 
146 //法人邮箱
147 MoveTo 625, 476
148 LeftDown 1
149 MoveTo 744, 476
150 LeftUp 1
151 KeyDown 17, 1
152 KeyPress 67, 1
153 KeyUp 17, 1
154 KeyUp 67,1
155 farenemail = Plugin.Sys.GetCLB
156 
157 
158 
159 
160 //财务名称
161 MoveTo 625, 498
162 LeftDown 1
163 MoveTo 660, 498
164 LeftUp 1
165 KeyDown 17, 1
166 KeyPress 67, 1
167 KeyUp 17, 1
168 KeyUp 67,1
169 caiwuming = Plugin.Sys.GetCLB
170 
171 
172 
173 
174 //财务身份
175 MoveTo 625, 549
176 LeftDown 1
177 MoveTo 750, 545
178 LeftUp 1
179 KeyDown 17, 1
180 KeyPress 67, 1
181 KeyUp 17, 1
182 KeyUp 67,1
183 caiwuid = Plugin.Sys.GetCLB
184 
185 
186 
187 //财务电话
188 MoveTo 625, 592
189 LeftDown 1
190 MoveTo 702, 592
191 LeftUp 1
192 KeyDown 17, 1
193 KeyPress 67, 1
194 KeyUp 17, 1
195 KeyUp 67,1
196 caiwuphone = Plugin.Sys.GetCLB
197 
198 
199 //办税人姓名--暂时不用，因为增加去获取办税人的功能了。
200 //MoveTo 627, 645
201 //LeftDown 1
202 //MoveTo 663, 647
203 //LeftUp 1
204 //KeyDown 17, 1
205 //KeyPress 67, 1
206 //KeyUp 17, 1
207 //KeyUp 67,1
208 //banshui = Plugin.Sys.GetCLB
209 
210 
211 '=========这里切换页面，准备获取经办人信息======
212 
213 KeyDown 17, 1
214 KeyDown 16, 1
215 KeyPress 9, 1
216 KeyUp 16, 1
217 KeyUp 17, 1
218 KeyUp 9, 1
219 
220 '==========点击经办人信息更改=======
221 MoveTo 161, 522'变更经办人
222 leftclick 1
223 
224 Delay 1000
225 Delay 1000
226 
227 MoveTo 1226, 750'确认没有签署
228 leftclick 2
229 Delay 1000
230 
231 '==========开始复制==========
232 
233 
234 //经办人名字
235 MoveTo 387, 482
236 LeftDown 1
237 MoveTo 349, 482
238 LeftUp 1
239 KeyDown 17, 1
240 KeyPress 67, 1
241 KeyUp 17, 1
242 KeyUp 67,1
243 jingbanming = Plugin.Sys.GetCLB
244 
245 
246 
247 //经办人身份证
248 MoveTo 481, 503
249 LeftDown 1
250 MoveTo 349, 503
251 LeftUp 1
252 KeyDown 17, 1
253 KeyPress 67, 1
254 KeyUp 17, 1
255 KeyUp 67,1
256 jingbanid = Plugin.Sys.GetCLB
257 
258 'MsgBox farenid
259 
260 //经办人电话
261 MoveTo 428, 525
262 LeftDown 1
263 MoveTo 350, 525
264 LeftUp 1
265 KeyDown 17, 1
266 KeyPress 67, 1
267 KeyUp 17, 1
268 KeyUp 67,1
269 jingbanphone = Plugin.Sys.GetCLB
270 
271 '=========下面是切换到wps窗口，准备粘贴=======
272 
273 //Hwnd = Plugin.Window.Find("WPS", 0)'这句是使用窗口名字激活窗口，但是我没有成功，不知道是因为wps窗口名字特别，还是我语法不对
274 //下面这句是按句柄id激活窗口，窗口的id有软件可以获取。比如“窗口句柄.exe”
275 Call Plugin.Window.Active(132918)   
276 //MsgBox Hwnd 
277 
278 Delay 1000
279 
280 '粘贴税号
281 Call Plugin.Sys.SetCLB(shuihao)
282 KeyDown 17, 1
283 KeyPress 86, 1
284 KeyUp 17, 1
285 KeyUp 86,1
286 KeyPress "Tab", 1
287 
288 
289 '粘贴法人名
290 Call Plugin.Sys.SetCLB(farenming)
291 KeyDown 17, 1
292 KeyPress 86, 1
293 KeyUp 17, 1
294 KeyUp 86,1
295 KeyPress "Tab", 1
296 
297 
298 '粘贴法人身份证
299 Call Plugin.Sys.SetCLB(farenid)
300 
301 'MsgBox farenid
302 KeyDown 17, 1
303 KeyPress 86, 1
304 KeyUp 17, 1
305 KeyUp 86,1
306 KeyPress "Tab", 1
307 
308 
309 '粘贴法电话
310 Call Plugin.Sys.SetCLB(farenphone)
311 KeyDown 17, 1
312 KeyPress 86, 1
313 KeyUp 17, 1
314 KeyUp 86, 1
315 KeyPress "Tab",1
316 
317 //MsgBox farenphone
318 '粘贴法人邮箱
319 Call Plugin.Sys.SetCLB(farenemail)
320 KeyDown 17, 1
321 KeyPress 86, 1
322 KeyUp 17, 1
323 KeyUp 86,1
324 KeyPress "Tab", 1
325 
326 
327 '粘贴财务名
328 Call Plugin.Sys.SetCLB(caiwuming)
329 KeyDown 17, 1
330 KeyPress 86, 1
331 KeyUp 17, 1
332 KeyUp 86,1
333 KeyPress "Tab", 1
334 
335 
336 
337 '粘贴财务身份证
338 Call Plugin.Sys.SetCLB(caiwuid)
339 KeyDown 17, 1
340 KeyPress 86, 1
341 KeyUp 17, 1
342 KeyUp 86,1
343 KeyPress "Tab", 1
344 
345 
346 
347 '粘财务电话
348 Call Plugin.Sys.SetCLB(caiwuphone)
349 KeyDown 17, 1
350 KeyPress 86, 1
351 KeyUp 17, 1
352 KeyUp 86,1
353 KeyPress "Tab", 1
354 
355 
356 '粘财办税人
357 Call Plugin.Sys.SetCLB(jingbanming)
358 KeyDown 17, 1
359 KeyPress 86, 1
360 KeyUp 17, 1
361 KeyUp 86,1
362 KeyPress "Tab", 1
363 
364 '粘财办税人身份证
365 Call Plugin.Sys.SetCLB(jingbanid)
366 KeyDown 17, 1
367 KeyPress 86, 1
368 KeyUp 17, 1
369 KeyUp 86,1
370 KeyPress "Tab", 1
371 
372 '粘财办税人电话
373 Call Plugin.Sys.SetCLB(jingbanphone)
374 KeyDown 17, 1
375 KeyPress 86, 1
376 KeyUp 17, 1
377 KeyUp 86, 1
378 
379 //KeyPress "Tab", 1
380 
381 
382 '换行，另起一行，准备下一家公司的粘贴操作（这里利用了wps，tab键之后enter会，回到原点而且另起一行的功能）
383 KeyPress "Enter", 1

posted @ 2020-09-10 17:28 Henrycome 阅读(696) 评论(0) 收藏举报

刷新页面返回顶部

HenryCome

【按键精灵】采集电子税务局的企业人员信息（20240109更新：建议使用Uibot，影刀RPA等工具）

公告