Private Sub Command0_Click()
If MsgBox("你确认要启用Shift键吗?", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbYes Then
OpenBypassKey
End If
End Sub
为Command1增加点击代码为:
Private Sub Command1_Click()
If MsgBox("你确认要禁用Shift键吗?", vbYesNo + vbQuestion +
vbDefaultButton2, "提示") = vbYes Then
CloseBypassKey
End If
End Sub 作者: pq318 时间: 2011-5-26 15:10
用select case 联入只有你才能进去的窗体,这个可以说是后门吧,以后的开发改进都的从这个地方进入了作者: dejoy 时间: 2011-5-26 18:31 本帖最后由 dejoy 于 2011-5-26 18:49 编辑