按键精灵开发教程：QUI界面不卡死.docxVIP

按键精灵开发教程：QUI界面不卡死来源：按键学院【按键精灵】Qui界面加载之后卡死？点击控件之后卡死？为什么会出现这种情况？该如何解决？且听小编细细道来~原因QUI界面事件如果添加循环命令，或者延时命令。添加之后，我们再去点击QUI界面，就会出现卡死的现象。QUI界面事件：窗口事件以及控件事件统称为界面事件。界面事件?按键精灵是怎么知道我们点击了哪个控件，鼠标移动到了界面的哪里了呢？其实，我们看似平常的一个操作，例如：移动鼠标到窗口界面上点击输入框。这样的一个操作，其实是被分解成了几百条消息反馈给按键精灵软件，告诉它鼠标现在在哪里，做了什么，点击了控件，然后控件要响应什么操作等等。而这些消息，按键精灵软件会逐条处理，处理完这一条才会继续处理下一条。所以，当它在处理循环事件会延时事件时，没有处理完之前都不处理其它信息。使用循环命令导致界面卡死的解决方法多线程界面上有两个控件，输入框1（InputBox1）和按钮1（Button1）? ?? 当按下按钮1（Button1）时，?启动线程，将延时命令和循环命令放在线程里执行。循环一百次给输入框赋值。代码：Event Form1.Button1.ClickBeginThread循环 //启动线程End EventSub 循环 For i = 1 To 100 Delay 200 Form1.InputBox1.Text = i NextEnd Sub定时器定时器的有效设置为否时间间隔设置为200毫秒（执行一次循环需要的时间）当按下按钮1（Button1）时，将定时器的有效设置为是（ Form1.Timer1.Enabled = True）定时器每隔200毫秒会执行一次 Timer 事件我们在?Timer事件中，定义一个变量i，每执行一次Timer时间i的值叠加1，直到i的值等于我们设置循环次数，则将定时器的有效设置为否。代码：Event Form1.Button1.Click Form1.Timer1.Enabled = TrueEnd EventEvent Form1.Timer1.Timeri = i + 1 If i= 100 then Form1.Timer1.Enabled=False Form1.InputBox1.Text = iEnd EventAPI函数? ?我们已经知道了，界面卡住，是因为在处理循环命令时，产生了其它的消息导致的。那么我们可以这样做，当在执行循环命令时，界面上的其它所有消息都忽略掉，不反馈给按键精灵软件要用到四个Api函数：LocalAlloc、PeekMessageA、TranslateMessage、DispatchMessageA、LocalFree代码：Declare Function PeekMessageA Lib user32.dll Alias PeekMessageA(ByVal消息格式 As Any,ByVal窗口句柄 As Long,ByVal消息最小过滤值 As Long,ByVal消息最大过滤值 As Long,ByVal删除消息 As Long) As LongDeclare Function LocalAlloc Lib kernel32 Alias LocalAlloc (ByValwOemChar As Long,ByValwOmChar As Long) As LongDeclare Function LocalFree Lib kernel32 Alias LocalAlloc (ByValhMem As Long) As LongDeclare Function TranslateMessage Lib user32.dll Alias TranslateMessage(ByVal消息结构 As Any) As LongDeclare Function DispatchMessageA Lib user32.dll Alias DispatchMessageA(ByVal消息结构 As Any) As LongEvent Form1.Button1.ClickFor i=1 to 100 Form1.InputBox1.Text = i call 处理事件NextEnd EventSub 处理事件() WM=LocalAlloc (0,28) //分配一块存储空间用于存放消息 If PeekMessageA(WM, 0, 0, 0, 1) 0 Then //获取当前程序的消息存放在 消息结构里，然后将消息删除，忽略不处理TranslateMessage WM //将空消息转换