易语言 获取 内存专用工作集

y252999822

易语言 获取 内存专用工作集？
论坛里面 的代码 都是 获取的 工作设置 并不是 内存专用工作集！
哪位大神帮忙看看

wlsk888

参考相关代码，我用其他语言写了个小东东 getwsp.rar (990.31 KB, 下载次数: 55)

2019-9-11 22:10 上传

点击文件名下载附件
专用工作集
用法：getwsp.exe -p pid
显示的应该就是你要的了

wlsk888

提供一个思路：
使用wmic获取相关列表
全部列表：可以用
wmic process或wmic process list full
单个进程可以用
进程名方式 -----wmic process where name="xxxx.exe" get workingsetsize /value
或
PID方式------wmic process where Handle="123456" get workingsetsize /value

其他可选获取值（以逗号分割）跟在get后面使用
CaptionCommandLine,CreationClassNameCreationDateCSCreationClassName,CSName,Description,ExecutablePathExecutionStateHandleHandleCountInstallDateKernelModeTimeMaximumWorkingSetSizeMinimumWorkingSetSizeName,OSCreationClassNameOSNameOtherOperationCountOtherTransferCountPageFaultsPageFileUsageParentProcessIdPeakPageFileUsagePeakVirtualSizePeakWorkingSetSizePriorityPrivatePageCountProcessIdQuotaNonPagedPoolUsageQuotaPagedPoolUsageQuotaPeakNonPagedPoolUsageQuotaPeakPagedPoolUsageReadOperationCountReadTransferCountSessionIdStatusTerminationDateThreadCountUserModeTimeVirtualSizeWindowsVersionWorkingSetSizeWriteOperationCountWriteTransferCount
等等
最后获取的是Byte,如果需要自行转换kb

补充内容 (2019-9-11 15:15):
我没搞清楚这个，仔细看了下，原来不能用。。。。。
后面附上你要的相关代码（非易语言），请高手转换下！

wlsk888

Private WS，专用工作集，即任务管理器默认显示的[内存大小][6]，微软并没有给出API来获取这个值

数据类型

typedef struct _MEMORY_WORKING_SET_BLOCK
{
    ULONG_PTR Protection : 5;
    ULONG_PTR ShareCount : 3;
    ULONG_PTR Shared : 1;
    ULONG_PTR Node : 3;
#ifdef _WIN64
    ULONG_PTR VirtualPage : 52;
#else
    ULONG VirtualPage : 20;
#endif
} MEMORY_WORKING_SET_BLOCK, *PMEMORY_WORKING_SET_BLOCK;

typedef struct _MEMORY_WORKING_SET_INFORMATION
{
    ULONG_PTR NumberOfEntries;
    MEMORY_WORKING_SET_BLOCK WorkingSetInfo[1];
} MEMORY_WORKING_SET_INFORMATION, *PMEMORY_WORKING_SET_INFORMATION;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
MEMORY_INFORMATION_CLASS

typedef enum _MEMORY_INFORMATION_CLASS
{
    MemoryBasicInformation, // MEMORY_BASIC_INFORMATION
    MemoryWorkingSetInformation, // MEMORY_WORKING_SET_INFORMATION
    MemoryMappedFilenameInformation, // UNICODE_STRING
    MemoryRegionInformation, // MEMORY_REGION_INFORMATION
    MemoryWorkingSetExInformation, // MEMORY_WORKING_SET_EX_INFORMATION
    MemorySharedCommitInformation, // MEMORY_SHARED_COMMIT_INFORMATION
    MemoryImageInformation // MEMORY_IMAGE_INFORMATION
} MEMORY_INFORMATION_CLASS;
1
2
3
4
5
6
7
8
9
10
实现代码

NTSTATUS GetProcessWorkingSetInformation(
    _In_ HANDLE ProcessHandle,
    _Out_ PMEMORY_WORKING_SET_INFORMATION *WorkingSetInformation
    )
{
    NTSTATUS status = STATUS_SUCCESS;
    PVOID buffer = NULL;
    SIZE_T bufferSize = 0;

    bufferSize = 0x800;
    buffer = malloc(bufferSize);

    while ((status = NtQueryVirtualMemory(
        ProcessHandle,
        NULL,
        MemoryWorkingSetInformation,
        buffer,
        bufferSize,
        NULL
        )) == STATUS_INFO_LENGTH_MISMATCH)
    {
        free(buffer);
        bufferSize *= 2;

        // Fail if we're resizing the buffer to something very large.
        if (bufferSize > PH_LARGE_BUFFER_SIZE)
            return STATUS_INSUFFICIENT_RESOURCES;

        buffer = malloc(bufferSize);
    }

    if (!NT_SUCCESS(status))
    {
        free(buffer);
        return status;
    }

    *WorkingSetInformation = (PMEMORY_WORKING_SET_INFORMATION)buffer;

    return status;
}

NTSTATUS GetProcessWsCounters(
    _In_ HANDLE ProcessHandle,
    _Out_ PPROCESS_WS_COUNTERS WsCounters
    )
{
    NTSTATUS status = STATUS_SUCCESS;
    PMEMORY_WORKING_SET_INFORMATION wsInfo = NULL;
    PROCESS_WS_COUNTERS wsCounters = {0};
    ULONG i = 0;

    if (!NT_SUCCESS(status = GetProcessWorkingSetInformation(
        ProcessHandle,
        &wsInfo
        )))
        return status;

    memset(&wsCounters, 0, sizeof(PROCESS_WS_COUNTERS));

    for (i = 0; i < wsInfo->NumberOfEntries; i++)
    {
        wsCounters.NumberOfPages++;

        if (wsInfo->WorkingSetInfo[i].ShareCount > 1)
            wsCounters.NumberOfSharedPages++;
        if (wsInfo->WorkingSetInfo[i].ShareCount == 0)
            wsCounters.NumberOfPrivatePages++;
        if (wsInfo->WorkingSetInfo[i].Shared)
            wsCounters.NumberOfShareablePages++;
    }

    free(wsInfo);

    *WsCounters = wsCounters;

    return status;
}
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
调用

PROCESS_WS_COUNTERS wsCounters = { 0 };
SIZE_T PrivateWS = 0;
//// Try to open a process handle with PROCESS_QUERY_INFORMATION access for
// WS information.
GetProcessWsCounters(hProcess, &wsCounters);
PrivateWS  = wsCounters.NumberOfPrivatePages * PAGE_SIZE;
1
2
3
4
5
6
How to get page size

SYSTEM_INFO SysInfo = { 0 };
DWORD       dwPageSize = 0;

GetSystemInfo( &SysInfo );
dwPageSize = SysInfo.dwPageSize;

y252999822

wlsk888 发表于 2019-9-11 14:59
提供一个思路：
使用wmic获取相关列表
全部列表：可以用

wmic 我试过了，也无法获取 内存 专用工作集

y252999822

wlsk888 发表于 2019-9-11 14:59
提供一个思路：
使用wmic获取相关列表
全部列表：可以用

workingsetsize

这个就是 设置工作  并不是 内存 专用工作集

y252999822

wlsk888 发表于 2019-9-11 15:16
Private WS，专用工作集，即任务管理器默认显示的[内存大小][6]，微软并没有给出API来获取这个值

数据类 ...

api 里面是没有，但是任务管理器 和 精易助手 里面的 进程管理 都是有 内存 专用工作集的，可能是根据一些值得出来的~

y252999822

来个大神帮帮忙！！！！！！！！

y252999822

wlsk888 发表于 2019-9-11 22:10
参考相关代码，我用其他语言写了个小东东
用法：getwsp.exe -p pid
显示的应该就是你要的了

谢谢，你这个是可以，你这个用什么语言搞的哦，go么？还是py？