怎么获得前台的活动窗口句柄

如何获得前台的活动窗口句柄
如何获得前台的活动窗口句柄
就是用户正在操作的那个窗口的句柄，

用户切换窗口的时候要实时获得，保证始终获得用户操作的那个窗口的句柄

[解决办法]

VB code

Option Explicit'【操作系统】'Win9X: Yes'WinNT: Yes'【说明】' 获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口'【返回值】'Long，前台窗口的句柄'【其它】' windows nt支持多个桌面，它们相互间是独立的。每个桌面都有自己的前台窗口'【参数表】Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Sub Form_Load()    Timer1.Interval = 1000    Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()    Dim lngHwnd As Long    lngHwnd = GetForegroundWindow()     '取得前台窗体句柄    Me.Caption = "当前窗口句柄：" & CStr(lngHwnd)End Sub