以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  开fa piao税控机软件,如何实现模拟按键操作?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175587)

--  作者:guosheng
--  发布时间:2022/3/10 16:12:00
--  开fa piao税控机软件,如何实现模拟按键操作?
1、如果开发票软件未打开,则模拟双击,打开税控软件。----如何用命令打开这个软件如何判断软件是否打开状态
2、根据手工开票按键的顺序,识别电脑屏幕中 按键 或 标签的位置,并键盘模拟输入票面信息。----如何在电脑屏幕中识别 文字(判断按键或标签所在位置)如何移动光标到待录入的文本框中,模拟键盘录入文字信息如何操作啊(感觉还得判断电脑目前的输入法对不对)
[此贴子已经被作者于2022/3/10 16:12:54编辑过]

--  作者:有点蓝
--  发布时间:2022/3/10 16:30:00
--  
1、打开软件参考:http://www.foxtable.com/webhelp/topics/0353.htm
判断软件是否打开:
Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("软件的进程名称")
if ps.length > 0 then
msgbox("已打开")
end if

2、这个需要大量的Windows api知识,我也不懂

--  作者:guosheng
--  发布时间:2022/3/10 16:44:00
--  
如何在电脑屏幕中识别 文字(判断按键或标签所在位置)---
是否可以将电脑屏幕当成一张图片,然后调用百度或阿里的AI识别接口进行识别(不知道怎么实现)?这个被识别出来的位置不知道该怎么记录(是电脑的像素吗)?



--  作者:有点蓝
--  发布时间:2022/3/10 16:46:00
--  
截屏参考:
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119335
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=139684

文字识别参考:
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=139788

--  作者:guosheng
--  发布时间:2022/3/11 9:11:00
--  
电脑截屏的图片,通过调用百度的接口,将文字识别出来了。
该如何记录某些特定文字所在的位置,以便能够实现点击或移动光标啊。

--  作者:有点蓝
--  发布时间:2022/3/11 9:22:00
--  
百度的接口文字识别的返回结果有记录文字的位置的,去看百度接口的帮助文档
--  作者:guosheng
--  发布时间:2022/3/11 9:44:00
--  
 识别出了  “信息
----文字在图片中的位置: 左边距=54,上边距=16,宽度=83,高度=25


如何在识别的位置区域内,实现模拟 “单击鼠标” 的动作啊?

--  作者:有点蓝
--  发布时间:2022/3/11 10:04:00
--  
试试:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127986&skin=0
--  作者:guosheng
--  发布时间:2022/3/11 10:37:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20220311103318.png
图片点击可在新窗口打开查看

已经实现将鼠标焦点聚焦到文本输入框中了(把识别出来的“信息”所在位置的长,加了10,再模拟单击鼠标)。
怎么把 一段文字 输入到框中啊?


帮助中这个用法怎么改啊?
Dim Proc As New Process
Proc
.File = "C:\\table.txt"
Proc
.Start
Proc.WaitForInputIdle()
\'等程序自动结束并进入空闲状态
Sendkeys.Send(
"I Like Foxtable") \'发送按键信息


[此贴子已经被作者于2022/3/11 10:38:59编辑过]

--  作者:有点蓝
--  发布时间:2022/3/11 10:41:00
--  
定位后直接调用:Sendkeys.Send("I Like Foxtable")