全键盘~ 改

雷欧纳德 · 发表于 2006-10-8 07:25:21

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

全键盘~ 改

说明：至于原来站上那个全键盘的有什么问题试就知道了。。。。

1、Kboard.press?(key) 同 Input.press?(key)
2、Kboard.repeat?(key) 同 Input.repeat?(key)
3、Kboard.trigger?(key) 同 Input.trigger?(key)

以下脚本中没给出键值，需要的自己查找。。。

module Kboard
module_function
@R_Key_Hash = {}
@R_Key_Repeat = {}
GetKeyState = Win32API.new("user32","GetAsyncKeyState",['I'],'I')
def press?(rkey)
return GetKeyState.call(rkey) != 0
end
def repeat?(rkey)
result = GetKeyState.call(rkey)
if result != 0
if @R_Key_Repeat[rkey].nil?
@R_Key_Repeat[rkey] = 0
return true
end
@R_Key_Repeat[rkey] += 1
else
@R_Key_Repeat[rkey] = nil
@R_Key_Hash[rkey] = 0
end
if !@R_Key_Repeat[rkey].nil? and @R_Key_Repeat[rkey] > 4 # 4乃准确数字
@R_Key_Repeat[rkey] = 0
return true
else
return false
end
end
def trigger?(rkey)
result = GetKeyState.call(rkey)
if @R_Key_Hash[rkey] == 1 and result != 0
return false
end
if result != 0
@R_Key_Hash[rkey] = 1
return true
else
@R_Key_Hash[rkey] = 0
return false
end
end
end

复制代码

雷欧纳德 · 发表于 2006-10-8 07:25:21

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

全键盘~ 改

说明：至于原来站上那个全键盘的有什么问题试就知道了。。。。

1、Kboard.press?(key) 同 Input.press?(key)
2、Kboard.repeat?(key) 同 Input.repeat?(key)
3、Kboard.trigger?(key) 同 Input.trigger?(key)

以下脚本中没给出键值，需要的自己查找。。。

module Kboard
module_function
@R_Key_Hash = {}
@R_Key_Repeat = {}
GetKeyState = Win32API.new("user32","GetAsyncKeyState",['I'],'I')
def press?(rkey)
return GetKeyState.call(rkey) != 0
end
def repeat?(rkey)
result = GetKeyState.call(rkey)
if result != 0
if @R_Key_Repeat[rkey].nil?
@R_Key_Repeat[rkey] = 0
return true
end
@R_Key_Repeat[rkey] += 1
else
@R_Key_Repeat[rkey] = nil
@R_Key_Hash[rkey] = 0
end
if !@R_Key_Repeat[rkey].nil? and @R_Key_Repeat[rkey] > 4 # 4乃准确数字
@R_Key_Repeat[rkey] = 0
return true
else
return false
end
end
def trigger?(rkey)
result = GetKeyState.call(rkey)
if @R_Key_Hash[rkey] == 1 and result != 0
return false
end
if result != 0
@R_Key_Hash[rkey] = 1
return true
else
@R_Key_Hash[rkey] = 0
return false
end
end
end

复制代码

两只鱼 · 发表于 2006-10-8 09:17:55

想问鼠标中也能定义吗{/gg}

雷欧纳德 · 发表于 2006-10-8 15:17:58

以下引用两只鱼于2006-10-8 1:17:55的发言：

想问鼠标中也能定义吗

你打算定义啥？ {/gg}

两只鱼 · 发表于 2006-10-8 20:20:32

少打一个字了～～是鼠标中键

frantice · 发表于 2006-10-8 20:22:33

可以的{/se}

但是偶不会{/hx}

oksh · 发表于 2006-10-8 22:58:20

记录一下，试了看看。

柳柳 · 发表于 2006-10-27 08:59:08

发布完毕……
VIP += 6

帐号		自动登录	找回密码
密码			注册会员

全键盘~ 改

加入我们，或者，欢迎回来。

加入我们，或者，欢迎回来。

贵宾

VX城市地图大赛冠军

第1届RMTV比赛冠军

第1届TG大赛冠军

RMVX自由创作大赛亚军

第2届短篇游戏比赛亚军

第5届短篇游戏比赛冠军

全键盘~ 改

加入我们，或者，欢迎回来。

加入我们，或者，欢迎回来。

贵宾

VX城市地图大赛冠军

第1届RMTV比赛冠军

第1届TG大赛冠军

RMVX自由创作大赛亚军

第2届短篇游戏比赛亚军

第5届短篇游戏比赛冠军

全键盘~ 改