| 名称 | SetMode 设置模式 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 功能 | 设置无涯键鼠盒子的工作模式,只对当前的设备对象有效。使用Open打开设备后才可以使用它。 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 参数 | 参数1 属性:32位整型数。 参数2 模式:32位整型数。
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 返回值 | 布尔值。成功返回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 wyhkm.SetMode 2,1 wyhkm.Close |