查看: 4255|回复: 17	[昨夜星辰] 【源码】API设置窗口状态 [复制链接]

发送短消息 UID 728264 帖子 3501 精华 18 鲜花 1898 朵 铜币 27453 个 银币 1717 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-05-01 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3501 精华18 鲜花1898 朵 铜币27453 个 银币1717 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-10-30 04:22 | |只看楼主 函数名称： 设置窗口关闭 参数定义： Hwnd 整数型：窗口句柄 返回值： 无 调用例子： TracePrint 设置窗口关闭(Hwnd) //与按键精灵自带插件不同，该函数可关闭子窗口。 函数名称： 设置窗口激活 参数定义： Hwnd 整数型：窗口句柄 返回值： 整数型：窗口激活成功返回1，否则返回0。 调用例子： TracePrint 设置窗口激活(Hwnd) //与按键精灵自带插件不同，该函数可激活自身窗口。 函数名称： 设置窗口最小化 参数定义： Hwnd 整数型：窗口句柄 返回值： 无 调用例子： TracePrint 设置窗口最小化(Hwnd) 函数名称： 设置窗口最大化 参数定义： Hwnd 整数型：窗口句柄 返回值： 无 调用例子： TracePrint 设置窗口最大化(Hwnd) 函数名称： 设置窗口恢复 参数定义： Hwnd 整数型：窗口句柄 返回值： 无 调用例子： TracePrint 设置窗口恢复(Hwnd) //可将窗口隐藏、最小化、最大化状态恢复为正常。 函数名称： 设置窗口显示 参数定义： Hwnd 整数型：窗口句柄 返回值： 无 调用例子： TracePrint 设置窗口显示(Hwnd) 函数名称： 设置窗口隐藏 参数定义： Hwnd 整数型：窗口句柄 返回值： 无 调用例子： TracePrint 设置窗口隐藏(Hwnd) 函数名称： 设置窗口是否置顶 参数定义： Hwnd 整数型：窗口句柄 Mode 整数型：1为置顶窗口，0为取消窗口置顶。 返回值： 整数型：设置成功返回1，否则返回0。 调用例子： TracePrint 设置窗口是否置顶(Hwnd, 1) TracePrint 设置窗口是否置顶(Hwnd, 0) //与按键精灵自带插件不同，即便自身窗口不处于激活状态，该函数也可将自身窗口置顶。 函数名称： 设置窗口是否可用 参数定义： Hwnd 整数型：窗口句柄 Mode 整数型：1为设置窗口可用，0为设置窗口不可用。 返回值： 整数型：设置成功返回1，否则返回0。 调用例子： TracePrint 设置窗口是否可用(Hwnd, 0) TracePrint 设置窗口是否可用(Hwnd, 1) 函数名称： 设置窗口所在进程强制关闭 参数定义： Hwnd 整数型：窗口句柄 返回值： 整数型：设置成功返回1，否则返回0。 调用例子： TracePrint 设置窗口所在进程强制关闭(Hwnd) 源码： Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long Declare Function keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Declare Function EnableWindow Lib "user32" Alias "EnableWindow" (ByVal hwnd As Long, ByVal fEnable As Long) As Long Declare Function LocalAlloc Lib "kernel32" Alias "LocalAlloc" (ByVal wOemChar As Long,ByVal wOmChar As Long) As Long Declare Function LocalFree Lib "kernel32" Alias "LocalFree" (ByVal hMem As Long) As Long Declare Function RtlMoveMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal h As Any, ByRef f As Any, ByVal Length As Long) Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwprocessid As Long) As Long Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long Dim Hwnd Hwnd = 0 '自行设置一个窗口句柄 'TracePrint "设置窗口关闭：" & 设置窗口关闭(Hwnd) TracePrint "设置窗口激活：" & 设置窗口激活(Hwnd) TracePrint "设置窗口最小化：" & 设置窗口最小化(Hwnd) TracePrint "设置窗口最大化：" & 设置窗口最大化(Hwnd) TracePrint "设置窗口恢复：" & 设置窗口恢复(Hwnd) TracePrint "设置窗口隐藏：" & 设置窗口隐藏(Hwnd) TracePrint "设置窗口显示：" & 设置窗口显示(Hwnd) TracePrint "设置窗口置顶：" & 设置窗口是否置顶(Hwnd, 1) TracePrint "设置窗口取消置顶：" & 设置窗口是否置顶(Hwnd, 0) TracePrint "设置窗口不可用：" & 设置窗口是否可用(Hwnd, 0) TracePrint "设置窗口可用：" & 设置窗口是否可用(Hwnd, 1) TracePrint "设置窗口所在进程强制关闭：" & 设置窗口所在进程强制关闭(Hwnd) Function 设置窗口关闭(Hwnd) Dim WM_CLOSE WM_CLOSE = 16 Call SendMessage(Hwnd, WM_CLOSE, 0, 0) End Function Function 设置窗口激活(Hwnd) keybd_event 18, 0, 0, 0 keybd_event 18, 0, 2, 0 If SetForegroundWindow(Hwnd) <> 0 Then 设置窗口激活 = 1 Else 设置窗口激活 = 0 End If End Function Function 设置窗口最小化(Hwnd) Dim SW_MINIMIZE SW_MINIMIZE = 6 Call ShowWindow(Hwnd, SW_MINIMIZE) End Function Function 设置窗口最大化(Hwnd) Dim SW_MAXIMIZE SW_MAXIMIZE = 3 Call ShowWindow(Hwnd, SW_MAXIMIZE) End Function Function 设置窗口恢复(Hwnd) Dim SW_RESTORE SW_RESTORE = 9 Call ShowWindow(Hwnd, SW_RESTORE) End Function Function 设置窗口显示(Hwnd) Dim SW_SHOW SW_SHOW = 5 Call ShowWindow(Hwnd, SW_SHOW) End Function Function 设置窗口隐藏(Hwnd) Dim SW_HIDE SW_HIDE = 0 Call ShowWindow(Hwnd, SW_HIDE) End Function Function 设置窗口是否置顶(Hwnd,Mode) Dim HWND_NOTOPMOST, HWND_TOPMOST, HWND_TOP, SWP_NOSIZE, SWP_NOMOVE HWND_NOTOPMOST = - 2 HWND_TOPMOST = - 1 HWND_TOP = 0 SWP_NOSIZE = 1 SWP_NOMOVE = 2 设置窗口是否置顶 = 0 If Mode = 0 Then If SetWindowPos(Hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) <> 0 Then 设置窗口是否置顶 = 1 End If Else If SetWindowPos(Hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) <> 0 Then If SetWindowPos(Hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) <> 0 Then 设置窗口是否置顶 = 1 End If End If End If End Function Function 设置窗口是否可用(Hwnd, Mode) Call EnableWindow(Hwnd, Mode) End Function Function 设置窗口所在进程强制关闭(Hwnd) 设置窗口所在进程强制关闭 = 0 Dim PID, hProcess Dim PROCESS_TERMINATE PROCESS_TERMINATE = 1 PID = GetWindowProcessId(Hwnd) hProcess = OpenProcess(PROCESS_TERMINATE, False, PID) If hProcess <> 0 Then If TerminateProcess(hProcess, 0) <> 0 Then 设置窗口所在进程强制关闭 = 1 End If Call CloseHandle(hProcess) End If End Function Function GetWindowProcessId(Hwnd) GetWindowProcessId = 0 Dim LPid LPid = LocalAlloc(0, 4) If LPid = 0 Then Exit Function End If If GetWindowThreadProcessId(Hwnd, LPid) <> 0 Then GetWindowProcessId = CLng(ReadMemoryValue(LPid, 4)) End If LocalFree LPid End Function Function ReadMemoryValue(addr, length) Dim i temp_char = space(2) length = length - 1 For i = 0 To length RtlMoveMemory temp_char, addr + i, 1 ReadMemoryValue = ReadMemoryValue + AscB(temp_char) * 256 ^ i Next End Function 复制代码
	点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 8466857 帖子 6 精华 0 鲜花 2 朵 铜币 16 个 银币 6 个 性别 在线时间 0 注册时间 2021-09-16 最后登录 2023-03-15 12345 查看公共资料 搜索主题 搜索帖子 499374820 499374820 组别小学一年级 UID8466857 帖子6 精华0 鲜花2 朵 铜币16 个 银币6 个 在线时间0 注册时间2021-09-16	2# 字体大小: t T 发表于 2022-10-30 08:08 | |只看该用户
	回顶部

发送短消息 UID 8442849 帖子 228 精华 0 鲜花 92 朵 铜币 227 个 银币 214 个 性别 在线时间 0 注册时间 2021-08-29 最后登录 2024-04-24 查看公共资料 搜索主题 搜索帖子 a80822180 组别初中一年级 UID8442849 帖子228 精华0 鲜花92 朵 铜币227 个 银币214 个 在线时间0 注册时间2021-08-29 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	3# 字体大小: t T 发表于 2022-10-30 08:39 | |只看该用户 666666
	回顶部

发送短消息 UID 8881589 帖子 8 精华 0 鲜花 4 朵 铜币 8 个 银币 8 个 性别 在线时间 0 注册时间 2022-10-26 最后登录 2023-01-06 查看公共资料 搜索主题 搜索帖子 crisili 组别小学一年级 UID8881589 帖子8 精华0 鲜花4 朵 铜币8 个 银币8 个 在线时间0 注册时间2022-10-26	4# 字体大小: t T 发表于 2022-10-30 13:48 | |只看该用户 学习一下
	回顶部

发送短消息 UID 8353683 帖子 92 精华 0 鲜花 39 朵 铜币 94 个 银币 79 个 性别 在线时间 0 注册时间 2021-06-29 最后登录 2023-11-14 2607668488 查看公共资料 搜索主题 搜索帖子 2607668488 2607668488 组别小学五年级 UID8353683 帖子92 精华0 鲜花39 朵 铜币94 个 银币79 个 在线时间0 注册时间2021-06-29	5# 字体大小: t T 发表于 2022-10-31 16:33 | |只看该用户 4444444444
	回顶部

发送短消息 UID 8836334 帖子 7 精华 0 鲜花 2 朵 铜币 8 个 银币 8 个 性别 在线时间 0 注册时间 2022-08-31 最后登录 2024-04-15 查看公共资料 搜索主题 搜索帖子 huazinihao 组别小学一年级 UID8836334 帖子7 精华0 鲜花2 朵 铜币8 个 银币8 个 在线时间0 注册时间2022-08-31	6# 字体大小: t T 发表于 2022-10-31 22:55 | |只看该用户 66666666
	回顶部

发送短消息 UID 8274022 帖子 703 精华 0 鲜花 158 朵 铜币 714 个 银币 863 个 性别 在线时间 0 注册时间 2021-05-01 最后登录 2024-04-21 28306674 查看公共资料 搜索主题 搜索帖子 flash5435 农民秀才 组别高中三年级 UID8274022 帖子703 精华0 鲜花158 朵 铜币714 个 银币863 个 在线时间0 注册时间2021-05-01 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	7# 字体大小: t T 发表于 2022-11-02 07:35 | |只看该用户 学习学习！~~~~~~~~~~~~~~~~~~~~~~
	回顶部

发送短消息 UID 1509148 帖子 3 精华 0 鲜花 2 朵 铜币 13 个 银币 3 个 性别 在线时间 0 注册时间 2012-12-25 最后登录 2022-11-16 719685838 查看公共资料 搜索主题 搜索帖子 j555mj j555mj 组别幼儿园 UID1509148 帖子3 精华0 鲜花2 朵 铜币13 个 银币3 个 在线时间0 注册时间2012-12-25	8# 字体大小: t T 发表于 2022-11-16 22:13 | |只看该用户 321312312
	回顶部

发送短消息 UID 320668 帖子 350 精华 0 鲜花 -15 朵 铜币 535 个 银币 89 个 性别 在线时间 16740 注册时间 2009-10-12 最后登录 2024-04-25 查看公共资料 搜索主题 搜索帖子 welcometotm welcometotm 组别初中三年级 UID320668 帖子350 精华0 鲜花-15 朵 铜币535 个 银币89 个 在线时间16740 注册时间2009-10-12	9# 字体大小: t T 发表于 2022-11-20 01:08 | |只看该用户 看一下，学习学习
	回顶部

发送短消息 UID 186427 帖子 167 精华 0 鲜花 43 朵 铜币 213 个 银币 51 个 性别 在线时间 3720 注册时间 2008-07-20 最后登录 2024-04-21 ssl_19850814@hotmail.com 153222899 职业玩家 查看公共资料 搜索主题 搜索帖子 ys1101005 ys1101005 组别初中一年级 UID186427 帖子167 精华0 鲜花43 朵 铜币213 个 银币51 个 在线时间3720 注册时间2008-07-20	10# 字体大小: t T 发表于 2023-02-23 04:35 | |只看该用户 物流信息
	回顶部

发送短消息 UID 8321707 帖子 114 精华 0 鲜花 48 朵 铜币 120 个 银币 110 个 性别 在线时间 0 注册时间 2021-06-06 最后登录 2024-03-13 867231266 查看公共资料 搜索主题 搜索帖子 yebaDQS yebaDQS 组别小学六年级 UID8321707 帖子114 精华0 鲜花48 朵 铜币120 个 银币110 个 在线时间0 注册时间2021-06-06	11# 字体大小: t T 发表于 2023-03-03 16:54 | |只看该用户 看看
	回顶部

发送短消息 UID 7756531 帖子 3 精华 0 鲜花 3 朵 铜币 13 个 银币 3 个 性别 在线时间 0 注册时间 2020-06-27 最后登录 2023-03-06 12345 查看公共资料 搜索主题 搜索帖子 小怪兽.. 小怪兽.. 组别幼儿园 UID7756531 帖子3 精华0 鲜花3 朵 铜币13 个 银币3 个 在线时间0 注册时间2020-06-27	12# 字体大小: t T 发表于 2023-03-05 20:40 | |只看该用户 6666666666
	回顶部

发送短消息 UID 8948907 帖子 24 精华 0 鲜花 23 朵 铜币 25 个 银币 25 个 性别 在线时间 0 注册时间 2023-01-19 最后登录 2023-03-08 查看公共资料 搜索主题 搜索帖子 流芳轩主人 组别小学一年级 UID8948907 帖子24 精华0 鲜花23 朵 铜币25 个 银币25 个 在线时间0 注册时间2023-01-19	13# 字体大小: t T 发表于 2023-03-07 10:00 | |只看该用户 学习中
	回顶部

发送短消息 UID 8689099 帖子 266 精华 0 鲜花 233 朵 铜币 263 个 银币 263 个 性别 在线时间 0 注册时间 2022-04-06 最后登录 2024-04-09 727156471 查看公共资料 搜索主题 搜索帖子 家鸿 家鸿 组别初中二年级 UID8689099 帖子266 精华0 鲜花233 朵 铜币263 个 银币263 个 在线时间0 注册时间2022-04-06	14# 字体大小: t T 发表于 2023-04-04 21:31 | |只看该用户
	回顶部

发送短消息 UID 7759854 帖子 32 精华 0 鲜花 18 朵 铜币 42 个 银币 32 个 性别 在线时间 0 注册时间 2020-06-28 最后登录 2023-06-20 213237474 查看公共资料 搜索主题 搜索帖子 LIQ1 LIQ1 组别小学二年级 UID7759854 帖子32 精华0 鲜花18 朵 铜币42 个 银币32 个 在线时间0 注册时间2020-06-28	15# 字体大小: t T 发表于 2023-04-14 12:04 | |只看该用户 11111
	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵 铜币 3957 个 银币 204 个 性别 在线时间 26840 注册时间 2015-06-28 最后登录 2024-03-09 查看公共资料 搜索主题 搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵 铜币3957 个 银币204 个 在线时间26840 注册时间2015-06-28 小红帽 对论坛提出良好建议（可向管理员申请）	16# 字体大小: t T 发表于 2023-04-16 02:06 | |只看该用户
	回顶部

发送短消息 UID 8754681 帖子 87 精华 0 鲜花 109 朵 铜币 105 个 银币 95 个 性别 在线时间 0 注册时间 2022-05-29 最后登录 2023-05-03 查看公共资料 搜索主题 搜索帖子 hjy9528 组别小学四年级 UID8754681 帖子87 精华0 鲜花109 朵 铜币105 个 银币95 个 在线时间0 注册时间2022-05-29	17# 字体大小: t T 发表于 2023-04-30 11:32 | |只看该用户 学习一下API
	回顶部

发送短消息 UID 8853938 帖子 17 精华 0 鲜花 16 朵 铜币 18 个 银币 18 个 性别 在线时间 0 注册时间 2022-09-21 最后登录 2023-08-04 373907154 查看公共资料 搜索主题 搜索帖子 373907154a 373907154a 组别小学一年级 UID8853938 帖子17 精华0 鲜花16 朵 铜币18 个 银币18 个 在线时间0 注册时间2022-09-21	18# 字体大小: t T 发表于 2023-07-30 20:17 | |只看该用户 谢谢大佬分享
	回顶部