随笔分类 -  Message

PostMessage,模拟键盘输入
摘要：for i := 0 to length(tel) do begin //SendMessage(cHwnd,WM_KEYDOWN,Integer(tel[i]),0); PostMessage(cHwnd,WM_KEYDOWN,Integer(tel[i]),0); sleep(80); end; 阅读全文
posted @ 2017-07-11 13:39 realhopezj 阅读(2148) 评论(0) 推荐(0)
Postmessage运用-往飞信添加信息
摘要：1.定位窗口 1 fHwnd:=FindWindow(nil,'短信中心'); 2 3 if fHwnd=0 then 4 5 begin showmessage('请先登录飞信2013短信中心'); exit; end; 6 7... 阅读全文
posted @ 2015-01-31 12:39 realhopezj 阅读(264) 评论(0) 推荐(0)