1.定位窗口

  fHwnd:=FindWindow(nil,'短信中心');  

    if fHwnd= then     

     begin      showmessage('请先登录飞信2013短信中心');      exit;      end;  

   { application.CreateForm(Tpanel,fHwnd);

     panel3:= Tpanel.Create(application);   

    panel3.ParentWindow:=panel2.ParentWindow;   

      panel3.Dock(panel2,Boundsrect);     2013-3-23      }

    if fHwnd> then  SendMessage(fHwnd,WM_SYSCOMMAND,SC_RESTORE,);// 窗口最大化

     Feition(g_tel,Memo1.text);

2.发送(Postmessage的运用)

 //author:吴chyuan 2013.1.

 procedure Feition(tel:string;fetionmsg:string);

 var

  i:integer;

  pj:string;

  fHwnd:THandle; 

  cHwnd3,cHwnd2,cHwnd1,cHwnd:HWND;

  begin 

    pj:=fetionmsg; fHwnd:=FindWindow(nil,'短信中心');    

    if fHwnd= then     

       begin      showmessage('请先登录飞信2013短信中心');      exit;      end;

    if fHwnd> then       begin   

     Postmessage(FindWindow(nil,'开班管理系统'),WM_DATA,,);{2-通知主窗体调整TOP}  

     // SendMessage(fHwnd,WM_SYSCOMMAND,SC_MAXIMIZE,); //最大化  SC_MAXIMIZE    SC_MINIMIZE      //PostMessage(fHwnd,WM_SYSCOMMAND, SC_CLOSE,);      

    cHwnd:=FindWindowEx(fHwnd,,'FxRichEdit',nil);      

    if cHwnd> then         

        begin 

        sendmessage(cHwnd,messages.WM_LBUTTONDOWN ,,$0180017A); {按下鼠标左键}               

       sendmessage(cHwnd,messages.WM_LBUTTONUP  ,, $0180017A);

       {抬起鼠标左键}          

      SendMessage(cHwnd,WM_SETTEXT,,);  {清空电话框}        

    for i :=  to length(tel) do  

     SendMessage(cHwnd,WM_CHAR,Integer(tel[i]),);                 

 //  SendMessage(cHwnd,WM_CHAR,Integer(#),);  {回车}       

    SendMessage(chWnd, WM_KEYDOWN, VK_RETURN, );     

      SendMessage(chWnd, WM_KEYUP, VK_RETURN, );  

        end;

       cHwnd1:=FindWindowEx(fHwnd,cHwnd,'FxRichEdit',nil);      

      cHwnd2:=FindWindowEx(fHwnd,cHwnd1,'FxRichEdit',nil);  

       cHwnd3:=FindWindowEx(fHwnd,cHwnd2,'FxRichEdit',nil);  

      if cHwnd1> then         

      begin        

         // showmessage('请先在上面的电话点击鼠标左键确定,再点ok');          

           //MycloseWin; {2013-3-23去掉,可以不要点电话自动加信息}          

              SendMessage(cHwnd3,WM_SETTEXT,,); {清空信息框}         

                for i :=  to length(pj) do            

                BEGIN

               SendMessage(cHwnd3,WM_CHAR,Integer(pj[i]),);             

              END;           

               end;

     end;

 end;

Postmessage运用-往飞信添加信息的更多相关文章

  1. cmd中mysql主键id自增,在添加信息时发生错误,再次成功添加时,id已经跳过错误的信息继续自增。

    id 自增,在往这个表里添加信息时 发生错误,再次添加 id数值已经跳过之前

  2. 百度地图API 海量点 自定义添加信息

    <!--添加百度地图--> <script type="text/javascript" src="http://api.map.baidu.com/a ...

  3. 从C#中通过Windows窗体添加信息到数据库 (添加学生信息)

    如上图所示界面,当我们点击保存按钮时将会将表格中的数据保存到数据库中去,与数据库进行一个交互 第一步我们就是要获取到表格中的数据 string pwd = textpwd.Text; //获得第一次输 ...

  4. ajax中向HTML页面中指定位置添加信息

    $.ajax({  type : "POST",  beforeSend : function() {   showLoader("数据加载中...");// ...

  5. 向html某个元素中添加信息

    <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <meta http ...

  6. django 模板层排序 class Meta 添加信息

    class weeks(models.Model): #星期信息 stu = models.ForeignKey(students,on_delete=models.CASCADE) weeklist ...

  7. SpringMVC错误,商品添加信息HTTP Status 400 – Bad Request

    记录一个自己在做商品信息显示与传递数据的时候出现的错误, HTTP Status 400 – Bad Request Type Status Report Description The server ...

  8. mybatis添加信息自动生成主键

    一.使用Oracle数据库 举例:添加员工的时候自动生成主键 1.在dao接口中声明方法 2.在mapper中实现该方法 需要先在数据表中创建序列 3.测试 注意:在调用过save方法之后,emp对象 ...

  9. Linux -- 在文件中添加信息的方法(转)

    转自:https://www.cnblogs.com/ZGreMount/p/7645542.html 创建test 文件: touch test.txt 方法一:echo 命令法: echo &qu ...

随机推荐

  1. [HDU1020] Encoding - 加密

    Problem Description Given a string containing only 'A' - 'Z', we could encode it using the following ...

  2. nodeJS之事件events

    前面的话 events模块是node的核心模块,几乎所有常用的node模块都继承了events模块,比如http.fs等.本文将详细介绍nodeJS中的事件机制 EventEmitter 多数 Nod ...

  3. html 获取宽高

    jquery获取元素宽高的方法如下 1.元素自身高度 $("#div").height(); 2.元素自身高度 + padding $("#div").inne ...

  4. 安装并配置Apache

    从今天开始,我将开始Web开发的学习.本系列博客将陆续记录我学习过程中的收获和困惑,从前端到后端,一探Web开发的流程和内容.我目前掌握的有C/C++,有一些使用C进行嵌入式开发的经验,C++就马马虎 ...

  5. implements ApplicationContextAware 获取spring 容器

    1.新建 ApplicationContextUtil 类 ,通过实现 ApplicationContextAware 的 setApplicationContext 方法,得到context上下文: ...

  6. centos yum 没有可用软件包 nginx。

    新装的centos7中没有nginx的镜像源 因为nginx位于第三方的yum源里面,而不在centos官方yum源里面 解决方案: 安装epel: 去epel官网: http://fedorapro ...

  7. java http请求,字节流获取百度数据

    请求的地址为: http://api.map.baidu.com/place/v2/search?&q=%E9%A5%AD%E5%BA%97&region=%E9%87%8D%E5%B ...

  8. 初学MySQL

    MySQL是一个关系型数据库管理系统,由瑞典MySQL AB 公司开发,目前属于 Oracle 旗下产品.   Mysql默认端口号: 3306 超级用户:root   prompt 修改提示符. ( ...

  9. 1、AngularJS 验证

    1.formName.inputFieldName.property($pristine(未修改).$dirty(修改过的).$valid(合法).$invalid(非法).$error(当前表单所有 ...

  10. Entity Framework入门教程:什么是Entity Framework

    Entity Framework简介 Entity Framework是微软提供的一个O/RM(对象关系映射)框架.它基于ADO.NET,为开发人员提供了一种自动化的机制来访问和存储数据库中的数据. ...