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
If wyhkm.IsKeyBusy() Then
    MsgBox "无涯键鼠盒子键盘繁忙",4096
Else
    MsgBox "无涯键鼠盒子键盘空闲",4096
End If
wyhkm.Close