| 名称 | SetResetTime 设置复位时间 |
|---|---|
| 功能 | 设置无涯键鼠盒子的延时复位时间。盒子内有个计时器,使用该函数后,时间到了就会使盒子复位。无论使用这个函数还是其它访问盒子的键鼠命令,都会使计时器重新计时。复位后计时器失效,需要使用该函数重新设置。无涯键鼠盒子有时在特殊情况下会出现通讯异常,或者程序突然退出导致按下的键无法弹起,这个函数可以免去这些情况下插拔盒子烦恼。如果条件允许,尽量在停止无涯键鼠盒子操作后关闭延时复位。因为正常的键盘和鼠标除非接触不良,一般不会出现复位现象。无涯键鼠盒子基础版一代不支持此函数。使用Open打开设备后才可以使用它。 不会访问盒子的函数有:GetVersion、 IsOpen、 Close、 SetMode、 SetKeyInterval、 SetMouseInterval、 SetAbsMouseScrnRes、 SetMouseMoveTimeout、 SetMousePosMaxOffset、 SetMousePosPrecision、 DelayRnd、 CheckPressedKeys、 IsOSMouseAccelerateEnabled、 EnableOSMouseAccelerate、 GetOSMouseSpeed、 SetOSMouseSpeed、GetDevString。 |
| 参数 | 参数1 延时时间:32位整形数。单位毫秒。取0时关闭延时复位。非0时最小值是50毫秒,最大值是19小时。 参数2 是否鼠标:布尔值。取false时,自动设置延时复位时间,如果同时有键盘模式或者鼠标模式的设备,设置键盘模式的设备的延时复位时间。取true时,自动设置延时复位时间,如果同时有键盘模式或者鼠标模式的设备,设置鼠标模式的设备的延时复位时间。 |
| 返回值 | 布尔值。成功返回true,失败返回false。 |
| vbs 例子 |
Dim DevId DevId=wyhkm.SearchDevice(&h1234&,&hABCD&,0) If DevId=-1 Then MsgBox "未找到无涯键鼠盒子",4096 wscript.quit End If If Not wyhkm.Open(DevId,0) Then MsgBox "打开无涯键鼠盒子失败",4096 wscript.quit End If Do wyhkm.SetResetTime(1000,false) wyhkm.DelayRnd(90,120) Loop wyhkm.Close |