Question

易语言：无法找到指定dll库文件“kernel32”中的输出命令“OpenProgress”

怎么解决.

点击了那个选择框就会出现上面的错误 问题就出在 取鼠标坐标、取句柄‘、取进程ID的源码 不知道谁能好心的帮我写一下这三样的源码 API的那种 不要模块引用 谢啦啊！！！！！！

好的话直接追加50或者100

希望好心的人帮我下





Answer 1

给我加150以上的金钱  否则我就不回答你的题了。代码很完整 复制即可使用 并且分类明确。

函数 复制如下：

取进程ID

.子程序 进程_名取ID, 整数型, 公开, 通过进程名取进程ID；失败返回0 
.参数 进程名, 文本型, , 取要进程ID的进程名
.参数 是否区分大小写, 逻辑型, 可空, 默认为不区分,真=区分
.局部变量 局_进程信息, 精易_进程信息列表
.局部变量 进程快照, 整数型
.局部变量 进程句柄, 整数型

进程快照 ＝ CreateToolhelp32Snapshot (2, 0)
.如果真 (进程快照 ＝ 0)
    返回 (0)
.如果真结束
局_进程信息.dwSize ＝ 512
进程句柄 ＝ Process32First (进程快照, 局_进程信息)
.判断开始 (是否区分大小写)
    .判断循环首 (进程句柄 ≠ 0)
        .如果真 (到文本 (局_进程信息.进程名称) ＝ 进程名)
            CloseHandle (进程快照)
            返回 (局_进程信息.进程ID)
        .如果真结束
        进程句柄 ＝ Process32Next (进程快照, 局_进程信息)
    .判断循环尾 ()
.默认
    .判断循环首 (进程句柄 ≠ 0)
        .如果真 (到小写 (到文本 (局_进程信息.进程名称)) ＝ 到小写 (进程名))
            CloseHandle (进程快照)
            返回 (局_进程信息.进程ID)
        .如果真结束
        进程句柄 ＝ Process32Next (进程快照, 局_进程信息)
    .判断循环尾 ()
.判断结束
CloseHandle (进程快照)
返回 (0)

取鼠标坐标：

.子程序 鼠标_取位置, 精易_坐标, 公开, 取鼠标在屏幕中的坐标位置；
.局部变量 坐标, 精易_坐标

GetCursorPos (坐标)
返回 (坐标)

取窗口句柄：

.子程序 窗口_取句柄_模糊, 整数型, 公开, 成功返回指定窗口句柄,失败返回0
.参数 窗口标题, 文本型, 可空, 标题支持模糊
.参数 窗口类名, 文本型, 可空, 类名必须为精确的,或者不填
.局部变量 局_窗口句柄, 整数型

.判断循环首 (真)
    局_窗口句柄 ＝ FindWindowExA_文本 (0, 局_窗口句柄, 窗口类名, 字符 (0))
    .如果 (局_窗口句柄 ＞ 0)
        .如果真 (寻找文本 (窗口_取标题 (局_窗口句柄), 窗口标题, , 假) ≠ -1)
            返回 (局_窗口句柄)
        .如果真结束

    .否则
        跳出循环 ()
    .如果结束

.判断循环尾 ()
返回 (0)

因为名取句柄 略复杂一些 所以用标题类名代替吧。

下面是API信息引用的添加：

.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos", , 鼠标_取鼠标位置
    .参数 位置, 类型_坐标, 传址

.DLL命令 FindWindowExA_文本, 整数型, "user32", "FindWindowExA", 公开
    .参数 父窗口句柄, 整数型
    .参数 子窗口, 整数型
    .参数 类名, 文本型
    .参数 标题, 文本型

.DLL命令 Process32First, 整数型, , "Process32First", 公开, 取第一个进程
    .参数 h, 整数型
    .参数 p, 类型_进程信息列表
    .版本 2

.DLL命令 CloseHandle, 逻辑型, "kernel32", "CloseHandle", 公开, 关闭一个内核对象。
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;
    
.DLL命令 Process32Next, 整数型, , "Process32Next", 公开, 取下一个进程
    .参数 h, 整数型
    .参数 p, 类型_进程信息列表

下面是自定义类型下添加：

.数据类型 类型_坐标, 公开
    .成员 横, 整数型, , , 横X
    .成员 纵, 整数型, , , 纵Y

.数据类型 类型_进程信息列表, 公开
    .成员 dwSize, 整数型, , , 1
    .成员 cntUsage, 整数型, , , 2
    .成员 进程ID, 整数型, , , 3
    .成员 th32DefaultHeapID, 整数型, , , 4
    .成员 th32ModuleID, 整数型, , , 5
    .成员 cntThreads, 整数型, , , 6
    .成员 th32ParentProcessID, 整数型, , , 7
    .成员 pcPriClassBase, 整数型, , , 8
    .成员 dwFlags, 整数型, , , 9
    .成员 进程名称, 字节型, , "256", 10

追问

能不能直接写个源码？而且别那么大吃 我还要留点总换东西呢

追答

源码就算了 自己复制吧 我懒得写 至于金币你看着办吧 别太少就行 对我来说就是个数字

Answer 2

用超级模块，直接可以取句柄的