vb6,获取当前窗口名称

日志记录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 时不时失去 焦点的问题，仍没有解决。