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

hhh333

mdyblog 发表于 2019-12-26 12:51
可以的。秒回。
原来做个。
现在没时间找出来。 得找。

麻烦找一下吧，我不得要领。

红毛樱木

1. ENVI &a=1=
   
2. MSTR * -delims:= &b=<-1>&a
   
3. mess. <%&a%><%&b%>

复制代码

这里的 %&b%不是应该为空么？

mdyblog

红毛樱木 发表于 2019-12-27 17:11
这里的 %&b%不是应该为空么？

PECMD_MSTR.7z https://www.lanzous.com/i8b1zgb

红毛樱木

mdyblog 发表于 2019-12-27 22:45
PECMD_MSTR.7z https://www.lanzous.com/i8b1zgb

MSTR可以了

红毛樱木

红毛樱木 发表于 2019-12-26 15:31
内置的PNG不能正常使用，用BMP才可以。

IMAG控件使用DLL或EXE内置图片资源时,下面这一项也无效:

资源前可加<X:Y:W;H>表示部分子图


------------------------------
显示了整张图片

a5916383

感谢分享，下载来虚拟机跑跑看

红毛樱木

测试.7z (477 Bytes, 下载次数: 0)

2019-12-28 23:25 上传

点击文件名下载附件
下载积分: 无忧币 -2

1.     ENVI &SrcINI=%&CurDir%\A.INI
   
2.     ENVI &SrcINICode=
   
3.     ENVI &SrcINICodeHex=
   
4.     GETF %&SrcINI%,0#3,&SrcINICodeHex
   
5.     FIND $%&SrcINICodeHex%=0xEF 0xBB 0xBF,
   
6.     {*
   
7.         ENVI &SrcINICode=*UTF8
   
8.     }!  
   
9.     {*
   
10.         ENVI &SrcINICodeHex=
    
11.         GETF %&SrcINI%,0#2,&SrcINICodeHex
    
12.         FIND $%&SrcINICodeHex%=0xEF 0xBC,
    
13.         {*
    
14.             ENVI &SrcINICode=*UTF8
    
15.         }!  
    
16.         {   //注意这里没有*
    
17.             IFEX [ '%&SrcINICodeHex%'='0xFF 0xFE' | '%&SrcINICodeHex%'='0x1B 0xFF' ],
    
18.             {*
    
19.                 ENVI &SrcINICode=*UNI
    
20.             }!  
    
21.             {*
    
22.                 IFEX [ '%&SrcINICodeHex%'='0xFE 0xFF' | '%&SrcINICodeHex%'='0xFF 0x1B' ],
    
23.                 {*
    
24.                     ENVI &SrcINICode=*UNIB
    
25.                 }!  
    
26.                 {*
    
27.                     ENVI &SrcINICode=*ANSI
    
28.                 }
    
29.             }
    
30.         }
    
31.     }
    
32.     MESS. <%&SrcINICode%><%&SrcINICodeHex%>

复制代码

有的地方没有*，但是还是会返回变量到上级。FIND和IFEX嵌套的{}本来就是本机变量不用加*么？

mdyblog

红毛樱木 发表于 2019-12-28 23:26
有的地方没有*，但是还是会返回变量到上级。FIND和IFEX嵌套的{}本来就是本机变量不用加*么？

ENVI  &&V=
SET  &V=
才有这个说法。当前 级别上。

ENVI  &V=
SET   V=
没有 级别限制。  有则用之，无则新建（新建的都是在本级）

红毛樱木

mdyblog 发表于 2019-12-28 23:46
ENVI  &&V=
SET  &V=
才有这个说法。当前 级别上。

_SUB
_END
内，不管内部套用多少{}都是直接用的啊，我每次都搞{*}

晕了。

红毛樱木

mdyblog 发表于 2019-12-28 23:46
ENVI  &&V=
SET  &V=
才有这个说法。当前 级别上。

1. CALL ABC &D
   
2. MESS. %&D%
   
3. CALL ABC1 &D
   
4. MESS. %&D%
   
5. _SUB ABC
   
6.     IFEX $1=1,
   
7.     {
   
8.         ENVI-ret %1=2
   
9.     }
   
10. _END
    
11. 
    
12. _SUB ABC1
    
13.     IFEX $1=1,
    
14.     {*
    
15.         ENVI-ret %1=2
    
16.     }
    
17. _END
    

复制代码

老大看下这里，好像规则不一样了。

mdyblog

红毛樱木 发表于 2019-12-29 00:01
老大看下这里，好像规则不一样了。

{*
和{
对
ENVI-ret
有影响。
要用到ENVI-ret，则他的上级都要用 {*,否则没有拆到调用者。

但是， 都用 {*比较难。

一般 给返回的变量先定义一个量， 后随便{，{*
最后，  直接 把这个变量的值  ENVI-ret 出去
_SUB  FFF
   SET &retv=
  {  ...
     {  SET retv=123
     }
  }
  ENVI-ret  %~1=%&retv%
_END
FFF   &&V1
MESS.  %&V1%

红毛樱木

mdyblog 发表于 2019-12-29 00:10
{*
和{
对

哦，这个技巧在那个
PECMD补充说明.doc
文件里好像没有，也加进去吧。

caocaofff

请教一下，如何在窗口内用LABE实现斜线的效果？比如一个45°的线段

mdyblog

caocaofff 发表于 2019-12-29 16:24
请教一下，如何在窗口内用LABE实现斜线的效果？比如一个45°的线段

1. #code=936
   
2. IFEX X.LOG, LOGS * X.LOG
   
3. ENVI^ FORCELOCAL=1
   
4. ENVI^ EnviMode=1
   
5. //ENVI^ ALIAS *opt Rectangle=CALL $**qd#  **ret:* Gdi32.dll,Rectangle,*dummy,
   
6. //ENVI^ ALIAS *opt Ellipse=CALL $**qd#  **ret:* Gdi32.dll,Ellipse,*dummy,
   
7. ENVI^ ALIAS *opt Polyline=CALL $**qd#  **ret:* Gdi32.dll,Polyline,*dummy,
   
8. 
   
9. 
   
10. WIN1
    
11. _SUB WIN1,W260H320,画布演示,
    
12.     Envi @this.Paint=OnPaint     
    
13.     ENVI @this.POS=?&&左名:&&上名:::L0:T0
    
14.     ITEM &ITEM1,L100T250W60H30,OK, MESS  OK
    
15.     SET[        DISCUZ_CODE_3        ]nbsp; &Pt= 0x0064 0x0000     0x00000 0x0000     0x0000 0x0000    0x0064 0x0000   *200 0   //曲线buf   2个点(100,0)--(0,100)
    
16.     //          -----X1-----     ------Y1------     ------X2-----    ------Y2-----
    
17.     //SET-long Pt=100      //x1
    
18.     //SET-long Pt=0:4      //y1
    
19.     //SET-long Pt=0:8      //x2
    
20.     //SET-long Pt=100:12   //y2
    
21.     ENVI-addr  &&PtAdr=&Pt  //返回内存地址，字节长度
    
22. _END
    
23. _SUB OnPaint
    
24.     Polyline %1,%&PtAdr%,2
    
25. _END

复制代码

画布演示-画线.wcs.zip (748 Bytes, 下载次数: 2)

2019-12-29 18:44 上传

点击文件名下载附件
下载积分: 无忧币 -2

红毛樱木

caocaofff 发表于 2019-12-29 16:24
请教一下，如何在窗口内用LABE实现斜线的效果？比如一个45°的线段

示例代码里有个画布演示，搜 画布  两个字就有了，还带动画

caocaofff

mdyblog 发表于 2019-12-29 18:44

很不错的示例，谢谢

红毛樱木

BUG截图。代码私聊你了。M大看下

mdyblog

红毛樱木 发表于 2019-12-30 18:49
BUG截图。代码私聊你了。M大看下

含 空字符的程序路径名 要用引号。

红毛樱木

mdyblog 发表于 2019-12-31 01:33
含 空字符的程序路径名 要用引号。

主要是我记得说明里提到过，看起来连续的就不用加""。
看来还是保险点都加上""吧。

mdyblog

红毛樱木 发表于 2019-12-31 01:36
主要是我记得说明里提到过，看起来连续的就不用加""。
看来还是保险点都加上""吧。

那是对EXE等 2进制文的。


BAT/CMD/JS/.../WCS/INI    等 脚本 ， 都需要系统在解释，
变量解开 传给系统， 就出现空格。
系统就   可能搞错。


我有看了下程序。
还是加上 “”的好。
2进制 ，PECMD虽然知道， 但是还是要交给系统来出来。 系统可能搞错。

红毛樱木

mdyblog 发表于 2019-12-31 01:45
那是对EXE等 2进制文的。

明白了。

红毛樱木

mdyblog 发表于 2019-12-31 01:45
那是对EXE等 2进制文的。

帮助文档里也备注一下吧

红毛樱木

mdyblog 发表于 2019-12-31 01:45
那是对EXE等 2进制文的。

遇到一个情况
EXEC -wd:"**"
改成
EXEC -wd:**
后
不能运行的情况。。。。
这里-wd:"**"的双引号看来也是要的呀？


UsmQemu.7z (2.54 MB, 下载次数: 4)

2019-12-31 13:01 上传

点击文件名下载附件
下载积分: 无忧币 -2

mdyblog

红毛樱木 发表于 2019-12-31 12:54
遇到一个情况
EXEC -wd:"**"
改成

-wd:后面是 PECMD处理的。 不会设计系统字符串处理。

只要形式上没有与空格即可。

而且 ** 是为参数。 只是告诉PECMD， 你自己区算实际的目录吧。

只要形式上没有与空格即可：
纯PECMD处理的部分
（1） LOAD 文件及起其参数  
（2） 函数参数
（3） -wd:后的参数
（4） -exe:后的参数


特别地：
EXEC  -exe:%&CurDir%\S\FF.EXE    %&CurDir%\S\FF.EXE   AA BB CC
这个 %&CurDir%\S\FF.EXE 肯定能起来， 不受空格影响。
-exe:%&CurDir%\S\FF.EXE  其主要作用。而-exe:不受空格影响。

但是， 参数表可能不确定。
%&CurDir%\FF.EXE   AA BB CC
可能解开：
%&CurDir%\FF.EXE   AA BB CC
D:\data\OneDrive - ag.oldsky.sch.id\103.205.6.81\wwwusbruncom\up.usbrun.com\specialtest\FF.EXE   AA BB CC


参数表很可能为：
- ag.oldsky.sch.id\103.205.6.81\wwwusbruncom\up.usbrun.com\specialtest\FF.EXE   AA BB CC


没有-exe:
则整个表达式的第一部分 作为 执行"程序"或脚本。后面为参数表。

mdyblog

红毛樱木 发表于 2019-12-31 12:54
遇到一个情况
EXEC -wd:"**"
改成

EXEC -wd:** -pid:&&QemuPid -waiti -hide "%&CurDir%\qemu.fun" -L . -m 512 -localtime -vga std -snapshot -hda %&&b% -boot c   //不行
----------------------
%&CurDir%\qemu.fun 非标准后缀，系统不知道怎么运行
需要指定 -exe:
EXEC -wd:**  -exe:%&CurDir%\qemu.fun   -pid:&&QemuPid -waiti -hide "%&CurDir%\qemu.fun" -L . -m 512 -localtime -vga std -snapshot -hda %&&b% -boot c

红毛樱木

mdyblog 发表于 2019-12-31 16:03
EXEC -wd:** -pid:&&QemuPid -waiti -hide "%&CurDir%\qemu.fun" -L . -m 512 -localtime -vga std -snap ...

知道了。

红毛樱木

mdyblog 发表于 2019-12-31 16:03
EXEC -wd:** -pid:&&QemuPid -waiti -hide "%&CurDir%\qemu.fun" -L . -m 512 -localtime -vga std -snap ...

不过
-wd:"**"
又能运行起来，诡异。

红毛樱木

mdyblog 发表于 2019-12-31 16:03
EXEC -wd:** -pid:&&QemuPid -waiti -hide "%&CurDir%\qemu.fun" -L . -m 512 -localtime -vga std -snap ...

-exe:%&CurDir%\qemu.fun
这里要不要引号，要不要写成
-exe:"%&CurDir%\qemu.fun"

mdyblog

红毛樱木 发表于 2019-12-31 16:38
-exe:%&CurDir%\qemu.fun
这里要不要引号，要不要写成
-exe:"%&CurDir%\qemu.fun"

-exe:"%&CurDir%\qemu.fun"
-----------------
都可以的。
对于实际的文件名， 一般加上"" （只好）没坏事。

红毛樱木

mdyblog 发表于 2019-12-31 16:03
EXEC -wd:** -pid:&&QemuPid -waiti -hide "%&CurDir%\qemu.fun" -L . -m 512 -localtime -vga std -snap ...

这里
EXEC -wd:**  -exe:%&CurDir%\qemu.fun   -pid:&&QemuPid -waiti -hide "%&CurDir%\qemu.fun" -L . -m 512 -localtime -vga std -snapshot -hda %&&b% -boot c
应该只要一个吧？两个好像不能运行了。
EXEC -wd:**  -exe:"%&CurDir%\qemu.fun"  -pid:&&QemuPid -waiti -hide  -L . -m 512 -localtime -vga std -snapshot -hda %&&b% -boot c