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

ling3882688

mdyblog 发表于 2015-12-20 17:45
什么版本啊！
旧版的话， 需要杀掉对应的PECMD进程。

就一个PECMD进程啊，用最新版本1218也这样。

linkin129

ENVI$ NL=0d 0a
ENVI &J=0
ENVI &A=
ENVI &B=
ENVI &A1=
ENVI &B1=


WIN
_SUB WIN,W502H480
  TABS TABS1,L10T6W476H396,Page1:P1:Page1;Page3:P2:Page3
_END


_SUB Page1,W351H240
    LIST P1LIST,L30T70W257H100,
_END

_SUB Page3,W483H300,
    LABE -left fftip,L43T170W348H18,,,0xFF0000,
    ITEM SFILE,L157T227W80H28,开始搜索,CALL SFILES,
    LIST P3LIST,L40T41W342H100,
_END

_SUB SFILES
   
    TIME FTimer,1000, CALL OnFTimer

    CALL OnFTimer

    THREAD* FIND2FILE

_END

_SUB OnFTimer

    ENVI @fftip=已用时间: %&J%秒

    CALC #&J = %&J% + 1

_END

_SUB FIND2FILE
        
     FINDINI      
_END

_SUB FINDINI
     FORX /s:5 \*.ini,G,0, ENVI &B=%&B%%NL%%G%
     MSTR &B1=3,0,%&B%
     ENVI @FTimer=0
    ENVI @fftip.Visable=0
    ENVI @P3LIST.ADD=%&B1%
    ENVI @P1:P1LIST.ADD=%&B1%
_END


%&B1%怎么传入P1LIST？

mdyblog

linkin129 发表于 2015-12-21 16:59
ENVI$ NL=0d 0a
ENVI &J=0
ENVI &A=

这个有实例。

linkin129

mdyblog 发表于 2015-12-21 17:10
这个有实例。

可以了

linkin129

PECMD 能不能对比图片和颜色的？

wjgyz740526

我想查找所有分区特定文件并列表出来该怎么做？用ifex的话变量只能保存最后一个符合条件的值啊，怎样得到一个完整的列表并显示在表里呢？



FORX /S /O:-N C:\windows\*.INI,f,0,envi &&hDATA=f%&TAB%

ENVI$ &&TAB=09

CALL Page1

_SUB Page1,W280H200,文件列表
LABE hLABE,L18T82W320H18,2.请选择:
ENVI &&hTITLE=+30:序号%&TAB%+210:文件位置%&TAB%
TABL hTABL,L18T20W240H100,%&hTITLE%,%&hDATA%,0x10040
_END



用批处理倒是可以实现，pecmd不会，肯请指教，谢谢

linkin129

wjgyz740526 发表于 2015-12-22 15:06
我想查找所有分区特定文件并列表出来该怎么做？用ifex的话变量只能保存最后一个符合条件的值啊，怎样得到一 ...

ENVI$ &&TAB=09

CALL Page1

_SUB Page1,W347H255,文件列表,
    LIST LIST1,L2T124W320H18,2.请选择:,,,0x100
    ENVI &&hTITLE=+30:序号%&TAB%+210:文件位置%&TAB%
    TABL hTABL,L18T20W240H100,%&hTITLE%,,0x10040
    THREAD* FORX1

_END


_SUB FORX1
   
   
  FORX /S \*.INI,f,0,TEAM ENVI @LIST1.ADD=%f% |ENVI @hTABL.VAL=0*;%&TAB%%f%
     
_END


这样吗？

wjgyz740526

linkin129 发表于 2015-12-22 19:10
ENVI$ &&TAB=09

CALL Page1

谢谢你的回复！我想选择下拉列表某个项退出的时候，弹出消息框提示文字信息怎么做？谢谢


ENVI$ &&NL=0a
ENVI$ &&TAB=01

CALL Page1

_SUB Page1,W280H255,文件列表,
    LABE hLABE,L18T15W150H18,查找到的文件列表:
    LIST LIST1,L18T124W240H18,请选择文件:,TEAM ENVI @V=%LIST1%,请选择文件:,0x100
    ENVI &&hTITLE=*300:文件位置%&TAB%
    TABL hTABL,L18T40W240H65,%&hTITLE%,%&hDATA%,0x121C0
    THREAD* FORX1
_END

_SUB FORX1
  FORX /S \*.inf,f,0,TEAM ENVI @list1.ADD=%f% |ENVI @hTABL.VAL=0*;%&TAB%%f%   
_END


MESS LIST1=%V% @DEBUG#OK


这样并不显示被选择的项啊

linkin129

wjgyz740526 发表于 2015-12-23 15:43
谢谢你的回复！我想选择下拉列表某个项退出的时候，弹出消息框提示文字信息怎么做？谢谢

ENVI$ &&NL=0a
ENVI$ &&TAB=01
SET  ::WM_LBUTTONDOWN=0x0201 //单击

CALL Page1

_SUB Page1,W280H255,文件列表,
    LABE hLABE,L18T15W150H18,查找到的文件列表:,,
    LIST LIST1,L18T124W240H18,请选择文件:,CALL SEL,,0x10100
    ENVI &&hTITLE=*300:文件位置%&TAB%
    TABL hTABL,L18T40W240H65,%&hTITLE%,%&hDATA%,0x121C0
    THREAD* FORX1

_END

_SUB FORX1
  ENVI @LIST1.VAL=
  FORX /S:2 \*.inf,f,0,TEAM ENVI @list1.ADD=%f% |ENVI @hTABL.VAL=0*;%&TAB%%f%  
  ENVI @LIST1.isel=1
_END


_SUB SEL

MESS %LIST1% @DEBUG#OK

_END

这样？

linkin129

SET  ::WM_RBUTTONDOWN=0x0204

MYWINDOW1
_SUB MYWINDOW1,W553H397,PECMD2012功能演示,
    EDIT EDIT1,L39T22W297H30,,,
    ENVI &ATAB=+250:路径
    ITEM ITEM1,L363T21W60H30,ITEM1,CALL BROWTag,
    TABL TABL1,L64T83W375H127,%&ATAB%,,0x1c0
    ENVI @TABL1.MSG=_%&WM_RBUTTONDOWN%: CALL DELTAB
    LABE RBUTTON,L103T240W310H15,,,
    ENVI @RBUTTON.Visable=0
_END

_SUB BROWTag
BROW Tag,*C:\Windows,请选择一个目录
ENVI @EDIT1=%Tag%
ENVI @TABL1.VAL=0*;%Tag%
_END

_SUB DEL
    FILE -force %1
    ENVI @FILEClearOnTimer=0
    ENVI @RBUTTON.Visable=0
_END

_SUB DELTAB
     ENVI &&DELFILE=
     ENVI &K=0
     ENVI @TABL1.Sel=?&&Sel
     ENVI @TABL1.Val=?%&Sel%.1;&DELFILE
     ENVI @RBUTTON.Visable=1
     TIME FILEClearTimer,1000, CALL FILEClearOnTimer
     CALL FILEClearOnTimer
     THREAD* DEL %&DELFILE%
     ENVI @TABL1.Val=-%&Sel%
_END

_SUB FILEClearOnTimer

   ENVI @RBUTTON=正在卸载镜像，请稍候...  已用时间: %&K%秒
   CALC &K= %&K% + 1

_END

老大，这个右键表格删除大些目录，好卡没响应

wjgyz740526

linkin129 发表于 2015-12-23 16:41
ENVI$ &&NL=0a
ENVI$ &&TAB=01
SET  ::WM_LBUTTONDOWN=0x0201 //单击

谢谢谢谢！！！！

mdyblog

linkin129 发表于 2015-12-23 16:54
SET  ::WM_RBUTTONDOWN=0x0204

MYWINDOW1

和程序无关吧。
是系统在卡，此时所有的程序都卡。  如果是台式机， 会看到硬盘灯狂闪。

linkin129

mdyblog 发表于 2015-12-23 17:34
和程序无关吧。
是系统在卡，此时所有的程序都卡。  如果是台式机， 会看到硬盘灯狂闪。

linkin129

右键表格弹出菜单怎么写？

mdyblog

linkin129 发表于 2015-12-23 18:41
右键表格弹出菜单怎么写？

CALL @--popmenu   <菜单名>
有实例。

wjgyz740526

这个帖子层数太高，找东西超级不便，有个层数和内容的帮助文档就好了

linkin129

怎么判断是否主分区？

mdyblog

linkin129 发表于 2015-12-25 18:42
怎么判断是否主分区？

PART 命令。

1) MBR
2) 物理号: 1,2,3,4
3) 类型： 不是空分区（0x00）， 不是 扩展分区（0x05  0x0F）

linkin129

MYWINDOW1
_SUB MYWINDOW1,W415H324,PECMD2012功能演示,
    EDIT EDIT1,L138T57W60H30,,,
    ITEM ITEM2,L138T155W60H30,开始,CALL 开始,
    ITEM ITEM1,L218T157W60H30,停止,CALL 停止,
_END

_SUB 开始
       ENVI J=0
       TIME Timer,200,CALL OnTimer
       CALL OnTimer   
_END

_SUB 停止
   
    ENVI @Timer=0
   
_END

_SUB OnTimer

     ENVI @EDIT1=%J%秒

     CALC J= %J% + 0.2#1

_END
第一次能停止，之后就停止不了，时间越走越快

mdyblog

linkin129 发表于 2015-12-26 20:34
MYWINDOW1
_SUB MYWINDOW1,W415H324,PECMD2012功能演示,
    EDIT EDIT1,L138T57W60H30,,,

定时器的创建一般在窗口。
你这样， 每次创建一个。引起混乱。

1. MYWINDOW1
   
2. _SUB MYWINDOW1,W415H324,PECMD2012功能演示,
   
3.     EDIT -3D -VCENTER -CENTER EDIT1,L138T57W60H30,,,
   
4.     ITEM ITEM2,L138T155W60H30,开始,CALL 开始,
   
5.     ITEM ITEM1,L218T157W60H30,停止,CALL 停止,
   
6.     TIME -t:0 Timer,200,CALL OnTimer
   
7.     ENVI J=0
   
8. _END
   
9. 
   
10. _SUB 开始
    
11.     ENVI J=0
    
12.     ENVI @Timer=200   
    
13. _END
    
14. 
    
15. _SUB 停止
    
16.     ENVI @Timer=0
    
17. _END
    
18. 
    
19. _SUB OnTimer
    
20.     ENVI @EDIT1=%J%秒
    
21.     CALC J= %J% + 0.2##1
    
22. _END

复制代码

linkin129

mdyblog 发表于 2015-12-27 07:13
定时器的创建一般在窗口。
你这样， 每次创建一个。引起混乱。

我看别人写的，有时会创建在子程序里的

mdyblog

linkin129 发表于 2015-12-27 09:42
我看别人写的，有时会创建在子程序里的

那样 会出幺蛾子 的。

linkin129

表格-随机选择多个行，取内容
只有一列的

怎么写？

mdyblog

linkin129 发表于 2015-12-28 15:31
表格-随机选择多个行，取内容
只有一列的

循环 一行一行地取。

linkin129

mdyblog 发表于 2015-12-28 17:19
循环 一行一行地取。

是不是先取所选择的行号？再一行行取内容？
那我取的行号是1 3 7 9 MESS 看是连续的，怎么分开一个一个数？

mdyblog

linkin129 发表于 2015-12-28 17:55
是不是先取所选择的行号？再一行行取内容？
那我取的行号是1 3 7 9 MESS 看是连续的，怎么分开一个一 ...

ENVI LNS=1 2 7 9
FORX * %LNS%,LN,
{
  MESS %LN%
}

linkin129

mdyblog 发表于 2015-12-28 18:55
ENVI LNS=1 2 7 9
FORX * %LNS%,LN,
{

好的，谢谢了

红毛樱木

老大，我那个盘符问题没希望了么。。。


23号的 73new


LOG.zip (4.18 KB, 下载次数: 1)

2015-12-29 18:47 上传

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

mdyblog

红毛樱木 发表于 2015-12-29 18:47
老大，我那个盘符问题没希望了么。。。

你给我一个做好的演示（调试）问题的PE吧。

红毛樱木

mdyblog 发表于 2015-12-30 05:06
你给我一个做好的演示（调试）问题的PE吧。

上次测试f模式没有盘符的03pe就行。要是没有了我再传