IFEX X.LOG, LOGS * X.LOG 
WIN1
_SUB WIN1,W505H280,选择虚存磁盘,
    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=
        FORX *NL &PAGES,&&DRVK,
        {    LSTR &&C=2,%DRVK%
             FIND $%C%=%drv1%,    MSTR Ini,Max=<2><3>%DRVK%   
        }
        SET DrvVolDat=%DrvVolDat%%drv1%%TAB%%vol1%%TAB%%Ini%%TAB%%Max%%TAB%%C1%%TAB%%C2%
    }
    SET &TITLE=+40:盘符%TAB%=60:卷标%TAB%=80:初始大小(MB)%TAB%=80:最大大小(MB)%TAB%=80:总空间(MB)%TAB%=80:可用空间(MB)
    TABL TABL2,L15T20W460H150,%TITLE%,%DrvVolDat%, 0x10040 
    SET  &::WM_LBUTTONDOWN=0x0201
    ENVI @TABL2.MSG=_%&WM_LBUTTONDOWN%:  CALL OnTable 
    ENVI  @TABL2.Val=?1.1;&&V1
    LABE -vcenter LABE2,L20T182W91H23,虚拟内存位置:,,
    LIST ListDrv,L146T183W128H143,%ALlDrv2%,,%V1%,
    LIST LISTInit,L107T212W84H130,1000|2000|3000,,1000,0x4
    LABE -vcenter LABE3,L21T214W60H23,大小(MB):,,
    LABE -center -vcenter LABE4,L204T212W36H21,―,,
    LIST LISTMax,L253T209W84H130,1000|2000|3000|4000|5000|6000|7000|8000,,3000,0x4
    ITEM ITEM7,L410T190W60H30,设定,CALL SetPE,
    SET-def K=10
    @ TEAM TIME t1,1000,call OnTmSetPE|  OnTmSetPE
    HKEY  VK_SPACE, ENVI @t1=0
_END
_SUB OnTmSetPE
    ENVI @this=Windows 设置 【%K%】
    CALC &K=%&K% - 1 
    IFEX $%&K%<0, @ TEAM SET @t1=0| CALL SetPE  //超时到 ，执行 。。。  
_END

_SUB SetPE  
    PAGE *force  %ListDrv%\PageFile.sys %LISTInit%  %LISTMax% 
    KILL \
_END

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