自动单击按钮
Delphi中FindWindow,FindWindowEx,SendMessage妙用:
var
?? i,j,k:integer;
begin
????? i:=FindWindow(nil,'與 ●┌噠!ňg 聊天中');??? //查找主窗口
????? j:=FindWindowEx(i,0,'#32770','');
????? k:=FindWindowEx(j,0,'Button','消息模式(&T)');
???? SendMessage(k,BM_CLICK,0,0);?? //模擬單擊此按鈕
???? ShowWindow(k,SW_HIDE);?? //隱藏此按鈕
轉(zhuǎn)載于:https://www.cnblogs.com/tecsoon/archive/2009/03/14/1412117.html
創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯,堅(jiān)持創(chuàng)作打卡瓜分現(xiàn)金大獎總結(jié)
- 上一篇: 智慧旅游系统总体设计方案
- 下一篇: docker 搭建nginx php m