Option Explicit ' 声明Windows API函数 Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hMod As Long, ByVal dwThreadId As Lo
'在窗体中画三个控件(Text1、Command1、List1),属性为默认,加入以下代码: Option Explicit Private Sub FindThe(List As ListBox, Txt As String, N As Boolean) Static Sstxt() As String, S(2) As Integer, Lt As Boolean If N Then If L