无忧启动论坛

 找回密码
 注册
搜索
一次装机 终生领工资最纯净的「微PE装机优盘」UEPON大师作品★IDC大全★服务器租赁、托管★优惠促销★
可防勒索的强大数据备份恢复软件卡瑞飞系统和装机二合一超级U盘广告联系 QQ:184822951 微信:wuyouceo
楼主: mdyblog

[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

    [复制链接]
发表于 2019-1-6 11:18:42 | 显示全部楼层
  1. IFEX %CurFile%.LOG, LOGS --2 *   %CurFile%.LOG
  2. ENVI^  ForceLocal=1
  3. SET  ::WM_SETTEXT=0x000C
  4. SET  ::WM_GETTEXT=0x000D
  5. SET  ::WM_GETTEXTLENGTH=0x000E

  6. WIN1

  7. _SUB WIN1,W287H286,进程间传递字符串演示,
  8.     //ENVI @this.Visible=0
  9.     ENVI @this.trans=1
  10.     LABE -trans LABE1,L15T53W260H30,LABE1,,
  11.     LABE -trans LABE2,L15T93W260H30,LABE2,,  //接受方:接受消息的窗口,可以隐藏
  12.     EDIT -vcenter EDIT1,L183T180W60H30,EDIT1,,  //发送方:接受消息的窗口句柄HWND

  13.     ENVI @LABE1.ID=?WIDL1
  14.     ENVI @LABE1=%WIDL1%
  15.     ENVI @EDIT1=%WIDL1%
  16.     ENVI @LABE1.MSG=_%&WM_SETTEXT%: OnSETTEXTL1 MESS [%LABE1%]
  17.     ENVI @LABE1.MSG=#1: OnSETTEXTL2 MESS [%LABE1%]
  18.     ITEM ITEM1,L106T182W60H30,发送,OnSEND,
  19. _END
  20. _SUB OnSETTEXTL1
  21.     SET &V2=
  22.     GetWindowText  %WIDL1%  &V2
  23.     ENVI @LABE2=%&V2%
  24.     //MESS [%&V2%]
  25. _END

  26. //函数:  GetWindowText  窗口ID   文本变量名
  27. _SUB GetWindowText
  28.     //ENVI @@POS=%1:::::::1:1 //激活
  29.     ENVI @@SENDMSG=:&&___LEN__;%1;%WM_GETTEXTLENGTH%;0;0 //长度
  30.     CALC #&___LEN__=%&___LEN__% + 100
  31.     ENVI$ %2=*%&___LEN__%  0   //申请内存/缓冲区
  32.     ENVI @@SENDMSG=%1;%WM_GETTEXT%;%&___LEN__%;@%2
  33. _END

  34. _SUB OnSEND
  35.     ENVI @@SENDMSG=%EDIT1%;%WM_SETTEXT%;0;$hello World %RANDOM%
  36. _END
  37. //测试
  38. //PECMD ENVI @@SENDMSG=0x700D2;0x000C;0;$hello World %RANDOM%


复制代码


发送 之后,LABE1的trans属性消失
回复 支持 反对

使用道具 举报

发表于 3 天前 | 显示全部楼层
有源码否?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持本站|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2019-1-21 12:07

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表