Private Sub Post( )
Dim hwnd As Long '活动窗体的句柄
Dim lngThrdID As Long '活动窗体的线程ID
Dim lngTxtLen As Long '获取的文本长度
Dim n As Long
Dim strclsName As String * 30 '窗口的类名称
Dim buf As String
hwnd = GetForegroundWindow() '获得活动窗体的句柄
If hwnd = Me.hwnd Or hwnd = 0 Then Exit Sub '如果是自己则退出