易语言获取窗口句柄源码（易语言获得窗口句柄）
本文目录一览：
易语言 如何获取当前窗口句柄
调用格式： 〈整数型〉 对象．取窗口句柄 （） - 系统核心支持库-窗口
英文名称：GetHWnd
取出本窗口或窗口组件的窗口句柄（即HWND）。本命令为高级对象成员命令。
操作系统需求： Windows
调用格式： 〈整数型〉 取鼠标所在窗口句柄 （） - 应用接口支持库-窗口操作
英文名称：GetHwndFromPoint
取鼠标所在窗口句柄。本命令为初级命令。
操作系统需求： Windows
怎么用易语言取穿越火线的窗口句柄
如果你只是需要穿越火线的窗口句柄直接用网络上的取句柄工具就可以了。
如果你需要在易语言程序中运用这个句柄则super-ec下写源码:
'======================================
如果真(取句柄2(此处引号上你的句柄)≠-1)
则:键入这个句柄正在运行时需要做什么
如果真结束.
'======================================
需要告诫你的是,句柄是会改变的,可以用:窗体标题,窗体类名,窗体进程
能够使其在改变的状态下依然取到句柄
易语言 求通过进程获得窗口句柄的源码
只能获取最前的那个窗口句柄
.版本 2
.子程序 进程_名取句柄0, 整数型, , 找不到将返回0
.参数 进程名, 文本型
.局部变量 sHandle, 整数型
.局部变量 Pn, PROCESSENTRY32
.局部变量 lpTe, THREADENTRY32
.局部变量 Found, 整数型
.局部变量 ret, 整数型
.局部变量 sThread, 整数型
.局部变量 tFound, 整数型
sHandle ＝ CreateToolhelp32Snapshot (15, 0)
Pn.dwsize ＝ 296
Found ＝ Process32First (sHandle, Pn)
.判断循环首 (Found ≠ 0)
.如果真 (到小写 (到文本 (Pn.szExefile)) ＝ 到小写 (进程名))
sThread ＝ CreateToolhelp32Snapshot (4, 0)
lpTe.dwSize ＝ 28
tFound ＝ Thread32First (sThread, lpTe)
.判断循环首 (tFound ≠ 0)
.如果真 (lpTe.th32OwnerProcessID ＝ Pn.th32ProcessID)
EnumThreadWindows (lpTe.th32ThreadID, EnumThreadWndProc, ret)
跳出循环 ()
.如果真结束
tFound ＝ Thread32Next (sThread, lpTe)
.判断循环尾 ()
CloseHandle (sThread)
跳出循环 ()
.如果真结束
Found ＝ Process32Next (sHandle, Pn)
.判断循环尾 ()
CloseHandle (sHandle)
返回 (ret)
.子程序 EnumThreadWndProc, 整数型
.参数 hwnd, 整数型
.参数 lParam, 整数型, 参考
.局部变量 lHwnd1, 整数型
.局部变量 lHwnd2, 整数型
lHwnd1 ＝ GetParent (hwnd)
.判断循环首 (lHwnd1 ≠ 0) ' 用取父窗口的方法,循环找到他祖宗.... :)
lHwnd2 ＝ lHwnd1
lHwnd1 ＝ GetParent (lHwnd1)
.判断循环尾 ()
.如果真 (lHwnd2 ≠ 0)
lParam ＝ lHwnd2
返回 (0)
.如果真结束
返回 (1)
.版本 2
.DLL命令 CreateToolhelp32Snapshot, 整数型
.参数 dwFlags, 整数型
.参数 th32ProcessID, 整数型
.DLL命令 Process32First, 整数型
.参数 hSnapShot, 整数型
.参数 uProcess, PROCESSENTRY32
.DLL命令 Thread32First, 整数型, "KERNEL32.DLL", "Thread32First"
.参数 hSnapshot, 整数型
.参数 lpte, THREADENTRY32
.DLL命令 EnumThreadWindows, 整数型, "user32", "EnumThreadWindows"
.参数 dwThreadId, 整数型
.参数 lpfn, 子程序指针
.参数 lParam, 整数型, 传址
.DLL命令 Thread32Next, 整数型, "KERNEL32.DLL", "Thread32Next"
.参数 hSnapshot, 整数型
.参数 lpte, THREADENTRY32
.DLL命令 CloseHandle, 整数型, "kernel32"
.参数 hObject, 整数型
.DLL命令 Process32Next, 整数型
.参数 hSnapShot, 整数型
.参数 uProcess, PROCESSENTRY32
.DLL命令 GetParent, 整数型, "user32", "GetParent"
.参数 hwnd, 整数型
.版本 2
.数据类型 PROCESSENTRY32
.成员 dwsize, 整数型, , , 296
.成员 cntusage, 整数型, , , 引用数
.成员 th32ProcessID, 整数型, , , 进程标识符
.成员 th32defaultheapid, 整数型, , , 默认堆ID
.成员 th32moduleid, 整数型, , , 进程模块标识符
.成员 cntthreads, 整数型, , , 线程数
.成员 th32ParentProcessID, 整数型, , , 父进程标识符
.成员 pcpriclassbase, 整数型, , , 线程优先权
.成员 dwflags, 整数型
.成员 szExefile, 字节型, , "260", 进程名称
.数据类型 THREADENTRY32
.成员 dwSize, 整数型
.成员 cntUsage, 整数型
.成员 th32ThreadID, 整数型
.成员 th32OwnerProcessID, 整数型
.成员 tpBasePri, 整数型
.成员 tpDeltaPri, 整数型
.成员 dwFlags, 整数型
这种源码易语言论坛多的是。去找一下就好了。
