文章
文章用户小店帮助动态论坛导航

拳皇97键盘助手（极简压键版）下载

  新出的拳皇97键盘助手极简版本，仅仅对原来的上下左右键进行优化加强，就能做到顶尖操作，拥有大量的压键操作方式，出招很方便、快捷、精准，手感丝滑般的体验。使用后实力明显提高，能快速升龙、影跳、指令投、必杀等各种连招，就是强强强！大家也可以提提意见

拳皇97键盘助手（极简压键版）下载

网盘下载：

https://pan.baidu.com/s/1cLGr7UYLMd3Nh9LbAT1hDw?pwd=9797

代码太长，只展示一部分

 


Menu, Tray, Icon,1.ico,,1
turn =on
frist =1
#MaxThreads 15
SetKeyDelay, -1
#HotkeyInterval 200
#MaxThreadsPerHotkey 1
SetStoreCapslockMode, off          ; 不用恢复 CapsLock 的状态
Done =
change =
Gui,font, s10 Cffffff, Verdana
Gui, Add, Text, xp+0 yp+10, 输入跟游戏一致的上下左右键
Gui, Add, GroupBox, xp+8 yp+20 w200 h185            ; 框框

Gui,font, s12 C000000, Verdana
Gui,Add, Hotkey,w30 vHotkey8  xp+85 yp+20 ,W   ; 没有热键输入带有TAB功能
Gui,Add, Hotkey,w30 vHotkey2  yp+122 ,S
Gui,Add, Hotkey,w30 vHotkey4  xp-70 yp-60 ,A
Gui,Add, Hotkey,w30 vHotkey6  xp+140 ,D
Gui,Add, Hotkey,xp-80 yp+110 w50 vHotkeyF12 ,F12

IniRead,Case1,save.ini,Case0,Case1
IniRead,Case2,save.ini,Case0,Case2
IniRead,Case3,save.ini,Case0,Case3
IniRead,Case4,save.ini,Case0,Case4
IniRead,Case5,save.ini,Case0,Case5
Gui,font, s9, Verdana
Gui, Add, GroupBox, xp-85 yp+30 w220 h160            ; 框框
Gui, Add, Checkbox, vOverlap Checked1 xp+10 yp+20,4(左)6(右)键叠加时变为1或3键
Gui, Add, Checkbox, vJump Checked1  xp+0 yp+25, 自动变成3次跑,提高跑动稳定性
Gui, Add, Checkbox, vRound xp-0 Checked1 yp+25,快速摇1/4圈，如发波、葵花等
Gui, Add, Checkbox, vUse  xp-0 yp+25,下次启动直接使用该方案
Gui, Add, Text, xp+30 yp+25,     增加16抓的方式：
Gui, Add,  Radio, vCatch1 Checked1 xp-30 yp+18,无
Gui, Add,  Radio, vCatch2 xp+50 yp-0,1+8反抓
Gui, Add,  Radio, vCatch3 xp+70 yp-0,1+6反抓
Gui,font, s17, Verdana

Gui, Tab
Gui, Add, Button, -default xm xp-50 yp+30, 应用
Gui,font, s8, Verdana
Gui, Add, Text,xp+80 yp+15,ver`n3.0.1
Gui,font, s15  FFFFFF  , Verdana                                        
Gui,font, s12, Arial Black
Gui, Add, Text,xp-125 yp-212, 开关键                                    ;人工文字


Show:
Gui, Color, a936f5
Gui, Show,,方向键位设置

menu, tray,add,Open
menu, tray,Default ,Open            ;双击打开主窗
menu, tray,add,regedit
menu, tray,add,Help                   ; 关于
menu, tray,add,
menu, tray,add,Exit
menu, tray,NoStandard               ;先定义一些菜单项就能移除自带的菜单项了
Menu, Tray, Icon,1.ico,,1
jiaodian =1
turn =on

IniRead,Use,save.ini,Run,fangan
if Use !=
 {
 Gui,Hide
 gosub,Read
 gosub,Hotkey
 TrayTip, , 使用上次的设置, , 17
 sleep 4000
 TrayTip
 }
frist =

SwitchIME(0x04090409) ; 英语(美国) 美式键盘                      ;   这几行让用户输入英文
SwitchIME(0x08040804) ; 中文(中国) 简体中文-美式键盘
return
SwitchIME(dwLayout){
    HKL:=DllCall("LoadKeyboardLayout", Str, dwLayout, UInt, 1)
    ControlGetFocus,ctl,A
    SendMessage,0x50,0,HKL,%ctl%,A
}
return


regedit:
 RegWrite, REG_DWORD, HKEY_CURRENT_USER,Control Panel\Keyboard,KeyboardDelay,0
 RegWrite, REG_BINARY, HKEY_CURRENT_USER,Control Panel\Keyboard,KeyboardSpeed,48
 MsgBox,,键盘0延迟设置成功,键盘速度为最快,4
return




Open:
Gui, Show
sleep 1
if turn =on
 {
  if hong =
    {
     hong =1
     Menu, Tray, Icon,1.ico,,0
     Menu, Tray, Icon,2.ico,,0
     Menu, Tray, Icon,3.ico,,1
     Suspend,on
     bai =
    }
 }
GuiControlGet,jiaodian,focus
Timer =
return

Help:
Gui, 2:Add, Picture, ,456.png
Gui,2:Show,,使用说明
return

Exit:
ExitApp
return

GuiClose:
MsgBox, 4,,确定要退出助手程序吗？
IfMsgBox Yes
  ExitApp
return


Write:
IniWrite,%Hotkey2%,save.ini,Case2,xia
IniWrite,%Hotkey4%,save.ini,Case2,zuo
IniWrite,%Hotkey6%,save.ini,Case2,you
IniWrite,%Hotkey8%,save.ini,Case2,shang
IniWrite,%HotkeyF12%,save.ini,Case2,F12
IniWrite,%Jump%,save.ini,Case2,gogo
IniWrite,%Overlap%,save.ini,Case2,diejia
IniWrite,%Round%,save.ini,Case2,Round1_4
IniWrite,%Catch1%,save.ini,Case2,zhuala1
IniWrite,%Catch2%,save.ini,Case2,zhuala2
IniWrite,%Catch3%,save.ini,Case2,zhuala3
return

Read:
IniRead,Hotkey2,save.ini,Case2,xia
IniRead,Hotkey4,save.ini,Case2,zuo
IniRead,Hotkey6,save.ini,Case2,you
IniRead,Hotkey8,save.ini,Case2,shang
IniRead,HotkeyF12,save.ini,Case2,F12
IniRead,Jump,save.ini,Case2,gogo
IniRead,Overlap,save.ini,Case2,diejia
IniRead,Round,save.ini,Case2,Round1_4
IniRead,Catch1,save.ini,Case2,zhuala1
IniRead,Catch2,save.ini,Case2,zhuala2
IniRead,Catch3,save.ini,Case2,zhuala3
return


Enable:                                             ; 控件可用或不可用(变灰)
GuiControl, Enable,HotkeyF12
return

Disable:
GuiControl, Disable,HotkeyF12
return


Hotkeyoff:
Hotkey,%Hotkey2%,,UseErrorLevel off
Hotkey,%Hotkey2% up,, UseErrorLevel off
Hotkey,%Hotkey4%,, UseErrorLevel off
Hotkey,%Hotkey4% up,, UseErrorLevel off
Hotkey,%Hotkey6%,, UseErrorLevel off
Hotkey,%Hotkey6% up,, UseErrorLevel off
Hotkey,%Hotkey8%,, UseErrorLevel off
Hotkey,%Hotkey8% up,, UseErrorLevel off
Hotkey,%HotkeyF12%,,  UseErrorLevel off
Hotkey,%HotkeyF12% up,, UseErrorLevel off
return

Hotkeyon:
Hotkey,%Hotkey2%,,UseErrorLevel on
Hotkey,%Hotkey2% up,, UseErrorLevel on
Hotkey,%Hotkey4%,, UseErrorLevel on
Hotkey,%Hotkey4% up,, UseErrorLevel on
Hotkey,%Hotkey6%,, UseErrorLevel on
Hotkey,%Hotkey6% up,, UseErrorLevel on
Hotkey,%Hotkey8%,, UseErrorLevel on
Hotkey,%Hotkey8% up,, UseErrorLevel on
Hotkey,%HotkeyF12%,,  UseErrorLevel on
Hotkey,%HotkeyF12% up,, UseErrorLevel on
return


Hotkey:                                                               ;此处直接关联真实热键
 if Hotkey8 =
   Hotkey8 = Space             ; 如果8为空即生成空格键
Hotkey,$%Hotkey2%,test2,UseErrorLevel
Hotkey,$%Hotkey2% Up,test2Up,UseErrorLevel
Hotkey,$%Hotkey4%,test4,UseErrorLevel
Hotkey,$%Hotkey4% Up,test4Up,UseErrorLevel
Hotkey,$%Hotkey6%,test6,UseErrorLevel
Hotkey,$%Hotkey6% Up,test6Up,UseErrorLevel
Hotkey,$%Hotkey8%,test8,UseErrorLevel
Hotkey,$%Hotkey8% Up,test8Up,UseErrorLevel
Hotkey,$%HotkeyF12%,test12,UseErrorLevel
Hotkey,$%HotkeyF12% Up,test12Up,UseErrorLevel
return

Button应用:
Gui +OwnDialogs
gosub,Hotkeyoff
Hotkey2 := Hotkey4 := Hotkey6 := Hotkey8 := HotkeyF12 := Jump:= Overlap:= Round:= Done
gosub,Hotkey                   ; 此处为新的热键

GuiControlGet, Overlap
GuiControlGet, Round
GuiControlGet, Jump
GuiControlGet, Catch1
GuiControlGet, Catch2
GuiControlGet, Catch3
GuiControlGet, Hotkey2
GuiControlGet, Hotkey4
GuiControlGet, Hotkey6
GuiControlGet, Hotkey8
GuiControlGet, HotkeyF12
GuiControlGet, Hotkeyhelp

 GuiControlGet, Use
 if Use =1
   {
   IniWrite,1,save.ini,Run,fangan
   gosub,Write
   }
 else
   IniWrite,%Done%,save.ini,Run,fangan


loop,1
{
 WORDS =除了上键不能留空
 if Hotkey2 = 
   goto,yingyongMsgbox
 if Hotkey4 =  
   goto,yingyongMsgbox
 if Hotkey6 = 
   goto,yingyongMsgbox
 if Hotkey2 = %Hotkey4% 
  break
 if Hotkey2 = %Hotkey6% 
  break
 if Hotkey2 = %Hotkey8% 
  break
 if Hotkey4 = %Hotkey6%
  break
 if Hotkey4 = %Hotkey8%
  break
 if Hotkey6 = %Hotkey8%
  break
 gosub,Enable

 Gui,Submit,NoHide
 GuiControl, Enable , MyEdit
 queding =on
 Gui, Show
 Gui,Submit,NoHide
 gosub,Hotkey
 gosub,Hotkeyon
 GuiControl,,Static1,您还可以设置其他斜方向键
 Gui,show
 WORDS =OK！设置完成,马上体验
 mini =1
 goto,yingyongMsgbox
 return
}
WORDS =重复按键,请重新输入
goto,yingyongMsgbox
return


yingyongMsgbox:
GuiControl,,Static1,游戏愉快！
Gui,show
CoordMode,Mouse
MouseGetPos, xpos, ypos
xpos -=80
ypos -=240

Msgbox:
Gui, 3:+owner1 
Gui +Disabled
Gui, 3:font, s12 , Verdana
Gui, 3:Add, Text, yp+20,%WORDS%
Gui, 3:Add,Button, Default xp+50 yp+40, 确定
Gui,3:Show,x%xpos% y%ypos%,提示:
return

3GuiClose:
3GuiEscape:
if mini =1
  mini =0
Gui, 1:-Disabled 
Gui Destroy
return          ; 加它避免缩小

3Button确定:
Gui, 1:-Disabled 
if mini =1
  {
   Gui, 1: Show,Minimize      ;最小化主窗口
   mini =0
  }
Gui Destroy
return 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


test12:
Suspend,Permit
if F_12 = %HotkeyF12%
  return
F_12 = %A_ThisHotkey%

  Suspend
  if A_IsSuspended =0
   {
    Menu, Tray, Icon,3.ico,,0
    Menu, Tray, Icon,2.ico,,0
    Menu, Tray, Icon,1.ico,,1
    SoundPlay,on.wav
    turn =on
   }
  else
   {
    Menu, Tray, Icon,3.ico,,0
    Menu, Tray, Icon,1.ico,,0
    Menu, Tray, Icon,2.ico,,1
    SoundPlay,off.wav
    turn =off
   }
F_12 =
return



~$LButton::
Suspend,Permit
Critical
if turn =off
  return
sleep 1
WinGetActiveTitle, Title        ; 在主窗口先关闭
if Title =方向键位设置         
  {
    huang =1
    Menu, Tray, Icon,1.ico,,0
    Menu, Tray, Icon,2.ico,,0
    Menu, Tray, Icon,3.ico,,1
    Suspend,on
    bai =
    return
  }
if turn =on
 {
  if A_Cursor =IBeam                        ; 检测插入符的纯在 ,但第一次点没用
    {
     if huang =
     {
      huang =1
      Menu, Tray, Icon,1.ico,,0
      Menu, Tray, Icon,2.ico,,0
      Menu, Tray, Icon,3.ico,,1
      Suspend,on
      bai =
     }
    }
  else if bai =
    {
     bai =1
     Menu, Tray, Icon,3.ico,,0
     Menu, Tray, Icon,2.ico,,0
     Menu, Tray, Icon,1.ico,,1
     Suspend,off
     huang =
     }
 }
sleep 1
GuiControlGet,jiaodian,focus
Timer =
return

~LButton up::                          ; 左键松开补充自动关闭开关 黄色
if turn =off
  return
IfWinActive,方向键位设置     
  {
    huang =1
    Menu, Tray, Icon,1.ico,,0
    Menu, Tray, Icon,2.ico,,0
    Menu, Tray, Icon,3.ico,,1
    Suspend,on
    bai =
    return
  }
return

GuiSize:                                 ; 当窗体改变大小
Critical
if turn =off
  return
sleep  150
if A_EventInfo=1             ; 最小化
  if bai =
    {
     bai =1
     Menu, Tray, Icon,3.ico,,0
     Menu, Tray, Icon,2.ico,,0
     Menu, Tray, Icon,1.ico,,1
     Suspend,off
     huang =
     return
     }
if A_EventInfo=0             ; 恢复大小
 if huang =
  {
    if frist =1
      return
    huang =1
    Menu, Tray, Icon,1.ico,,0
    Menu, Tray, Icon,2.ico,,0
    Menu, Tray, Icon,3.ico,,1
    Suspend,on
    bai =
    return
  }
return

  本作品仅限单机学习与研究，不做其他用途！！

 

给TA捐赠
共{{data.count}}人
人已捐赠
其他应用

对SmartZip的应用

2022-3-20 15:44:34

应用

9.2毁灭术一键输出脚本，自动吃糖

2022-4-13 16:38:16

8 条回复 A文章作者 M管理员
  1. ahker
    ahker给您打赏了￥5
    • 蝉

      谢谢老板的打赏?

  2. AHK中文社区

    建议把游戏的下载链接也放上

  4. 孤独求败

    不知道在哪里使用，把游戏一起共享一下吧？

  5. user14978

    谢谢大佬分享

  6. FJJAHK

    谢谢大佬分享

❯

解锁会员权限

开通会员

解锁海量优质VIP资源

立刻开通
个人中心
购物车
优惠劵
有新私信 私信列表
搜索
客服

  • 扫码打开当前页

返回顶部