以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  狐表做的一个小的扫描小窗口置顶后,扫描商品。不同界面传递值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128094)

--  作者:weibu
--  发布时间:2018/11/28 18:59:00
--  狐表做的一个小的扫描小窗口置顶后,扫描商品。不同界面传递值
狐表做的一个小的扫描小窗口置顶后,扫描商品。
1.小的扫描窗口下面是一个第三方软件的文本输入框;
2.当有扫描发生时,能否把扫描的值同时写到第三方软件的文本输入框内;
3.看到有留钩子这个功能想到的;
4.刚开始光标在狐表的扫描框,不知道有扫描时,如何激活第三方的输入框;
5.第三方的输入框仅支持键盘输入,不支持复制黏贴。不知道如何将扫描的值使用键盘输入模拟;

--  作者:有点色
--  发布时间:2018/11/28 20:54:00
--  

要让焦点在【第三方软件】,在输入框的位置,才能输入内容的。

 

为什么直接把焦点放在【第三方软件】?

 

如果要在foxtable控制外面程序的内容,比较麻烦,要这样做 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77745&skin=0

 


--  作者:weibu
--  发布时间:2018/11/29 17:23:00
--  
我测试了以下是不是浏览器上的文本框或按钮是无法获取的对吧?B/S架构的第三方软件
--  作者:有点甜
--  发布时间:2018/11/29 17:46:00
--  

用 spylite24 获取,窗口控件都可以获取。但网页文件里面显示的内容无法获取的。

 

 


--  作者:weibu
--  发布时间:2018/11/29 18:31:00
--  
那甜老师有办法获取网页的文本框控件,并把狐表扫码后的数据传递给网页文本框并触发enter键吗?


--  作者:有点甜
--  发布时间:2018/11/29 19:33:00
--  

方法一:让软件获得焦点,模拟鼠标移动到某个位置,单击,然后模拟键盘输入值;

 

方法二:想办法找到此软件的接口,看其如何和服务器端交互的(这个就麻烦了)


--  作者:weibu
--  发布时间:2018/11/29 20:00:00
--  
方法一:让软件获得焦点,模拟鼠标移动到某个位置,单击,然后模拟键盘输入值;
这个方法,咱们狐表帮助文件或论坛有相关的文件吗

--  作者:weibu
--  发布时间:2018/11/29 20:06:00
--  
方法一:让软件获得焦点,模拟鼠标移动到某个位置,单击,然后模拟键盘输入值
请问这个方法狐表是否有帮助文件或论坛有此文件

--  作者:有点甜
--  发布时间:2018/11/29 21:05:00
--  
以下是引用weibu在2018/11/29 20:06:00的发言:
方法一:让软件获得焦点,模拟鼠标移动到某个位置,单击,然后模拟键盘输入值
请问这个方法狐表是否有帮助文件或论坛有此文件

 

全局代码

 

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public const MOUSEEVENTF_MOVE As Int32 = &H1 \'  mouse move
Public const MOUSEEVENTF_LEFTDOWN As Int32 = &H2 \'  left button down
Public const MOUSEEVENTF_LEFTUP As Int32 = &H4 \'  left button up
Public const MOUSEEVENTF_RIGHTDOWN As Int32 = &H8 \'  right button down
Public const MOUSEEVENTF_RIGHTUP As Int32 = &H10 \'  right button up
Public const MOUSEEVENTF_MIDDLEDOWN As Int32 = &H20 \'  middle button down
Public const MOUSEEVENTF_MIDDLEUP As Int32 = &H40 \'  middle button up
Public const MOUSEEVENTF_ABSOLUTE As Int32 = &H8000 \'  absolute move
Public const MOUSEEVENTF_WHEEL As Int32 = &H800 \' wheel button rolled

<DllImport("user32.dll", EntryPoint := "SetCursorPos")> _
Public Function SetCursorPos(x As Integer, y As Integer) As Boolean

End Function

 

调用

 

SetCursorPos (599, 589) \'鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) \'点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

 

 

-------------------------------

 

模拟键盘输入,参考 http://www.foxtable.com/webhelp/scr/0354.htm