本帖最后由 澄清 于 2016-05-31 04:21 编辑

所有按键以67890为基础
请自行改动相关键位和脚本启动终止键
--------------------------------
自动同时按键：5/27 因为自动要防卡走位 所以2个关键点延迟改为100
个人推荐按键请勿使用F1-F12键位 同时按键的多段冲突依然会发生 但是数字键位不会 原因不详
这里因为自动按键还是放了F7-F10键位 可以开宏打字不停输出=。= 需要可以增减
个人推荐多段宏有冲突的话还是改成字母键位上面的数字键位67890-=这些
--------------------------------

Rem a
SetSimMode 2
KeyDown "F7", 1
Delay 10
KeyDown "F8", 1
Delay 10
KeyDown "F9", 1
Delay 10
KeyDown "F10", 1
Delay 100
KeyUp "F7", 1
Delay 10
KeyUp "F8", 1
Delay 10
KeyUp "F9", 1
Delay 10
KeyUp "F10", 1
Delay 100
Goto a


--------------------------------
以下全部为手动按键一键拖N键 并且为同时按键
手动按键请勿使用F1-F12键位 同时按键的多段冲突依然会发生 但是数字键位不会 原因不详
为最大接近同时按键效果 请使用67890-=键位
ajm代表按键码 70代表F键 其他键位自行百度更改
--------------------------------
手动多段按住按键：
按住F一直67890
5/27 一周实测确定前后冲突多段宏依然可以优先级效果 ！这套应该是最接近原本的同时按键效果了
--------------------------------

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
ajm=70//按键码70对应F键 需要更改请百度按键码
Do
KEY = GetAsyncKeyState(ajm)
If KEY <> 1 and KEY <> 0 Then
SetSimMode 2//2为超级模拟 适合USB接口键盘 其他情况请使用1 再不行左上角保持退出 打勾看看运行后有没有“滴”的一声 没有就是按键精灵启动不了 自行解决QAQ
KeyDown "6", 1
Delay 10
KeyDown "7", 1
Delay 10
KeyDown "8", 1
Delay 10
KeyDown "9", 1
Delay 10
KeyDown "0", 1
Delay 20
KeyUp "6", 1
Delay 10
KeyUp "7", 1
Delay 10
KeyUp "8", 1
Delay 10
KeyUp "9", 1
Delay 10
KeyUp "0", 1
Delay 20
End If
loop


--------------------------------
同上也补一份单键按住按键连发的源码 对于藏剑断潮或其他单段宏应该有不少帮助
--------------------------------

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
ajm=51//按键码51为数字键3 需要自行更改
Do
KEY = GetAsyncKeyState(ajm)
If KEY <> 1 and KEY <> 0 Then
SetSimMode 2
KeyPress "3", 1
Delay 20
End If
Loop

--------------------------------
手动多段单次按键：
按一次F一次67890
5/27 同理 以下是单次按键 如果喜欢自行掌控GCD 但是又需要将多段宏变成一段宏 手动操作的朋友应该有帮助
--------------------------------

do
key = WaitKey()
If key = 70 Then//70对应F键 需要更改请自行查找按键码
SetSimMode 2 //2改1为硬件模拟 以下热键自行更改增减或提高延迟
KeyDown "6", 1
Delay 10
KeyDown "7", 1
Delay 10
KeyDown "8", 1
Delay 10
KeyDown "9", 1
Delay 10
KeyDown "0", 1
Delay 20
KeyUp "6", 1
Delay 10
KeyUp "7", 1
Delay 10
KeyUp "8", 1
Delay 10
KeyUp "9", 1
Delay 10
KeyUp "0", 1
Delay 20
End If
loop

--------------------------------
有特别需要的请私密或跟帖 @ 回复