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

hhh333

试了一下，tips似乎无问题了，但截图还要改进：
1、加？加*自动编号功能还没实现；
2、内置脚本截图默认位置应该为桌面而不要到system32中去找；觉得这个脚本不必内置，以方便外置修改，很精炼的、难修改的、必须的一些功能才内置。

2012qnmd

延时,最好默认 1或者2, 这样,俘获前自动 隐藏

如果能:自动编号 更好!

目前,截图目录默认在PECMD 或者WCS目录.  如果默认当前用户桌面更好. 我是WCS放桌面解决(这样也很好,方便自定义,WCS在哪,就放哪)

chiannet

mdyblog 发表于 2015-9-15 00:12
REGI  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion,&&V
LABE -trans Labe3,L0T10W32 ...

1201.88.5.67 这段代码返回的结果%k%为什么不是预期“D”？

mdyblog

2012qnmd 发表于 2015-9-25 06:25
延时,最好默认 1或者2, 这样,俘获前自动 隐藏

如果能:自动编号 更好!

延时,最好默认 1或者2, 俘获前自动 隐藏
----------
没有延时，也会  “ 俘获前自动 隐藏”， 只是非常短暂。

chiannet

mdyblog 发表于 2015-9-25 08:46
延时,最好默认 1或者2, 俘获前自动 隐藏
----------
没有延时，也会  “ 俘获前自动 隐藏”， 只是非 ...

M大，请看看
http://bbs.wuyou.net/forum.php?m ... &fromuid=282390

2012qnmd

mdyblog 发表于 2015-9-25 08:46
延时,最好默认 1或者2, 俘获前自动 隐藏
----------
没有延时，也会  “ 俘获前自动 隐藏”， 只是非 ...

不行啊! 会连同软件界面一起给截了

2 就不会

mdyblog

2012qnmd 发表于 2015-9-25 09:10
不行啊! 会连同软件界面一起给截了

2 就不会

1：什么系统？

2： 输入0.01试试

mdyblog

chiannet 发表于 2015-9-25 08:45
1201.88.5.67 这段代码返回的结果%k%为什么不是预期“D”？

我没有这么大的D:，改小点测试，正常；

1. //ENVI SIZE=225643794432
   
2. ENVI SIZE=225
   
3. CALC SIZE=%SIZE% + 1
   
4. IFEX D:\>%SIZE%,
   
5. {   ENVI K=D
   
6. }!
   
7. {  FORX * Z W ,K,IFEX %K%,! EXIT
   
8. }
   
9. MESS K[%K%]  SIZE[%SIZE%]
   

复制代码

hhh333

将抓图的脚本改成了这个样子：

1. ENVI^  ForceLocal=1
   
2. LOGS * X.LOG
   
3. SET &capd=%DeskTop%
   
4. SET &fn=屏幕捕获
   
5. SET &wid=0
   
6. set &ext=PNG
   
7. CALL @WIN1
   
8. 
   
9. _SUB WIN1,W449H220,截图,
   
10.     LABE LABE1,L10T42W60H20,延时(秒):,,
    
11.     EDIT Delay,L72T40W40H20,0,,
    
12.     SPIN SPIN1,L114T39W18H22,:1:99,,0x80,0x80
    
13.     LABE LABE2,L170T42W40H20,对象:,,
    
14.     EDIT wWid,L212T40W30H20,%wid%,,
    
15.     LABE LABE3,L280T42W60H20,保存类型:,,
    
16.     LIST lEXT,L342T40W60H20,PNG|BMP|JPG|GIF|TIFF,ENVI @wFN=%&capd%\%fn%.%lEXT%,%ext%
    
17.     LABE -VCENTER LABE4,L10T90W90H30,保存位置及文件,,
    
18.     EDIT -VCENTER -3D wFN,L105T90W300H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    
19.     ITEM ITEM2,L410T89W21H30,>>,OnBrow,
    
20.     ITEM ITEM1,L191T141W60H30,抓图, OnDo,
    
21. _END
    
22. 
    
23. _SUB OnBrow
    
24.     BROW &&capdir,*%capd%,选择一个文件夹
    
25.     FIND $%capdir%=, EXIT
    
26.     TEAM ENVI &capd=%capdir%|ENVI @wFN=%&capd%\%fn%.%ext%
    
27. _END
    
28. 
    
29. _SUB OnDo
    
30.     SET &wid=%wWid%
    
31.     SET &afn=%wFN%
    
32.     FIND $%afn%=, EXIT
    
33.     ENVI @this.visable=0
    
34.     CALC &&ms=%Delay%
    
35.     CALC &ms=%&ms% * 1000#0
    
36.     IFEX $%ms%<0, SET ms=0
    
37.     CALC #&ms=%&ms% + 10
    
38.     WAIT %&ms%
    
39.     SCRN -cap %afn%,%wid%
    
40.     WAIT 10
    
41.     ENVI @this.visable=1
    
42. _END
    

复制代码

只选择保存位置，文件名自己输入、默认桌面、类型自选

2012qnmd

mdyblog 发表于 2015-9-25 10:07
1：什么系统？

2： 输入0.01试试

03
0.01不行

hhh333

位置调整一下：

1. ENVI^  ForceLocal=1
   
2. LOGS * X.LOG
   
3. SET &capd=%DeskTop%
   
4. SET &fn=屏幕捕获
   
5. SET &wid=0
   
6. set &ext=PNG
   
7. CALL @WIN1
   
8. 
   
9. _SUB WIN1,W449H220,截图,
   
10.     LABE LABE1,L10T42W60H20,延时(秒):,,
    
11.     EDIT Delay,L72T40W40H20,0,,
    
12.     SPIN SPIN1,L114T39W18H22,:1:99,,0x80,0x80
    
13.     LABE LABE2,L160T42W60H20,捕捉对象:,,
    
14.     EDIT wWid,L222T40W80H20,%wid%,,
    
15.     LABE LABE3,L310T42W60H20,保存类型:,,
    
16.     LIST lEXT,L372T40W50H20,PNG|BMP|JPG|GIF|TIFF,ENVI @wFN=%&capd%\%fn%.%lEXT%,%ext%
    
17.     LABE -VCENTER LABE4,L10T90W90H30,保存位置及文件,,
    
18.     EDIT -VCENTER -3D wFN,L105T90W300H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    
19.     ITEM ITEM2,L410T89W21H30,>>,OnBrow,
    
20.     ITEM ITEM1,L191T141W60H30,抓图, OnDo,
    
21. _END
    
22. 
    
23. _SUB OnBrow
    
24.     BROW &&capdir,*%capd%,选择一个文件夹
    
25.     FIND $%capdir%=, EXIT
    
26.     TEAM ENVI &capd=%capdir%|ENVI @wFN=%&capd%\%fn%.%ext%
    
27. _END
    
28. 
    
29. _SUB OnDo
    
30.     SET &wid=%wWid%
    
31.     SET &afn=%wFN%
    
32.     FIND $%afn%=, EXIT
    
33.     ENVI @this.visable=0
    
34.     CALC &&ms=%Delay%
    
35.     CALC &ms=%&ms% * 1000#0
    
36.     IFEX $%ms%<0, SET ms=0
    
37.     CALC #&ms=%&ms% + 10
    
38.     WAIT %&ms%
    
39.     SCRN -cap %afn%,%wid%
    
40.     WAIT 10
    
41.     ENVI @this.visable=1
    
42. _END
    

复制代码

mdyblog

hhh333 发表于 2015-9-25 10:16
将抓图的脚本改成了这个样子：

这个好。

mdyblog

2012qnmd 发表于 2015-9-25 10:25
03
0.01不行

知道了， 有的系统有美化， 中间有个消隐的过程。
最少0.2秒。
那就自动增加0.3秒吧。

看看0.1秒的半透明效果：

2012qnmd

改下尺寸,文件名全显示出来.原来的短
_SUB WIN1,W580H220,截图,
    LABE LABE1,L10T42W60H20,延时(秒):,,
    EDIT Delay,L72T40W40H20,0,,
    SPIN SPIN1,L120T20W18H60,:2:99,,0x80,0x80
    LABE LABE2,L170T42W40H20,对象:,,
    EDIT wWid,L212T40W100H20,%wid%,,
    LABE LABE3,L380T42W60H20,保存类型:,,
    LIST lEXT,L445T40W60H20,PNG|BMP|JPG|GIF|TIFF,ENVI @wFN=%&capd%\%fn%.%lEXT%,%ext%
    LABE -VCENTER LABE4,L10T90W90H30,保存位置及文件,,
    EDIT -VCENTER -3D wFN,L105T90W400H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    ITEM ITEM2,L520T89W30H30,>>,OnBrow,
    ITEM ITEM1,L250T141W60H30,抓图, OnDo,
_END

chiannet

mdyblog 发表于 2015-9-25 10:15
我没有这么大的D:，改小点测试，正常；

搞明白了！IFEX X:\>n及Find X:\>n，是以MB为单位作比较的，而不是字节。




IFEX说明
※磁盘可用空间  R:\<比较符>数值，R:表示盘符。 （单位：MB）


FIND说明
※磁盘总空间  R:\<比较符>数值，R:表示盘符。 （单位：MB）

建议添上红色字体部分，就不会歧义了。

mdyblog

hhh333 发表于 2015-9-25 10:31
位置调整一下：

接着加强了， 加上了自动编号:递加， 时间
snapsot.wcs.zip (1.48 KB, 下载次数: 5)

2015-9-25 13:21 上传

点击文件名下载附件

效果：

mdyblog

chiannet 发表于 2015-9-25 10:59
搞明白了！IFEX X:\>n及Find X:\>n，是以MB为单位作比较的，而不是字节。

EDIT不支持颜色。

2012qnmd

mdyblog 发表于 2015-9-25 11:28
接着加强了， 加上了自动编号:递加， 时间

效果：

再修改尺寸,适合平板电脑.
圆满了!

_SUB WIN1,W535H220,截图,
    LABE -VCENTER -RIGHT LABE1,L10T38W60H24,延时(秒):,,
    EDIT -VCENTER -3D -RIGHT Delay,L72T38W40H24,0,,
    SPIN SPIN1,L114T39W18H22,:0:100,,0x80,0x80
    LABE -VCENTER -RIGHT LABE2,L143T38W40H24,对象:,,
    EDIT -VCENTER -3D wWid,L185T38W45H24,%wid%,,
    LABE -VCENTER -RIGHT LABE3,L250T38W58H24,保存类型:,,
    LIST lEXT,L315T40W55H20,PNG|BMP|JPG|GIF|TIFF,OnEXT,%ext%,
    LABE -VCENTER LABE4,L10T90W90H30,保存位置及文件,,
    EDIT -VCENTER -3D wFN,L105T90W380H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    ITEM ITEM2,L490T89W25H30,>>,OnBrow,
    ITEM ITEM1,L220T130W80H50,抓图, OnCap,
    ENVI @wFN.MSG=0x02A1: Mouse_In 文件名模板,####为自动编号\n$H $M $D $H $N $S 依次为年月日时分秒
    ENVI @wFN.MSG=0x02A3: TIPS *
    LABE -VCENTER -RIGHT LABE5,L375T38W50H24,编号:,,
    EDIT -VCENTER -3D -RIGHT wFID,L430T38W40H24,,%fid%,
    SPIN SPINFID,L472T39W18H22,:0:100:%fid%,,0x80,0x80
_END

huaqingyuan

请教，关于网路通讯.wcs，默认的协议是TCP。按照说明，我修改为UDP。收不到信息。修改地方主要为以下位置

    SOCK sk;;;17   //监听
    SOCK sr;;;17  //接收
    SOCK sc;;;17   //发送

    ENVI @sc.sock=&&err;;;17

总之我觉得需要修改的地方都修改了，但是TUP还是不能通讯。

网路通讯.wcs：
LOGS *E:\X.LOG
ENVI$ NL=0d 0a
ENVI  &::SO_REUSEADDR=4     //允许重新监视地址
CALL @WIN1

_SUB WIN1,W494H442,新窗口1,CALL OnQuit,
    SOCK sk   //监听
    SOCK sr  //接收
    SOCK sc   //发送
    EDIT &TOIP,L112T18W86H32,127.0.0.1,,
    EDIT &TOPORT,L212T18W60H30,6001,,
    EDIT &MYIP,L109T178W88H30,0.0.0.0,,
    EDIT &MYPORT,L212T180W58H30,6001,,
    MEMO &RMSG,L57T55W381H94,,,0x40
    MEMO &SMSG,L64T218W366H132,HELLO%NL%,,
    ITEM &ITEM8,L208T368W60H30,发送,CALL OnSend,
    ENVI &&OldMYIP=%&MYIP%
    ENVI &&OldMYPORT=%&MYPORT%
    ENVI &&OldTOIP=
    ENVI &&OldTOPORT=
    ENVI &&bListen=0
    ENVI$ &&BRMSG=*4096 0 //接收缓冲取
    ENVI @this.MSG=#1: CALL OnRecv
    ENVI @this.MSG=#2: CALL OnServer
    //CALL OnServer
    ITEM &BUTLISTEN,L375T182W60H30,监听,CALL OnListen,
    EDIT &MYIP2,L276T181W88H30,,,
    EDIT &TOIP2,L275T20W86H30,,,
    LABE LABE4,L58T19W43H30,对方：,,
    LABE LABE5,L59T178W44H30,本方：,,
_END
_SUB OnRecv
    ENVI @&RMSG=%&RMSG%%&BRMSG%
_END

_SUB OnQuit
    ENVI &bListen=-1
    ENVI @sk.close=
    ENVI @sr.close=
    ENVI @sc.close=
_END

_SUB OnListen
    IFEX $ 0 > %&bListen%, EXIT _SUB  
    FIND $ 0 = %&bListen%, TEAM CALL OnServer| EXIT _SUB
    TEAM ENVI &bListen=0| ENVI @sk.close=| ENVI @sr.close= //连接断开，会自动连上。
    //ENVI @&BUTLISTEN.Enable=0  //禁止
_END
_SUB OnServer
    IFEX $ 0 > %&bListen%, EXIT _SUB  
    ENVI @sk.sock=&&err
    ENVI#$ &&v=1   
    ENVI @sk.setsockopt=&&err;;%&SO_REUSEADDR%,&v  //允许重新监视地址
    ENVI &OldMYIP=%&MYIP%
    ENVI &OldMYPORT=%&MYPORT%
    ENVI @sk.bind=&&err;%&MYIP%;%&MYPORT%
    ENVI @sk.listen=&&err;1
    ENVI @WIN1=%&OldMYPORT%/%&OldMYIP%
    ENVI &bListen=1
    ENVI @&BUTLISTEN=监听中
    THREAD* CALL  Server
_END

_SUB OnCLient
    ENVI @sc.shutdown= //友好关闭
    WAIT 30
//    MESS ---wait 111
    ENVI @sc.sock=&&err
    ENVI @sc.connect=&&err;%&TOIP%;%&TOPORT%
    ENVI &OldTOIP=%&TOIP%
    ENVI &OldTOPORT=%&TOPORT%
_END

_SUB OnSend
    //ENVI  &&bOld=0
    //FIND $%&OldTOIP% = %TOIP%,!!  FIND $%&OldTOPORT% = %TOPORT%,!! ENVI  &&bOld=1
    //FIND $  0 = %bOld%,   CALL  OnCLient
    CALL  OnCLient
    ENVI &&Len=0
    ENVI &&MSG=%&SMSG%
    ENVI @sc.write=&&err;&Len;&MSG
_END

_SUB Server
    LOOP # %&bListen% = 1,
    {
    ENVI &=&bListen=%&bListen%
        ENVI @sk.fd=&&fd
        ENVI &&err=0
        ENVI &&Len=0
        //MESS -- accept
        ENVI @sr.accept=&&err;%&&fd%
        ENVI @sr.getname=;0;&&ip1  //本地实际IP
        ENVI @&MYIP2=%&ip1%  
        ENVI @sr.getname=;1;&&ip2  //对方实际IP
        ENVI @&TOIP2=%&ip2%  
        ENVI &&OK=1
        LOOP $ 11 = %&bListen%%&OK%,
        {
            ENVI &err=0
            ENVI @sr.read=&err;&Len;&BRMSG
            IFEX $ %&Len% > 0,  ENVI @WIN1.SENDMSG=#1 //OnRecv
            IFEX $ %&Len% <= 0, ENVI &OK=0
            WAIT 1
            //MESS --  &Len[ %&Len%]   &bListen[%&bListen%]  &OK[%&OK%] &err[%&err%]
        }
        WAIT 2
    }
    ENVI @&BUTLISTEN=监听
    //MESS  监听结束
    //  IFEX $ %&bListen% = 0,  ENVI @WIN1.SENDMSG=#2 //OnServer
_END


   

mdyblog

huaqingyuan 发表于 2015-9-25 12:23
请教，关于网路通讯.wcs，默认的协议是TCP。按照说明，我修改为UDP。收不到信息。修改地方主要为以下位置
...

UDP 无连接。 不需要listen 和accept。
建好就可以收发。

mdyblog

2012qnmd 发表于 2015-9-25 12:16
再修改尺寸,适合平板电脑.
圆满了!

楼上附件更新了。

mdyblog

mdyblog 发表于 2015-9-25 11:28
接着加强了， 加上了自动编号:递加， 时间

效果：

huaqingyuan
我在win7系统下测试，文件没有被保存   发表于 半小时前
>>>>>>>>>>>>>>>>>
我用HHHH3的7PEX86， 可以保存的。
注意， 有的系统不会自动刷新，看不见文件， 刷新下桌面就出来了。

2012qnmd

他可能PECMD版本问题.要最新版.

WIN10,86,64 都没问题

huaqingyuan

mdyblog 发表于 2015-9-25 13:50
huaqingyuan
我在win7系统下测试，文件没有被保存   发表于 半小时前
>>>>>>>>>>>>>>>>>

确实版本问题，新版本没问题了！

小絔小小小

我希望使用FORX全盘搜索到文件后获取文件所在盘符 请问该用什么命令从FORX赋予的路径变量中取到盘符呢

---
好吧 看了几个截取字符串的命令 用MSTR搞定了
然后还发现了FDRV...

huaqingyuan

请教如何调用DLL的函数，比如调用wimgapi.dll，很多WIM的处理都能实现，

mdyblog

huaqingyuan 发表于 2015-9-25 18:02
请教如何调用DLL的函数，比如调用wimgapi.dll，很多WIM的处理都能实现，

比如：
CALL $SHELL32.DLL,DllInstall,#1,U   

mdyblog

SCRN  -capgui    //可简化为SCRN  -gui









内置图片浏览器
IMAG -gui  [文件名|目录名]

2012qnmd

最新版,和上个版本,区别只是截图吗?

最新版, 使用窗口,区域,几次后, 就无法再截图了,可能代码部分有问题.

原来那个代码,改了几个文字, 加了个"退出"  .   平板电脑,点" X " 时,比较困难, 太小, 有时多次才能点中.

//IFEX X.LOG, LOGS * X.LOG
SET &capd=%DeskTop%
FIND $%capd%=, SET capd=%CurDir%
SET &fn=屏幕截图####
SET &wid=0:0
set &ext=PNG
SET &fid=1
//系统设置大字体时缩小界面字体
TEAM ENVI &Font_Size=| REGI #HKCU\Control Panel\Desktop\WindowMetrics\AppliedDPI,&&Font_Size
IFEX $%&Font_Size%=0x78, ENVI &&Font_Size=7! ENVI &&Font_Size=9  // 0x60为100%，0x78为125%，0x90为150%
ENVI &&Font_Cmd=IFEX %windir%\fonts\simsun*, ENVI @this.Font=%&Font_Size%:simsun! ENVI @this.Font=%&Font_Size%
CALL @WIN1

_SUB WIN1,W535H225,截图,
    %&Font_Cmd%
    LABE -VCENTER -RIGHT LABE1,L12T38W60H24,延时(秒):,,
    EDIT -VCENTER -3D -RIGHT Delay,L74T38W40H24,0,,
    SPIN SPIN1,L116T39W18H22,:0:100,,0x80,0x80
    LABE -VCENTER -RIGHT LABE2,L150T38W40H24,对象:,,
    EDIT -VCENTER -3D wWid,L192T38W50H24,%wid%,,
    LABE -VCENTER -RIGHT LABE3,L267T38W58H24,保存类型:,,
    LIST lEXT,L326T40W55H20,PNG|BMP|JPG|GIF|TIFF,OnEXT,%ext%,
    LABE -VCENTER LABE4,L12T90W90H30,保存位置及文件,,
    EDIT -VCENTER -3D wFN,L107T90W380H30,%&capd%\%fn%.%ext%,NAME fn=%wFN%,
    ITEM ITEM2,L492T89W25H30,>>,OnBrow,
//    ITEM ITEM1,L224T131W80H50,截图, OnCap,
    ITEM ITEM1,L160T130W80H50,截图, OnCap,
    ENVI @wFN.MSG=0x02A1: Mouse_In 文件名模板,####为自动编号\n$H $M $D $H $N $S 依次为年月日时分秒
    ENVI @wFN.MSG=0x02A3: TIPS *
    LABE -VCENTER -RIGHT LABE5,L386T38W50H24,编号:,,
    EDIT -VCENTER -3D -RIGHT wFID,L457T38W40H24,,%fid%,
    SPIN SPINFID,L499T39W18H22,:0:100:%fid%,,0x80,0x80
    ITEM ITEM3,L300T130W80H50,退出, kill @WIN1
_END

2012qnmd

IMAG -gui
只使用它, 只出个界面. 如果当图片浏览工具,如何打开其它图片? 或者自动关联图片,用这个打开?