无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
楼主: mdyblog
打印 上一主题 下一主题

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

    [复制链接]
6601#
发表于 2013-7-26 10:43:57 | 只看该作者
mdyblog 发表于 2013-7-26 10:25
_SUB OnTable   中
    IFEX $1>%&Sel%, EXIT  
后加一行:

楼主你上面的 “选择虚存磁盘.wcs.zip”在我这里还是有我说的那个问题啊!
读秒变换一个数字下拉菜单就自动关闭了!我

点评

理解错误。 交流障碍。 我理解成 表格选择去了。 @ TEAM TIME t1,1000,call OnTmSetPE| SET-def bt1=1| OnTmSetPE ENVI @ListDrv.MSG=%&WM_LBUTTONDOWN%: CALL KillTm1 ENVI @LISTInit.MSG=%&WM_L  详情 回复 发表于 2013-7-26 11:33
回复

使用道具 举报

6602#
 楼主| 发表于 2013-7-26 11:33:36 | 只看该作者
本帖最后由 mdyblog 于 2013-7-26 11:45 编辑
thttht 发表于 2013-7-26 10:43
楼主你上面的 “选择虚存磁盘.wcs.zip”在我这里还是有我说的那个问题啊!
读秒变换一个数字下拉菜单就自 ...


理解错误。 交流障碍。 我理解成 表格选择去了。
    @ TEAM TIME t1,1000,call OnTmSetPE|  SET-def bt=1| OnTmSetPE
    ENVI @ListDrv.MSG=%&WM_LBUTTONDOWN%:  CALL KillTm
    ENVI @LISTInit.MSG=%&WM_LBUTTONDOWN%:  CALL KillTm
    ENVI @LISTMax.MSG=%&WM_LBUTTONDOWN%:  CALL KillTm
_END
_SUB KillTm
    FIND $1=%bt%,  TEAM ENVI @t1=0| SET bt=
_END
选择虚存磁盘.wcs.zip (1.38 KB, 下载次数: 6)

评分

参与人数 1无忧币 +5 收起 理由
527104427 + 5 这个更给力

查看全部评分

回复

使用道具 举报

6603#
发表于 2013-7-26 12:55:11 | 只看该作者
本帖最后由 thttht 于 2013-7-26 13:31 编辑

楼主我还是没有改成功,实在是头回自己做这个,很多东西都不了解,自己也说不太清楚!请楼主见谅!

我把我现在已经完成的都给你发上了,你帮我看看行吗?我有点屡不清相互关系了!有点乱了!
主要还是之前说的读单就自动关闭了的问题。也麻烦楼主帮我全面的看看里面的代码,你给我的代码有时我并不能完全理解,不对的地方帮我一起改正一下吧!拜托楼主了!

PE_SET_TEMP_2013_7.rar (1.91 KB, 下载次数: 3)

点评

改好了。  详情 回复 发表于 2013-7-26 14:30
回复

使用道具 举报

6604#
 楼主| 发表于 2013-7-26 14:30:57 | 只看该作者
thttht 发表于 2013-7-26 12:55
楼主我还是没有改成功,实在是头回自己做这个,很多东西都不了解,自己也说不太清楚!请楼主见谅!

我把 ...

改好了。
PE_SET_TEMP_2013_7.wcs.zip (2.26 KB, 下载次数: 9)

点评

楼主上面还有个地方有错误,这个是我原来代码中的问题。 就是“设置临时文件夹 TEMP”里有个“LIST List3,L280T158W60H320,%ALlDrv2%|不设置,,%TmpDrv%”这里的“不设置”选项,当选择这个时不正常!运行后会在脚  详情 回复 发表于 2013-7-26 14:47
回复

使用道具 举报

6605#
发表于 2013-7-26 14:47:26 | 只看该作者
本帖最后由 thttht 于 2013-7-26 14:58 编辑
mdyblog 发表于 2013-7-26 14:30
改好了。


楼主上面还有个地方有错误,这个是我原来代码中的问题。

就是“设置临时文件夹 TEMP”里有个“LIST List3,L280T158W60H320,%ALlDrv2%|不设置,,%TmpDrv%”这里的“不设置”选项,当选择这个时不正常!运行后会在脚本同目录里生成一个“不设置”的目录!这部分我设置的应该不对!麻烦也帮我看一下好吗?还有发现硬盘分区列表目前无法用鼠标滚轮滚动表格了!之前你给的可以!

点评

PE变量 List3 不能外传。 用List3X 外传一下。  详情 回复 发表于 2013-7-26 15:18
回复

使用道具 举报

6606#
 楼主| 发表于 2013-7-26 15:18:06 | 只看该作者
thttht 发表于 2013-7-26 14:47
楼主上面还有个地方有错误,这个是我原来代码中的问题。

就是“设置临时文件夹 TEMP”里有个“LIST  ...

PE变量  List3 不能外传。 用List3X 外传一下。
PE_SET_TEMP_2013_7.wcs.zip (2.26 KB, 下载次数: 4)

点评

楼主上面这个附件你传错了吧!这个还是上面那个吧,生成一个“不设置”的目录的问题和无法用鼠标滚轮滚动表格的问题还有啊?  详情 回复 发表于 2013-7-26 15:26
回复

使用道具 举报

6607#
发表于 2013-7-26 15:26:53 | 只看该作者
mdyblog 发表于 2013-7-26 15:18
PE变量  List3 不能外传。 用List3X 外传一下。

楼主上面这个附件你传错了吧!这个还是上面那个吧,生成一个“不设置”的目录的问题和无法用鼠标滚轮滚动表格的问题还有啊?

点评

闹鬼。 改个名字吧。  详情 回复 发表于 2013-7-26 15:48
回复

使用道具 举报

6608#
 楼主| 发表于 2013-7-26 15:48:50 | 只看该作者
thttht 发表于 2013-7-26 15:26
楼主上面这个附件你传错了吧!这个还是上面那个吧,生成一个“不设置”的目录的问题和无法用鼠标滚轮滚动 ...

闹鬼。 改个名字吧。
PE_SET_TEMP_2013_7-3.wcs.zip (2.42 KB, 下载次数: 23)
回复

使用道具 举报

6609#
发表于 2013-7-26 15:55:25 | 只看该作者
本帖最后由 thttht 于 2013-7-26 16:00 编辑

哈哈!这回不会生成“不设置”的目录了!

我故意把表格改小,只有3行了,显示不全时出现了右侧的滑动条!这时还是无法用鼠标滚轮滚动表格。只能鼠标点击右侧的滑动条,不知道这个是不是只能这样了啊!之前的的表格是可以直接用鼠标滚轮滚动表格。是不是加入改进“读秒变换一个数字下拉菜单就自动关闭了”这部分代码就只能这样了啊!

点评

和这个没关。 需要切换焦点吧。 ---- ITEM Button1,L345T184W55H24,确定,CALL SetPE SET &TITLE=#0xFF0000+30:盘符%TAB%#:60:卷标%TAB%#=80:硬盘总空间%TAB%#=80:硬盘可用空间%TAB%#=65:初始大小%TAB%#  详情 回复 发表于 2013-7-26 16:09
回复

使用道具 举报

6610#
 楼主| 发表于 2013-7-26 16:09:47 | 只看该作者
thttht 发表于 2013-7-26 15:55
哈哈!这回不会生成“不设置”的目录了!

我故意把表格改小,只有3行了,显示不全时出现了右侧的滑动条! ...

和这个没关。
需要切换焦点吧。
----
    ITEM Button1,L345T184W55H24,确定,CALL SetPE
    SET &TITLE=#0xFF0000+30:盘符%TAB%#:60:卷标%TAB%#=80:硬盘总空间%TAB%#=80:硬盘可用空间%TAB%#=65:初始大小%TAB%#=65:最大大小
    TABL TABL2,L4T3W400H80,%TITLE%,%DrvVolDat%, 0x10840  //USERCTRL
---
改成
---
   SET &TITLE=#0xFF0000+30:盘符%TAB%#:60:卷标%TAB%#=80:硬盘总空间%TAB%#=80:硬盘可用空间%TAB%#=65:初始大小%TAB%#=65:最大大小
    TABL TABL2,L4T3W400H80,%TITLE%,%DrvVolDat%, 0x10840  //USERCTRL
    ITEM Button1,L345T184W55H24,确定,CALL SetPE
----
试试。 这样 焦点默认就在  TABL2上。

点评

老大帮忙看看下面代码,那些框框都不能输入,确定也会失灵:  详情 回复 发表于 2013-7-27 02:05
回复

使用道具 举报

6611#
发表于 2013-7-26 16:26:51 | 只看该作者
本帖最后由 thttht 于 2013-7-26 16:50 编辑

哈哈!测试成功了!谢谢楼主帮我写的工具!十分感谢!给你添麻烦了!

我把这个单独发帖到论坛里了!方便大家使用!希望楼主不要介意!毕竟这个基本都成了你给写的了!哈哈!
回复

使用道具 举报

6612#
发表于 2013-7-27 02:05:03 | 只看该作者
mdyblog 发表于 2013-7-26 16:09
和这个没关。
需要切换焦点吧。
----


老大帮忙看看下面代码,那些框框都不能输入,确定也会失灵:

  1. WIN1
  2. _SUB WIN1,W510H280,虚拟内存与临时文件设置,
  3.         TEAM ENVI^ ForceLocal=1| ENVI^ EnviMode=1
  4.         SET-def DrvVolDat=
  5.         SET$ &NL=0d 0a
  6.         SET$ &TAB=09
  7.         SET-def ALlDrv=
  8.         FDRV &&ALlDrv1=*:
  9.         SET-def ALlDrv2=
  10.         forx * %ALlDrv1%, &&drv1,
  11.         {*
  12.                 FORM -raw &&V=%drv1%
  13.                 FIND $%V%=DRIVE_FIXED,SET ALlDrv=%ALlDrv% %drv1% ! EXIT   //只有硬盘
  14.                 FIND $X=X%ALlDrv2%,SET ALlDrv2=%drv1%!SET ALlDrv2=%ALlDrv2%|%drv1%
  15.         }
  16.         REGI *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES
  17.         forx * %ALlDrv%,&&drv1,
  18.         {*
  19.                 FDRV *vol &&vol1=%drv1%
  20.                 FIND %drv1%\=?,&&C1  //总空间
  21.                 IFEX %drv1%\=?,&&C2  //可用空间
  22.                 CALC #C1 = %C1%/1024/1024
  23.                 CALC #C2 = %C2%/1024/1024
  24.                 FIND $%DrvVolDat%=,!SET DrvVolDat=%DrvVolDat%%NL%
  25.                 @ TEAM SET-def Ini=|SET-def Max=|SET-def FixM=
  26.                 FORX *NL &PAGES,&&DRVK,
  27.                 {
  28.                         LSTR &&C=2,%DRVK%
  29.                         FIND $%C%=%drv1%,TEAM MSTR Ini,Max=<2><3>%DRVK%|SET FixM=%Ini%/%Max%
  30.                 }
  31.                 SET DrvVolDat=%DrvVolDat%%drv1%%TAB%%vol1%%TAB%%FixM%%TAB%%C1%%TAB%%C2%
  32.         }

  33.         SET &TITLE=+40:盘符%TAB%=100:卷标%TAB%=150:虚拟内存最小/最大值(MB)%TAB%=82:总空间(MB)%TAB%=82:可用空间(MB)
  34.         TABL TABL2,L15T20W475H150,%TITLE%,%DrvVolDat%,0x10040
  35.         ITEM ITEM7,L445T217W45H25,确定,CALL SetPE,

  36.         SET &::WM_LBUTTONDOWN=0x0201
  37.         ENVI @TABL2.MSG=_%&WM_LBUTTONDOWN%:CALL OnTable
  38.         ENVI @TABL2.Val=?1.1;&&V1
  39.         ENVI TMPDir=

  40.         LABE -vcenter LABE2,L15T185W80H23,虚拟内存位置:,,
  41.         LIST ListDrv,L95T186W40H143,%ALlDrv2%,,%V1%,
  42.         LABE -vcenter LABE3,L160T185W65H23,最小值(MB):,,
  43.         LIST LISTInit,L230T187W84H130,256|512|1000|2000|3000,,512,0x4
  44.         LABE -center -vcenter LABE4,L335T187W70H21,最大值(MB):,,
  45.         LIST LISTMax,L406T187W84H130,256|512|1000|2000|3000|4000|5000|6000|7000|8000,,512,0x4

  46.         LABE -center -vcenter LABE5,L15T220W80H21,临时文件位置:,,
  47.         EDIT TMPDir,L95T220W280H20,%TMPDir%,,0x100
  48.         ITEM BUTDIR,L380T220W40H20,...,CALl SearchDir,

  49.         TIME T2,100, CALL OnTimer1
  50. _END

  51. _SUB OnTimer1
  52.         FIND $""="%TMPDir%",
  53.         {
  54.                 ENVI @ITEM7.Enable=1
  55.         }!   
  56.         {
  57.                 MSTR &&TDir=2,1,%TMPDir%
  58.                 FIND $":"="%&TDir%",
  59.                 {
  60.                         FORM -raw &&TDir=%TMPDir%
  61.                         FIND $%&TDir%=DRIVE_FIXED,ENVI @ITEM7.Enable=1!ENVI @ITEM7.Enable=0
  62.                 }!   
  63.                 {
  64.                         ENVI @ITEM7.Enable=0
  65.                 }
  66.         }
  67. _END

  68. _SUB SearchDir
  69.         ENVI &&DIR0=%TMPDir%
  70.         BROW &&DIR0,*%TMPDir%,请选择一个目录
  71.         FIND $""="%&DIR0%",!ENVI @TMPDir=%&DIR0%\Temp
  72.         CALL OnTimer1
  73. _END

  74. _SUB SetPE
  75.         TEAM FDIR DIR0=%TMPDir%|ENVI @t1=0|ENVI @t2=0|KILL \
  76.         mess "%ListDrv%"  "%LISTInit%"  "%LISTMax%"  "%TMPDir%"  "%DIR0%"
  77. _END

  78. _SUB OnTable
  79.         ENVI @TABL2.Sel=?&&Sel
  80.         IFEX $1>%&Sel%,EXIT
  81.         ENVI @TABL2.Val=?%Sel%.1;&&V1
  82.         ENVI @ListDrv=%V1%
  83. _END
复制代码
回复

使用道具 举报

6613#
 楼主| 发表于 2013-7-27 07:17:41 | 只看该作者
本帖最后由 mdyblog 于 2013-7-27 07:49 编辑
527104427 发表于 2013-7-27 02:05
老大帮忙看看下面代码,那些框框都不能输入,确定也会失灵:

选择虚存磁盘TEMP.zip (1.53 KB, 下载次数: 4)

thttht 的已传到网上了。 包里有。 PE_SET_PAGE_TEMP.WCS
---------------
贴代码:
  建议  用 WCS2HTMLBBS.wcs 转换, 然后直接粘贴。 这样 便于 原样拷贝出来; 而且有语法着色代码整齐

论坛 的  代码工具       不支持颜色。 更大的问题是, 拷贝出来 直接粘贴到 文本工具是, 每一行后 都多一个空行。 代码不整齐。

----
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
WIN1
_SUB WIN1,W510H280,虚拟内存与临时文件设置,
    TEAM ENVI^ ForceLocal=1| ENVI^ EnviMode=1
    SET-def DrvVolDat=
    SET$ &NL=0d 0a
    SET$ &TAB=09
    SET-def ALlDrv=
    FDRV &&ALlDrv1=*:
    SET-def ALlDrv2=
    forx * %ALlDrv1%, &&drv1,
    {*
        FORM -raw &&V=%drv1%
        FIND $%V%=DRIVE_FIXED,SET ALlDrv=%ALlDrv% %drv1% ! EXIT   //只有硬盘
        FIND $X=X%ALlDrv2%,SET ALlDrv2=%drv1%!SET ALlDrv2=%ALlDrv2%|%drv1%
    }
    REGI *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES
    forx * %ALlDrv%,&&drv1,
    {*
        FDRV *vol &&vol1=%drv1%
        FIND %drv1%\=?,&&C1  //总空间
        IFEX %drv1%\=?,&&C2  //可用空间
        CALC #C1 = %C1%/1024/1024
        CALC #C2 = %C2%/1024/1024
        FIND $%DrvVolDat%=,!SET DrvVolDat=%DrvVolDat%%NL%
        @ TEAM SET-def Ini=|SET-def Max=|SET-def FixM=
        FORX *NL &PAGES,&&DRVK,
        {
            LSTR &&C=2,%DRVK%
            FIND $%C%=%drv1%,TEAM MSTR Ini,Max=<2><3>%DRVK%|SET FixM=%Ini%/%Max%
        }
        SET DrvVolDat=%DrvVolDat%%drv1%%TAB%%vol1%%TAB%%FixM%%TAB%%C1%%TAB%%C2%
    }
    SET &TITLE=+40:盘符%TAB%=100:卷标%TAB%=150:虚拟内存最小/最大值(MB)%TAB%=82:总空间(MB)%TAB%=82:可用空间(MB)
    TABL TABL2,L15T20W475H150,%TITLE%,%DrvVolDat%,0x10040
    ITEM ITEM7,L445T217W45H25,确定,CALL SetPE,
    SET &::WM_LBUTTONDOWN=0x0201
    ENVI @TABL2.MSG=_%&::WM_LBUTTONDOWN%:CALL OnTable
    ENVI @TABL2.Val=?1.1;&&V1
    ENVI TMPDir=
    LABE -vcenter LABE2,L15T185W80H23,虚拟内存位置:,,
    LIST ListDrv,L95T186W40H143,%ALlDrv2%,,%V1%,
    LABE -vcenter LABE3,L160T185W65H23,最小值(MB):,,
    LIST LISTInit,L230T187W84H130,256|512|1000|2000|3000,,512,0x4
    LABE -center -vcenter LABE4,L335T187W70H21,最大值(MB):,,
    LIST LISTMax,L406T187W84H130,256|512|1000|2000|3000|4000|5000|6000|7000|8000,,512,0x4
    LABE -center -vcenter LABE5,L15T220W80H21,临时文件位置:,,
    EDIT TMPDir,L95T220W280H20,%TMPDir%,,0x100
    ITEM BUTDIR,L380T220W40H20,...,CALl SearchDir,
    TEAM TIME T2,100, CALL OnTimer1| SET-def bt=1| OnTimer1
    ENVI @this.MSG=%&::WM_LBUTTONDOWN%: CALL KillTm
    ENVI @ListDrv.MSG=%&::WM_LBUTTONDOWN%: CALL KillTm
    ENVI @ListDrv.MSG=%&::WM_LBUTTONDOWN%: CALL KillTm
    ENVI @LISTInit.MSG=%&::WM_LBUTTONDOWN%: CALL KillTm
    ENVI @LISTMax.MSG=%&::WM_LBUTTONDOWN%: CALL KillTm
    ENVI @ITEM7.MSG=%&::WM_LBUTTONDOWN%: CALL KillTm
    ENVI @BUTDIR.MSG=%&::WM_LBUTTONDOWN%: CALL KillTm
    ENVI @TMPDir.MSG=%&::WM_LBUTTONDOWN%:  FIND $1=%bt%, TEAM SET bt=| ENVI @t2=0
    HKEY  VK_ESCAPE, CALL KillTm   //ESC 停止计时
_END

_SUB  KillTm
    FIND $1=%bt%, TEAM SET bt=| ENVI @t2=0    //停止
_END

_SUB OnTimer1
    FIND $""="%TMPDir%",
    {
        ENVI @ITEM7.Enable=1
    }!   
    {
        MSTR &&TDir=2,1,%TMPDir%
        FIND $":"="%&TDir%",
        {
                FORM -raw &&TDir=%TMPDir%
                FIND $%&TDir%=DRIVE_FIXED,ENVI @ITEM7.Enable=1!ENVI @ITEM7.Enable=0
        }!   
        {
                ENVI @ITEM7.Enable=0
        }
    }
_END

_SUB SearchDir
    ENVI &&DIR0=%TMPDir%
    BROW &&DIR0,*%TMPDir%,请选择一个目录
    FIND $""="%&DIR0%",!ENVI @TMPDir=%&DIR0%\Temp
    CALL OnTimer1
_END

_SUB SetPE
    TEAM FDIR DIR0=%TMPDir%|ENVI @t1=0|ENVI @t2=0|KILL \
    mess "%ListDrv%"  "%LISTInit%"  "%LISTMax%"  "%TMPDir%"  "%DIR0%"
_END

_SUB OnTable
        KILLTm
        ENVI @TABL2.Sel=?&&Sel
        IFEX $1>%&Sel%,EXIT
        ENVI @TABL2.Val=?%Sel%.1;&&V1
        ENVI @ListDrv=%V1%
_END   

点评

呵呵,thttht的也挺好,我还是喜欢可以输入的。 我的原意是,通过以下的代码判断临时目录框中的输入,输入不合法,就使确定键不可用,但楼上的代码还是没达到这种效果:  详情 回复 发表于 2013-7-27 09:57
回复

使用道具 举报

6614#
发表于 2013-7-27 09:43:33 | 只看该作者
普通系统里也可以用的!不过记得在系统\WINDOWS\system32\目录里放入楼主的 PECMD.EXE 并设置WCS关联就可以了!

点评

好像,在我这里,一用就卡死。WIN7X86  详情 回复 发表于 2013-7-27 09:49
回复

使用道具 举报

6615#
发表于 2013-7-27 09:49:09 | 只看该作者
thttht 发表于 2013-7-27 09:43
普通系统里也可以用的!不过记得在系统\WINDOWS\system32\目录里放入楼主的 PECMD.EXE 并设置WCS关联就可以 ...

好像,在我这里,一用就卡死。WIN7X86
回复

使用道具 举报

6616#
发表于 2013-7-27 09:57:28 | 只看该作者
本帖最后由 527104427 于 2013-7-27 09:58 编辑
mdyblog 发表于 2013-7-27 07:17
thttht 的已传到网上了。 包里有。 PE_SET_PAGE_TEMP.WCS
---------------
贴代码:


呵呵,thttht的也挺好,我还是喜欢可以输入的。

我的原意是,通过以下的代码判断临时目录框中的输入,输入不合法,就使确定键不可用,但楼上的代码还是没达到这种效果,例如我输入ABCDEFG,确定键还是可以按:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
_SUB OnTimer1
        FIND $""="%TMPDir%",
        {
                ENVI @ITEM7.Enable=1
        }!   
        {
                MSTR &&TDir=2,1,%TMPDir%
                FIND $":"="%&TDir%",
                {
                        FORM -raw &&TDir=%TMPDir%
                        FIND $%&TDir%=DRIVE_FIXED,ENVI @ITEM7.Enable=1!ENVI @ITEM7.Enable=0
                }!   
                {
                        ENVI @ITEM7.Enable=0
                }
        }
_END  
回复

使用道具 举报

6617#
 楼主| 发表于 2013-7-27 10:38:58 | 只看该作者
本帖最后由 mdyblog 于 2013-7-27 12:33 编辑
527104427 发表于 2013-7-27 09:57
呵呵,thttht的也挺好,我还是喜欢可以输入的。

我的原意是,通过以下的代码判断临时目录框中的输入 ...

TIME 换成 THREAD* 可以实现。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
WIN1
_SUB WIN1,W510H280,虚拟内存与临时文件设置,SET bt=,
    TEAM ENVI^ ForceLocal=1| ENVI^ EnviMode=1
    SET-def DrvVolDat=
    SET$ &NL=0d 0a
    SET$ &TAB=09
    SET-def ALlDrv=
    FDRV &&ALlDrv1=*:
    SET-def ALlDrv2=
    forx * %ALlDrv1%, &&drv1,
    {    //这里不要 * 号
        FORM -raw &&V=%drv1%
        FIND $%V%=DRIVE_FIXED,SET ALlDrv=%ALlDrv% %drv1% ! EXIT   //只有硬盘
        FIND $X=X%ALlDrv2%,SET ALlDrv2=%drv1%!SET ALlDrv2=%ALlDrv2%|%drv1%
    }
    REGI *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES
    forx * %ALlDrv%,&&drv1,
    {*
        FDRV *vol &&vol1=%drv1%
        FIND %drv1%\=?,&&C1  //总空间
        IFEX %drv1%\=?,&&C2  //可用空间
        CALC #C1 = %C1%/1024/1024
        CALC #C2 = %C2%/1024/1024
        FIND $%DrvVolDat%=,!SET DrvVolDat=%DrvVolDat%%NL%
        @ TEAM SET-def Ini=|SET-def Max=|SET-def FixM=
        FORX *NL &PAGES,&&DRVK,
        {
            LSTR &&C=2,%DRVK%
            FIND $%C%=%drv1%,TEAM MSTR Ini,Max=<2><3>%DRVK%|SET FixM=%Ini%/%Max%
        }
        SET DrvVolDat=%DrvVolDat%%drv1%%TAB%%vol1%%TAB%%FixM%%TAB%%C1%%TAB%%C2%
    }
    SET &TITLE=+40:盘符%TAB%=100:卷标%TAB%=150:虚拟内存最小/最大值(MB)%TAB%=82:总空间(MB)%TAB%=82:可用空间(MB)
    TABL TABL2,L15T20W475H150,%TITLE%,%DrvVolDat%,0x10040
    ITEM ITEM7,L445T217W45H25,确定,CALL SetPE,
    SET &::WM_LBUTTONDOWN=0x0201
    ENVI @TABL2.MSG=_%&::WM_LBUTTONDOWN%:CALL OnTable
    ENVI @TABL2.Val=?1.1;&&V1
    ENVI TMPDir=
    LABE -vcenter LABE2,L15T185W80H23,虚拟内存位置:,,
    LIST ListDrv,L95T186W40H143,%ALlDrv2%,,%V1%,
    LABE -vcenter LABE3,L160T185W65H23,最小值(MB):,,
    LIST LISTInit,L230T187W84H130,256|512|1000|2000|3000,,512,0x4
    LABE -center -vcenter LABE4,L335T187W70H21,最大值(MB):,,
    LIST LISTMax,L406T187W84H130,256|512|1000|2000|3000|4000|5000|6000|7000|8000,,512,0x4
    LABE -center -vcenter LABE5,L15T220W80H21,临时文件位置:,,
    SET-def TMPDir_Enable=1
    EDIT TMPDir,L95T220W280H20,%TMPDir%,,0x100
    ITEM BUTDIR,L380T220W40H20,...,CALl SearchDir,
    SET-def bt=1
    THREAD* LOOP_OnTimer1
_END
_SUB LOOP_OnTimer1
    LOOP $1=%bt%,
    {
        CALL OnTimer1
        WAIT 100
    }
_END

_SUB EnableItem7
    @ FIND $%1=%TMPDir_Enable%, EXIT
    TEAM SET TMPDir_Enable=%1| ENVI @ITEM7.Enable=%1
_END

_SUB OnTimer1
    @FIND $""="%TMPDir%",
    {
        @CALL EnableItem7 1
    }!   
    {
        MSTR &&TDir=2,1,%TMPDir%
        FIND $":"="%&TDir%",
        {
            FORM -raw &&TDir=%TMPDir%
            FIND $%&TDir%=DRIVE_FIXED,  CALL EnableItem7 1! CALL EnableItem7 0
        }!   
        {
            CALL EnableItem7 0
        }
    }
_END

_SUB SearchDir
    ENVI &&DIR0=%TMPDir%
    BROW &&DIR0,*%TMPDir%,请选择一个目录
    FIND $""="%&DIR0%",!ENVI @TMPDir=%&DIR0%\Temp
    CALL OnTimer1
_END

_SUB SetPE
    TEAM FDIR DIR0=%TMPDir%|ENVI @t1=0|ENVI @t2=0|KILL \
    mess "%ListDrv%"  "%LISTInit%"  "%LISTMax%"  "%TMPDir%"  "%DIR0%"
    KILL \
_END

_SUB OnTable
    ENVI @TABL2.Sel=?&&Sel
    IFEX $1>%&Sel%,EXIT
    ENVI @TABL2.Val=?%Sel%.1;&&V1
    ENVI @ListDrv=%V1%
_END   

选择虚存磁盘TEMP1.zip

1.53 KB, 下载次数: 4

点评

进一步测试,发现,用虚拟机的正常系统,一律报错,不管是X86还是X64,不管单核多核,也不管XP还是WIN7。 用PE进虚拟机,一律正常,不管2003PE还是WIN8X64PE  详情 回复 发表于 2013-7-27 12:10
在实机下正常,在VM的虚拟机就一片空白,不知道怎么回事。 实机是win7_x86,双核cpu。虚拟机是单核cpu,win7_x64,用64位pecmd也一样  详情 回复 发表于 2013-7-27 11:39
回复

使用道具 举报

6618#
 楼主| 发表于 2013-7-27 10:44:09 | 只看该作者
本帖最后由 mdyblog 于 2013-7-27 11:41 编辑
clonecd 发表于 2013-7-27 10:35
1. WIN XP下,先关闭杀软,把【选择虚存磁盘TMP.WCS】直接拖到PECMD.EXE最新版上

2. 选择C盘,出现如图 ...


你这不是最新版的了。那个 LIST 有个BUG。
最新的是 【Build: Jul 26 2013 14:50:47】  下次改个号码吧
回复

使用道具 举报

6619#
发表于 2013-7-27 11:39:03 | 只看该作者
mdyblog 发表于 2013-7-27 10:38
TIME 换成 THREAD* 可以实现。

在实机下正常,在VM的虚拟机就一片空白,不知道怎么回事。

实机是win7_x86,双核cpu。虚拟机是单核cpu,win7_x64,用64位pecmd也一样

2.png (790.4 KB, 下载次数: 79)

2.png

1.png (469.46 KB, 下载次数: 76)

1.png
回复

使用道具 举报

6620#
发表于 2013-7-27 11:47:30 | 只看该作者
本帖最后由 527104427 于 2013-7-27 11:55 编辑
mdyblog 发表于 2013-7-27 10:44
你这不是最新版的了。那个 LIST 有个BUG。
最新的是 【Build: Jul 26 2013 14:50:47】  下次改个号码 ...



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
2768        1959015463417.836        {ENTER:D:\选择虚存磁盘TEMP.WCS}
2768        1959015826103.596        [LOGS * X.LOG]        <0>        :操作成功完成。
2768        1959064979417.775        [ENVI^ ForceLocal=1]        <0>        :操作成功完成。
2768        1959065515868.636        [ENVI^ EnviMode=1]        <0>        :操作成功完成。
2768        1959065531722.607        [TEAM ENVI^ ForceLocal=1| ENVI^ EnviMode=1]        <0>        :操作成功完成。
2768        1959065581519.438        [SET-def DrvVolDat=]        <0>        :操作成功完成。
2768        1959065618116.268        [SET$ &NL=0d 0a]        <0>        :操作成功完成。
2768        1959065642909.922        [SET$ &TAB=09]        <0>        :操作成功完成。
2768        1959065666795.640        [SET-def ALlDrv=]        <0>        :操作成功完成。
2768        1959065740128.982        [FDRV &&ALlDrv1=*:]        <0>        :操作成功完成。
2768        1959065765132.160        [SET-def ALlDrv2=]        <0>        :操作成功完成。
2768        1959065786014.702        {forx * A: C: D: E: F: Z:, &&drv1,}
2768        1959065892033.764        [FORM -raw &&V=A:]        <0>        :操作成功完成。
2768        1959065915151.227        {FIND $DRIVE_REMOVABLE=DRIVE_FIXED,SET ALlDrv= A: ! EXIT}
2768        1959065957125.835        [FIND $DRIVE_REMOVABLE=DRIVE_FIXED,SET ALlDrv= A: ! EXIT]        <0>        :操作成功完成。
2768        1959065973189.329        [forx * A: C: D: E: F: Z:, &&drv1,]        <0>        :操作成功完成。
2768        1959066401595.733        [REGI *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES]        <0>        :操作成功完成。
2768        1959066428763.990        {forx * ,&&drv1,}
2768        1959066449786.215        [forx * ,&&drv1,]        <0>        :操作成功完成。
2768        1959066484567.172        [SET &TITLE=+40:盘符        =100:卷标        =150:虚拟内存最小/最大值(MB)        =82:总空间(MB)        =82:可用空间(MB)]        <0>        :操作成功完成。
2768        1959078623260.777        [TABL TABL2,L15T20W475H150,+40:盘符        =100:卷标        =150:虚拟内存最小/最大值(MB)        =82:总空间(MB)        =82:可用空间(MB),,0x10040]        <0>        :操作成功完成。
2768        1959079497603.745        [ITEM ITEM7,L445T217W45H25,确定,CALL SetPE,]        <0>        :操作成功完成。
2768        1959079541533.910        [SET &::WM_LBUTTONDOWN=0x0201]        <0>        :操作成功完成。
2768        1959079625622.809        [ENVI @TABL2.MSG=_0x0201:CALL OnTable]        <0>        :操作成功完成。
2768        1959079658727.575        [ENVI @TABL2.Val=?1.1;&&V1]        <2147942487>        :参数错误。
2768        1959079689597.420        [ENVI TMPDir=]        <0>        :操作成功完成。
2768        1959079951572.057        [LABE -vcenter LABE2,L15T185W80H23,虚拟内存位置:,,]        <0>        :操作成功完成。
2768        1959082500080.317        [LIST ListDrv,L95T186W40H143,,,,]        <0>        :操作成功完成。
2768        1959082799070.831        [LABE -vcenter LABE3,L160T185W65H23,最小值(MB):,,]        <0>        :操作成功完成。
2768        1959085348137.821        [LIST LISTInit,L230T187W84H130,256|512|1000|2000|3000,,512,0x4]        <0>        :操作成功完成。
2768        1959085565623.563        [LABE -center -vcenter LABE4,L335T187W70H21,最大值(MB):,,]        <0>        :操作成功完成。
2768        1959089686957.420        [LIST LISTMax,L406T187W84H130,256|512|1000|2000|3000|4000|5000|6000|7000|8000,,512,0x4]        <0>        :操作成功完成。
2768        1959089950259.041        [LABE -center -vcenter LABE5,L15T220W80H21,临时文件位置:,,]        <0>        :操作成功完成。
2768        1959089981059.045        [SET-def TMPDir_Enable=1]        <0>        :操作成功完成。
2768        1959090405973.384        [EDIT TMPDir,L95T220W280H20,,,0x100]        <0>        :操作成功完成。
2768        1959090763071.842        [ITEM BUTDIR,L380T220W40H20,...,CALl SearchDir,]        <0>        :操作成功完成。
2768        1959090793522.640        [SET-def bt=1]        <0>        :操作成功完成。
2768        1959090809935.340        {THREAD* LOOP_OnTimer1}
2768        1959127379527.286        [THREAD* LOOP_OnTimer1]        <0>        :操作成功完成。
1196        1963501985866.918        {LOOP $1=1,}
1196        1963502037270.099        {CALL OnTimer1}
1196        1963502635111.445        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1963684181928.150        [WAIT 100]        <0>        :操作成功完成。
1196        1963684247928.158        {CALL OnTimer1}
1196        1963684541610.735        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1963822987767.998        [WAIT 100]        <0>        :操作成功完成。
1196        1963823680593.483        {CALL OnTimer1}
1196        1963823978536.378        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1963985838353.757        [WAIT 100]        <0>        :操作成功完成。
1196        1963985955477.581        {CALL OnTimer1}
1196        1963986337090.328        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1964127370866.967        [WAIT 100]        <0>        :操作成功完成。
1196        1964127439381.262        {CALL OnTimer1}
1196        1964127739698.760        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1964250826711.216        [WAIT 100]        <0>        :操作成功完成。
1196        1964250904095.352        {CALL OnTimer1}
1196        1964251197009.675        [CALL OnTimer1]        <0>        :操作成功完成。
2768        1964413641887.446        {CALL OnTable}
2768        1964413739665.236        [ENVI @TABL2.Sel=?&&Sel]        <0>        :操作成功完成。
2768        1964413766763.652        {IFEX $1>0,EXIT}
2768        1964413800776.355        [IFEX $1>0,EXIT]        <0>        :操作成功完成。
2768        1964413845335.091        [CALL OnTable]        <0>        :操作成功完成。
1196        1964415788808.354        [WAIT 100]        <0>        :操作成功完成。
1196        1964419822212.040        {CALL OnTimer1}
1196        1964420221634.313        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1964531673788.149        [WAIT 100]        <0>        :操作成功完成。
1196        1964531771216.732        {CALL OnTimer1}
1196        1964532038080.258        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1964642583065.724        [WAIT 100]        <0>        :操作成功完成。
1196        1964642716532.408        {CALL OnTimer1}
1196        1964643161281.671        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1964752455968.565        [WAIT 100]        <0>        :操作成功完成。
1196        1964752524901.907        {CALL OnTimer1}
1196        1964752840165.440        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1964854646679.955        [WAIT 100]        <0>        :操作成功完成。
1196        1964854968718.091        {CALL OnTimer1}
1196        1964855251994.317        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1964970337291.471        [WAIT 100]        <0>        :操作成功完成。
1196        1964970405596.241        {CALL OnTimer1}
1196        1964970681748.657        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1965073573596.644        [WAIT 100]        <0>        :操作成功完成。
1196        1965073651120.463        {CALL OnTimer1}
1196        1965073993063.364        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1965182557140.642        [WAIT 100]        <0>        :操作成功完成。
1196        1965182623559.698        {CALL OnTimer1}
1196        1965182877642.270        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1965295801561.371        [WAIT 100]        <0>        :操作成功完成。
1196        1965295868678.840        {CALL OnTimer1}
1196        1965296437745.579        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1965404987435.553        [WAIT 100]        <0>        :操作成功完成。
1196        1965405065238.738        {CALL OnTimer1}
2768        1965461920928.497        [SET bt=]        <0>        :操作成功完成。
1196        1965476590670.043        [CALL OnTimer1]        <0>        :操作成功完成。
1196        1965590608722.616        [WAIT 100]        <0>        :操作成功完成。
1196        1965590669135.323        [LOOP $1=1,]        <0>        :操作成功完成。
1196        1965590690716.278        [LOOP_OnTimer1]        <0>        :操作成功完成。
2768        1965593791110.322        [WIN1]        <0>        :操作成功完成。
2768        1965594127815.127        {LEAVE:D:\选择虚存磁盘TEMP.WCS}  
回复

使用道具 举报

6621#
发表于 2013-7-27 12:10:18 | 只看该作者
mdyblog 发表于 2013-7-27 10:38
TIME 换成 THREAD* 可以实现。

进一步测试,发现,用虚拟机的正常系统,一律报错,不管是X86还是X64,不管单核多核,也不管XP还是WIN7。


用PE进虚拟机,一律正常,不管2003PE还是WIN8X64PE
回复

使用道具 举报

6622#
 楼主| 发表于 2013-7-27 12:11:09 | 只看该作者
本帖最后由 mdyblog 于 2013-7-27 12:28 编辑
527104427 发表于 2013-7-27 09:57
呵呵,thttht的也挺好,我还是喜欢可以输入的。

我的原意是,通过以下的代码判断临时目录框中的输入 ...

79N-59 可以用定时器 :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
IFEX X.LOG, LOGS * X.LOG
WIN1
_SUB WIN1,W510H280,虚拟内存与临时文件设置,,
    TEAM ENVI^ ForceLocal=1| ENVI^ EnviMode=1
    SET-def DrvVolDat=
    SET$ &NL=0d 0a
    SET$ &TAB=09
    SET-def ALlDrv=
    FDRV &&ALlDrv1=*:
    SET-def ALlDrv2=
    forx * %ALlDrv1%, &&drv1,
    {
        FORM -raw &&V=%drv1%
        FIND $%V%=DRIVE_FIXED,SET ALlDrv=%ALlDrv% %drv1% ! EXIT   //只有硬盘
        FIND $X=X%ALlDrv2%,SET ALlDrv2=%drv1%!SET ALlDrv2=%ALlDrv2%|%drv1%
    }
    REGI *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES
    forx * %ALlDrv%,&&drv1,
    {*
        FDRV *vol &&vol1=%drv1%
        FIND %drv1%\=?,&&C1  //总空间
        IFEX %drv1%\=?,&&C2  //可用空间
        CALC #C1 = %C1%/1024/1024
        CALC #C2 = %C2%/1024/1024
        FIND $%DrvVolDat%=,!SET DrvVolDat=%DrvVolDat%%NL%
        @ TEAM SET-def Ini=|SET-def Max=|SET-def FixM=
        FORX *NL &PAGES,&&DRVK,
        {
            LSTR &&C=2,%DRVK%
            FIND $%C%=%drv1%,TEAM MSTR Ini,Max=<2><3>%DRVK%|SET FixM=%Ini%/%Max%
        }
        SET DrvVolDat=%DrvVolDat%%drv1%%TAB%%vol1%%TAB%%FixM%%TAB%%C1%%TAB%%C2%
    }
    SET &TITLE=+40:盘符%TAB%=100:卷标%TAB%=150:虚拟内存最小/最大值(MB)%TAB%=82:总空间(MB)%TAB%=82:可用空间(MB)
    TABL TABL2,L15T20W475H150,%TITLE%,%DrvVolDat%,0x10040
    ITEM ITEM7,L445T217W45H25,确定,CALL SetPE,
    SET &::WM_LBUTTONDOWN=0x0201
    ENVI @TABL2.MSG=_%&::WM_LBUTTONDOWN%:CALL OnTable
    ENVI @TABL2.Val=?1.1;&&V1
    ENVI TMPDir=
    LABE -vcenter LABE2,L15T185W80H23,虚拟内存位置:,,
    LIST ListDrv,L95T186W40H143,%ALlDrv2%,,%V1%,
    LABE -vcenter LABE3,L160T185W65H23,最小值(MB):,,
    LIST LISTInit,L230T187W84H130,256|512|1000|2000|3000,,512,0x4
    LABE -center -vcenter LABE4,L335T187W70H21,最大值(MB):,,
    LIST LISTMax,L406T187W84H130,256|512|1000|2000|3000|4000|5000|6000|7000|8000,,512,0x4
    LABE -center -vcenter LABE5,L15T220W80H21,临时文件位置:,,
    SET-def TMPDir_Enable=1
    EDIT TMPDir,L95T220W280H20,%TMPDir%,,0x100
    ITEM BUTDIR,L380T220W40H20,...,CALl SearchDir,
    TEAM TIME T2,100,  CALL  OnTimer1 | SET-def bt=1
_END

_SUB EnableItem7
    @ FIND $%1=%TMPDir_Enable%,!  TEAM SET TMPDir_Enable=%1| ENVI @ITEM7.Enable=%1
_END


_SUB OnTimer1
    @FIND $""="%TMPDir%",
    {
        @CALL EnableItem7 1
    }!   
    {
        MSTR &&TDir=2,1,%TMPDir%
        FIND $":"="%&TDir%",
        {
            FORM -raw &&TDir=%TMPDir%
            FIND $%&TDir%=DRIVE_FIXED,  CALL EnableItem7 1! CALL EnableItem7 0
        }!   
        {
            CALL EnableItem7 0
        }
    }
_END

_SUB SearchDir
    ENVI &&DIR0=%TMPDir%
    BROW &&DIR0,*%TMPDir%,请选择一个目录
    FIND $""="%&DIR0%",!ENVI @TMPDir=%&DIR0%\Temp
    CALL OnTimer1
_END

_SUB SetPE
    TEAM FDIR DIR0=%TMPDir%|ENVI @t1=0|ENVI @t2=0|KILL \
    mess "%ListDrv%"  "%LISTInit%"  "%LISTMax%"  "%TMPDir%"  "%DIR0%"
    KILL \
_END

_SUB OnTable
    ENVI @TABL2.Sel=?&&Sel
    IFEX $1>%&Sel%,EXIT
    ENVI @TABL2.Val=?%Sel%.1;&&V1
    ENVI @ListDrv=%V1%
_END   

选择虚存磁盘TEMP1.zip

1.53 KB, 下载次数: 3

回复

使用道具 举报

6623#
 楼主| 发表于 2013-7-27 12:14:18 | 只看该作者
本帖最后由 mdyblog 于 2013-7-27 14:32 编辑
527104427 发表于 2013-7-27 09:57
呵呵,thttht的也挺好,我还是喜欢可以输入的。

我的原意是,通过以下的代码判断临时目录框中的输入 ...

这种 情况 一般 用 【捕捉内容改变】,而不是 【一直在轮询】
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
IFEX X.LOG, LOGS * X.LOG
WIN1
_SUB WIN1,W510H280,虚拟内存与临时文件设置,,
    TEAM ENVI^ ForceLocal=1| ENVI^ EnviMode=1
    SET &::WM_LBUTTONDOWN=0x0201
    SET &WM_COMMAND=0x0111
    SET &EN_CHANGE=0x0300

    SET-def DrvVolDat=
    SET$ &NL=0d 0a
    SET$ &TAB=09
    SET-def ALlDrv=
    FDRV &&ALlDrv1=*:
    SET-def ALlDrv2=
    forx * %ALlDrv1%, &&drv1,
    {
        FORM -raw &&V=%drv1%
        FIND $%V%=DRIVE_FIXED,SET ALlDrv=%ALlDrv% %drv1% ! EXIT   //只有硬盘
        FIND $X=X%ALlDrv2%,SET ALlDrv2=%drv1%!SET ALlDrv2=%ALlDrv2%|%drv1%
    }
    REGI *$HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles,&&PAGES
    forx * %ALlDrv%,&&drv1,
    {*
        FDRV *vol &&vol1=%drv1%
        FIND %drv1%\=?,&&C1  //总空间
        IFEX %drv1%\=?,&&C2  //可用空间
        CALC #C1 = %C1%/1024/1024
        CALC #C2 = %C2%/1024/1024
        FIND $%DrvVolDat%=,!SET DrvVolDat=%DrvVolDat%%NL%
        @ TEAM SET-def Ini=|SET-def Max=|SET-def FixM=
        FORX *NL &PAGES,&&DRVK,
        {
            LSTR &&C=2,%DRVK%
            FIND $%C%=%drv1%,TEAM MSTR Ini,Max=<2><3>%DRVK%|SET FixM=%Ini%/%Max%
        }
        SET DrvVolDat=%DrvVolDat%%drv1%%TAB%%vol1%%TAB%%FixM%%TAB%%C1%%TAB%%C2%
    }
    SET &TITLE=+40:盘符%TAB%=100:卷标%TAB%=150:虚拟内存最小/最大值(MB)%TAB%=82:总空间(MB)%TAB%=82:可用空间(MB)
    ITEM ITEM7,L445T217W45H25,确定,CALL SetPE,
    TABL TABL2,L15T20W475H150,%TITLE%,%DrvVolDat%,0x10040
    EDIT TMPDir,L95T220W280H20,%TMPDir%,CALL OnTimer1,0x100
    ENVI @TMPDir.ID=?;&TMPDir_ID

    ENVI @this.visable=1
    ENVI @TABL2.MSG=_%&::WM_LBUTTONDOWN%:CALL OnTable
    ENVI @TABL2.Val=?1.1;&&V1
    ENVI TMPDir=
    LABE -vcenter LABE2,L15T185W80H23,虚拟内存位置:,,
    LIST ListDrv,L95T186W40H143,%ALlDrv2%,,%V1%,
    LABE -vcenter LABE3,L160T185W65H23,最小值(MB):,,
    LIST LISTInit,L230T187W84H130,256|512|1000|2000|3000,,512,0x4
    LABE -center -vcenter LABE4,L335T187W70H21,最大值(MB):,,
    LIST LISTMax,L406T187W84H130,256|512|1000|2000|3000|4000|5000|6000|7000|8000,,512,0x4
    LABE -center -vcenter LABE5,L15T220W80H21,临时文件位置:,,
    SET-def TMPDir_Enable=1
    ITEM BUTDIR,L380T220W40H20,...,CALl SearchDir,
    SET-def bt=1
    ENVI @this.MSG=_%&WM_COMMAND%::&&wp,&&lp, CALL OnCommand   //捕捉内容改变
    TEAM TIME T2,0, CALL  OnTimer1   //没开启哦. 用于延时执行
_END

_SUB OnCommand
    CALC -base=16 #&&ID=%&wp% % 0x10000 //低16位,控件ID
    IFEX $%TMPDir_ID%=%ID%,! EXIT
    CALC -base=16 #&&wCode=%&wp% / 0x10000 //高16位,操作码
    IFEX $%&EN_CHANGE% = %&wCode%,!  EXIT  //不是改变
    //内容改变,响应
    ENVI @T2=10;1  //延时执行
_END

_SUB EnableItem7
    @ FIND $%1=%TMPDir_Enable%,! TEAM SET TMPDir_Enable=%1| ENVI @ITEM7.Enable=%1
_END

_SUB OnTimer1
    @FIND $""="%TMPDir%",
    {
        @CALL EnableItem7 1
    }!   
    {
        MSTR &&TDir=2,1,%TMPDir%
        FIND $":"="%&TDir%",
        {
            FORM -raw &&TDir=%TMPDir%
            FIND $%&TDir%=DRIVE_FIXED,  CALL EnableItem7 1! CALL EnableItem7 0
        }!   
        {
            CALL EnableItem7 0
        }
    }
_END

_SUB SearchDir
    ENVI &&DIR0=%TMPDir%
    BROW &&DIR0,*%TMPDir%,请选择一个目录
    FIND $""="%&DIR0%",!ENVI @TMPDir=%&DIR0%\Temp
    CALL OnTimer1
_END

_SUB SetPE
    TEAM FDIR DIR0=%TMPDir%|ENVI @t1=0|ENVI @t2=0|KILL \
    mess "%ListDrv%"  "%LISTInit%"  "%LISTMax%"  "%TMPDir%"  "%DIR0%"
_END

_SUB OnTable
    ENVI @TABL2.Sel=?&&Sel
    IFEX $1>%&Sel%,EXIT
    ENVI @TABL2.Val=?%Sel%.1;&&V1
    ENVI @ListDrv=%V1%
_END   

选择虚存磁盘TEMP3.zip

1.76 KB, 下载次数: 2

回复

使用道具 举报

6624#
 楼主| 发表于 2013-7-27 12:33:14 | 只看该作者
527104427 发表于 2013-7-27 11:39
在实机下正常,在VM的虚拟机就一片空白,不知道怎么回事。

实机是win7_x86,双核cpu。虚拟机是单核cpu ...

重新下载 那个代码吧。
11 行多了个 * 号
【  {    //这里不要 * 号 】 这行
回复

使用道具 举报

6625#
 楼主| 发表于 2013-7-27 12:33:49 | 只看该作者
527104427 发表于 2013-7-27 11:39
在实机下正常,在VM的虚拟机就一片空白,不知道怎么回事。

实机是win7_x86,双核cpu。虚拟机是单核cpu ...

重新下载 那个代码吧。
11 行多了个 * 号
【  {    //这里不要 * 号 】 这行

点评

#7016的附件----选择虚存磁盘TEMP3.zip 关闭后有个错误窗口:  详情 回复 发表于 2013-7-27 13:55
多谢老大,正常了  详情 回复 发表于 2013-7-27 13:26
回复

使用道具 举报

6626#
 楼主| 发表于 2013-7-27 12:55:12 | 只看该作者
clonecd 发表于 2013-7-27 11:34
这个版本运行那个虚拟盘没问题了,不过我的ONEKEY代码一跑就直接出错了。
能告诉我这个和前一版的改动细 ...

和那个版本比啊? 太远了,可及不清。
开个LOG: LOGS **2 *  X.LOG , 看看是那句出错了。
我在来调。
回复

使用道具 举报

6627#
发表于 2013-7-27 13:26:58 | 只看该作者
mdyblog 发表于 2013-7-27 12:33
重新下载 那个代码吧。
11 行多了个 * 号
【  {    //这里不要 * 号 】 这行

多谢老大,正常了
回复

使用道具 举报

6628#
发表于 2013-7-27 13:55:35 | 只看该作者
本帖最后由 527104427 于 2013-7-27 13:58 编辑
mdyblog 发表于 2013-7-27 12:33
重新下载 那个代码吧。
11 行多了个 * 号
【  {    //这里不要 * 号 】 这行


#7016的附件----选择虚存磁盘TEMP3.zip
关闭后有个错误窗口:

2.png (56.42 KB, 下载次数: 74)

2.png

1.png (40.06 KB, 下载次数: 78)

1.png
回复

使用道具 举报

6629#
 楼主| 发表于 2013-7-27 14:01:34 | 只看该作者
527104427 发表于 2013-7-27 13:55
#7016的附件----选择虚存磁盘TEMP3.zip
关闭后有个错误窗口:

能把LOG 传上来吗?
LOGS **2 * X2.LOG

点评

是这样的,只要在临时文件的框里随便输点东西,再关闭,就会出错,不输入就不报错:  详情 回复 发表于 2013-7-27 14:10
回复

使用道具 举报

6630#
发表于 2013-7-27 14:10:53 | 只看该作者
mdyblog 发表于 2013-7-27 14:01
能把LOG 传上来吗?
LOGS **2 * X2.LOG

是这样的,只要在临时文件的框里随便输点东西,再关闭,就会出错,不输入就不报错:

1.png (104.83 KB, 下载次数: 80)

1.png

X2.7z

4.93 KB, 下载次数: 3

回复

使用道具 举报

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

本版积分规则

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

闽公网安备 35020302032614号

GMT+8, 2024-9-28 11:18

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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