Private Declare Function P_GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32 '获取窗口标题
Private Delegate Function Dele_GetWindowText(ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32