昨夜风吹雨🍀的个人资料 - RAT

昨夜风吹雨🍀 六道飞雪

关注数: 182 粉丝数: 298 发帖数: 7,476 关注贴吧数: 72

刚回归配合请神谢了个按键小助手代码分享只能调整tab快速选怪可以配置多设置技能我是单刷配合请神用的不能识别加血需要自己选择游戏当前句柄 ; ============================================================ ; MultiHotkey.ahk - 后台连发工具 (无弹窗版) ; 功能：16行并行发送，锁定目标并激活窗口，无确认弹窗 ; 运行要求：管理员权限，AHK v2.0+ ; ============================================================ #Warn #SingleInstance Force #Requires AutoHotkey v2 SetTitleMatchMode 2 DetectHiddenWindows false SetWorkingDir A_ScriptDir SendMode "Input" ; ----- 管理员权限检查 ----- if !A_IsAdmin { try Run("*RunAs " A_ScriptFullPath) catch { MsgBox("需要管理员权限才能运行") } ExitApp() } ; ----- 全局变量 ----- TargetHwnd := 0 WinList := Map() KeyRows := Map() IsRunning := false hwndDropDown := "" RefreshBtn := "" MainGui := "" DdlItemCount := 0 LockAndActivate := false ; 是否锁定并激活窗口 KeyOptionList := ["无", "Tab", "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"] ; ===== 创建一行设置 ===== CreateKeyRow(Gui, x, y) { global KeyOptionList row := {Controls: Map(), Run: false, TimerFunc: "", KeyName: ""} keyDDL := Gui.Add("DropDownList", "x" x " y" y " w70", KeyOptionList) keyDDL.OnEvent("Change", KeyDDLChangeEvent.Bind(row)) row.Controls.Set("KeyDDL", keyDDL) Gui.Add("Text", "x" (x+78) " y" y, "间隔:") delayEdit := Gui.Add("Edit", "x" (x+115) " y" y " w50", "1.0") ; 默认间隔 1 秒 row.Controls.Set("Delay", delayEdit) return row } KeyDDLChangeEvent(row, *) { keyDDL := row.Controls.Get("KeyDDL") text := keyDDL.Text row.KeyName := (text = "无") ? "" : text } ; ===== 刷新窗口句柄列表 ===== RefreshHwndList(*) { global WinList, hwndDropDown, TargetHwnd, DdlItemCount local wList := [], cnt := 0, idx := 0, hWndVal := 0, wTitle := "", dText := "", firstKey := "" ; 如果已锁定，则不允许刷新 if LockAndActivate { return } WinList := Map() Loop DdlItemCount { hwndDropDown.Delete(1) } DdlItemCount := 0 wList := WinGetList() cnt := 0 for idx, hWndVal in wList { if hWndVal = A_ScriptHwnd continue wTitle := WinGetTitle("ahk_id " hWndVal) if !wTitle || StrLen(wTitle) > 50 continue cnt += 1 dText := "句柄" cnt " " wTitle WinList[dText] := hWndVal hwndDropDown.Add([dText]) DdlItemCount += 1 } if WinList.Count > 0 { hwndDropDown.Value := 1 for firstKey in WinList { TargetHwnd := WinList[firstKey] break } } else { hwndDropDown.Value := "" TargetHwnd := 0 } } OnHwndSelect(*) { global WinList, hwndDropDown, TargetHwnd local selectedIdx := 0, selectedText := "", hWndVal := 0 ; 如果已锁定，则不允许更改选择 if LockAndActivate { return } selectedIdx := hwndDropDown.Value if selectedIdx && selectedIdx > 0 { selectedText := hwndDropDown.Text if selectedText && WinList.Has(selectedText) { TargetHwnd := WinList[selectedText] } else { TargetHwnd := 0 } } else { TargetHwnd := 0 } } ; ===== 执行/停止（无弹窗） ===== ExecuteAll(*) { global TargetHwnd, KeyRows, IsRunning local rowID := 0, key := "", delayText := "", delay := 0 if IsRunning { MsgBox("已经在执行中，请先停止") ; 必要错误提示保留 return } if TargetHwnd = 0 { MsgBox("请先选择目标窗口！") return } if !WinExist("ahk_id " TargetHwnd) { MsgBox("目标窗口不存在，请重新选择！") return } IsRunning := true for rowID in KeyRows { keyDDL := KeyRows[rowID].Controls.Get("KeyDDL") key := keyDDL.Text if key = "无" key := "" ; 跳过未设置按键的行 if !key continue delayText := KeyRows[rowID].Controls.Get("Delay").Text try delay := Float(delayText) * 1000 catch { delay := 1000 KeyRows[rowID].Controls.Get("Delay").Text := "1.0" } if delay < 10 { delay := 1000 KeyRows[rowID].Controls.Get("Delay").Text := "1.0" } KeyRows[rowID].Run := true KeyRows[rowID].TimerFunc := LoopSend.Bind(rowID, key, TargetHwnd) SetTimer(KeyRows[rowID].TimerFunc, delay) } ; 移除 MsgBox("开始执行连发") } StopAll(*) { global KeyRows, IsRunning local rowID := 0 for rowID in KeyRows { if KeyRows[rowID].Run { KeyRows[rowID].Run := false if KeyRows[rowID].TimerFunc != "" SetTimer(KeyRows[rowID].TimerFunc, 0) } } IsRunning := false ; 移除 MsgBox("全部连发已停止") } ; ===== 发送按键（根据锁定状态决定发送方式） ===== SendKey(key, hwnd) { global LockAndActivate ; 如果启用“锁定并激活”，则激活窗口并前台发送 if LockAndActivate { try { WinActivate("ahk_id " hwnd) Sleep(50) SendInput("{" key "}") Sleep(5) SendInput("{" key "}") return } } ; 否则仅后台发送（仅对 Tab 等少数键有效） try { ControlSend("{" key "}", , "ahk_id " hwnd) Sleep(5) ControlSend("{" key "}", , "ahk_id " hwnd) } } LoopSend(rowID, key, hwnd, *) { global KeyRows local currentDelay := 1000 if !KeyRows[rowID].Run { SetTimer(KeyRows[rowID].TimerFunc, 0) return } if !WinExist("ahk_id " hwnd) { KeyRows[rowID].Run := false SetTimer(KeyRows[rowID].TimerFunc, 0) return } try currentDelay := Float(KeyRows[rowID].Controls.Get("Delay").Text) * 1000 catch { currentDelay := 1000 } if currentDelay < 10 currentDelay := 1000 SetTimer(KeyRows[rowID].TimerFunc, currentDelay) SendKey(key, hwnd) } GuiCloseEvent(*) { StopAll() ExitApp() } ; ===== 锁定并激活窗口切换 ===== ToggleLockAndActivate(*) { global LockAndActivate, hwndDropDown, RefreshBtn LockAndActivate := !LockAndActivate if LockAndActivate { hwndDropDown.Enabled := false RefreshBtn.Enabled := false } else { hwndDropDown.Enabled := true RefreshBtn.Enabled := true } } ; ========================= 构建 GUI ========================= MainGui := Gui() MainGui.Opt("+AlwaysOnTop +Resize +LastFound") MainGui.Title := "后台连发工具" MainGui.SetFont("s10", "微软雅黑") MainGui.Add("GroupBox", "w460 h90", "窗口句柄选择") hwndDropDown := MainGui.Add("DropDownList", "x20 y30 w350") hwndDropDown.OnEvent("Change", OnHwndSelect) RefreshBtn := MainGui.Add("Button", "x380 y28 w70", "刷新句柄") RefreshBtn.OnEvent("Click", RefreshHwndList) ; 锁定并激活窗口复选框 cbLockAct := MainGui.Add("CheckBox", "x20 y65 w250", "锁定目标并激活窗口（保证所有按键生效）") cbLockAct.OnEvent("Click", ToggleLockAndActivate) MainGui.Add("GroupBox", "w460 h350", "快捷键设置") KeyRows[1] := CreateKeyRow(MainGui, 20, 120) KeyRows[2] := CreateKeyRow(MainGui, 20, 155) KeyRows[3] := CreateKeyRow(MainGui, 20, 190) KeyRows[4] := CreateKeyRow(MainGui, 20, 225) KeyRows[5] := CreateKeyRow(MainGui, 20, 260) KeyRows[6] := CreateKeyRow(MainGui, 20, 295) KeyRows[7] := CreateKeyRow(MainGui, 20, 330) KeyRows[8] := CreateKeyRow(MainGui, 20, 365) KeyRows[9] := CreateKeyRow(MainGui, 250, 120) KeyRows[10] := CreateKeyRow(MainGui, 250, 155) KeyRows[11] := CreateKeyRow(MainGui, 250, 190) KeyRows[12] := CreateKeyRow(MainGui, 250, 225) KeyRows[13] := CreateKeyRow(MainGui, 250, 260) KeyRows[14] := CreateKeyRow(MainGui, 250, 295) KeyRows[15] := CreateKeyRow(MainGui, 250, 330) KeyRows[16] := CreateKeyRow(MainGui, 250, 365) executeBtn := MainGui.Add("Button", "x40 y470 w180 h30", "执行(F9)") executeBtn.OnEvent("Click", ExecuteAll) stopBtn := MainGui.Add("Button", "x240 y470 w180 h30", "停止(F10)") stopBtn.OnEvent("Click", StopAll) MainGui.Show("w480 h520") WinSetAlwaysOnTop(true, "ahk_id " MainGui.Hwnd) MainGui.OnEvent("Close", GuiCloseEvent) ; ===== 初始化窗口列表 ===== gList := [], gCnt := 0, gIdx := 0, gHwnd := 0, gTitle := "", gText := "" gList := WinGetList() gCnt := 0 for gIdx, gHwnd in gList { if gHwnd = A_ScriptHwnd continue gTitle := WinGetTitle("ahk_id " gHwnd) if !gTitle || StrLen(gTitle) > 50 continue gCnt += 1 gText := "句柄" gCnt " " gTitle WinList[gText] := gHwnd hwndDropDown.Add([gText]) } DdlItemCount := gCnt if WinList.Count > 0 { hwndDropDown.Value := 1 for firstKey in WinList { TargetHwnd := WinList[firstKey] break } } ; 默认第一行设为 Tab（示例） KeyRows[1].Controls.Get("KeyDDL").Value := 2 KeyRows[1].KeyName := "Tab" KeyRows[1].Controls.Get("Delay").Text := "1.0" ; 全局热键 Hotkey "F9", ExecuteAll Hotkey "F10", StopAll

这个配置可以吗大佬们

遇到乞讨的你们会给钱吗刚才有个人来乞讨，他一进来说找工作，他说会焊工，我说那留个联系方式吧，他说不了他说他是东北的，刚刚刑满释放人出来找工作，我看他身上确实有纹身，然后说好几天没吃饭了，根我要钱，我说没有，让他问别人吧，然后就走了

3级了，终于可以开口说话了，初来贵吧应该注意什么

关于C4D s24 黑屏 C4D S24 更新到了111 基本是解决前几个版本中的部分bug 使用一天后发现切换视窗黑屏卡住退出搜索一些资料发现关闭显卡中 FXAA模式可以解决这个问题在这次更新后仍然有一些bug没有修复感觉大场景不能渲染也有可能是 S24对电脑配置要求更高反正大场景不管用什么渲染器都是闪退不知道有没有人遇到相同问题

此吧这么多广告还有人管么 @花花花花花_心 @杨杨 @明日默

玩这么多年头一次挖到活动的鼎网通的体验服有在玩的么

小区又广播上了让带口罩外来人口登记什么情况秦皇岛又整严了么

这是什么情况

怎么卡一个任务做一夜求解答如题如何卡一个任务做一夜

世纪家园34栋5楼着火

唐山今早8点多4.5级地震有人感觉到了么这百度百科反映的也太快了吧

发现没黑多老帖子都被百度删除了

请问这是哪部科幻电视剧？大概是第几季多少集？记得是小时候看的，应该是美国剧集科幻，感觉是星际旅行重返地球，图片是按照记忆画的，大概内容是宇航员发现了这个飞行物，然后去观察，发现里边有人，然后打开了开关，里边外星人活了，然后把宇航员关了进去

我发表了一篇图片贴，大伙来看看吧~

1 下一页