日志记录2:win7,win10 电脑用软件进行产品核对时,会随机发生当前窗口失去焦点,造成软件无法接受扫描枪扫描的信息. (XP 没有这个问题),于是做了这个工具监控当前窗口的情况.
Private Declare Function GetForegroundWindow Lib"user32" () as Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"(Byval hwnd as Long,Byval lpstring As String,Byval cch as Long) As Long
Dim h as long
dim caption as string
Me.Text1.Text=GetForegroundWindow() & Chr(13)
h=Text1.Text
caption=Space(256)
GetWindowText h,caption,255
Text2.Text=caption
call Oplog("……")
win7 win10 时不时失去 焦点的问题,仍没有解决。