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

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
只使用它, 只出个界面. 如果当图片浏览工具,如何打开其它图片? 或者自动关联图片,用这个打开?

mdyblog

2012qnmd 发表于 2015-9-27 08:28
IMAG -gui
只使用它, 只出个界面. 如果当图片浏览工具,如何打开其它图片? 或者自动关联图片,用这个打开?

后面接 文件名或目录名。
否则， 读取配置信息 %CurFile%.ini
还可以 右键菜单修改

2012qnmd

那个错误,无法截图,具体提示:
获取剪贴板数据出错!

其它工具也无法使用.2003下

2012qnmd

内置图片浏览好像有问题. 正常显示左边那样.

mdyblog

2012qnmd 发表于 2015-9-27 08:52
内置图片浏览好像有问题. 正常显示左边那样.

这个是自动缩放的。
吧窗口缩小点就可以了。

mdyblog

2012qnmd 发表于 2015-9-27 08:41
那个错误,无法截图,具体提示:
获取剪贴板数据出错!

奇怪， SCRN -gui 抓图和剪切板无关啊。

mdyblog

2012qnmd 发表于 2015-9-27 08:52
内置图片浏览好像有问题. 正常显示左边那样.

1：改了， 新界面


自动判断，有画笔才显示。

2：现在显示原始大小。不缩放了。

mdyblog

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

新版
TIPS -dummy  ?R-20B-20
这样只对WIN10以上才有效
配置版本乱了也不怕。

ddsony

mdyblog 发表于 2015-9-27 11:41
1：改了， 新界面

下对齐：

mdyblog

ddsony 发表于 2015-9-27 17:40
下对齐：

更了：

LVBABA

mdyblog 发表于 2015-9-27 20:08
更了：

mdyblog老师! !中秋快乐^^

2012qnmd

窗口截图，还有问题，平板电脑，无法完成截图。
选定窗口后，不执行。鼠标，好像放开左键
平板电脑，手离开，不行。

但是，其它截图软件可以。
其实，这个可以考虑只截图活动窗口，点抓图后，再点的第一个活动窗口，象截屏键那样，抓一个完整的活动窗口。

全屏，局部，都没问题了，就差活动窗口了

mdyblog

LVBABA 发表于 2015-9-27 20:21
mdyblog老师! !中秋快乐^^

谢谢！
也祝你中秋快乐！

2012qnmd

2012qnmd 发表于 2015-9-27 20:25
窗口截图，还有问题，平板电脑，无法完成截图。
选定窗口后，不执行。鼠标，好像放开左键
平板电脑，手离 ...

鼠标和手,操作差那么一点.

鼠标, 移动鼠标,会出现窗口"框" ,点左键,截图.

手, 必须触摸到屏幕( 相当于点住左键) ,滑动,出现"框" ,  因为相当于"点住左键" , 抬手不会截图.


其实,移动鼠标时,一般会出现,当前窗口," 上"  "中" "下" ,或者"全部"窗口
通常"全部"才是我们要的. 局部,可以用区欲选项, 这个是一样的操作, 点左键,拖出个"框" , 松开,截图.

如果窗口截图,简化为:当前活动窗口,  点抓图,再点的第一个窗口,沿迟一下,截图.  截取当前活动窗口.

mdyblog

2012qnmd 发表于 2015-9-28 07:33
鼠标和手,操作差那么一点.

鼠标, 移动鼠标,会出现窗口"框" ,点左键,截图.

区域抓图，能工作吗？
这个 需要， 按下鼠标--开始拉框；再弹起鼠标------选好区域。

2012qnmd

mdyblog 发表于 2015-9-28 09:44
区域抓图，能工作吗？
这个 需要， 按下鼠标--开始拉框；再弹起鼠标------选好区域。

区域抓图,这个正常!

只窗口,平板下,不行.

2012qnmd

FSCapture,这个工具正常.

1.
我在鼠标下测试发现, 选择窗口时, 不按鼠标左键,可以选,点左键,抬起,截图.
2.
按左键也可以选,抬左键,截图. (平板下,需要这样)

2012qnmd

也就是说,"左键" 抬起,才截图.

左键,是否按下,都可以选.


现在问题好像简单了

你的: 安左键,截图.  就差这里