主题：狐表做的一个小的扫描小窗口置顶后，扫描商品。不同界面传递值

狐表做的一个小的扫描小窗口置顶后，扫描商品。

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

 

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

 

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

 

我测试了以下是不是浏览器上的文本框或按钮是无法获取的对吧？B/S架构的第三方软件

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

 

 

那甜老师有办法获取网页的文本框控件，并把狐表扫码后的数据传递给网页文本框并触发enter键吗？

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

 

方法二：想办法找到此软件的接口，看其如何和服务器端交互的（这个就麻烦了）

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

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

 

全局代码

 

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