蓝牙PPT翻页软件，PPT翻页一个软件就搞定！

#0x00.动机
做PPT演示真离不开翻页笔，没有翻页笔就只能站在自己电脑前面点鼠标，或者拿着自己的无线鼠标来用，也是挺不方便的。
专门买个翻页笔吧感觉不是很有必要，所以就搜了一下网上现有的解决方案，比如Teamviewer、PPT遥控器、百度袋鼠等，怎么说呢，好处就不说了，毕竟功能很全，但是缺点就是应用庞大功能繁杂，要联网，有BUG。

所以想了一下，要不自己做个稳定简单的吧。

---

#0x01.思路
由于之前体验了一些通过网络连接的现成的翻页APP，感觉卡顿还是很明显的，可能与当时所处的网络状态有关吧。所以为了避免这种不稳定的情况，也为了能在没有网的情况下使用，无线通信部分选用稳定可靠的蓝牙方式。

所以思路就是APP通过蓝牙串口连接电脑，APP发送一些简单的数据，电脑根据接收到的数据进行PPT往下翻页与往上翻页即可。

---

#0x02.电脑端程序思路
目前大部分智能手机都配备了蓝牙模块，但是电脑则不一定，如果你的电脑支持蓝牙功能，那么很okay，只需要开启蓝牙虚拟串口即可；如果不支持，那么可能就比较麻烦了，只能想想别的办法，或者就是淘宝一个USB蓝牙串口，哈哈，如果有兴趣的话。

如何开启蓝牙的虚拟串口，win10的方法如下：
win10开启蓝牙虚拟串口的方法
如果不是win10也能参考一下，win7win8百度可以找到方法，大同小异。

接下来是程序设计，主要思路如下：
1.使用VB创建简单的串口通信的例子，能够接收串口的数据
2.根据接收到的数据模拟鼠标单击实现PPT往下翻，模拟鼠标滚轮上滚实现PPT往上翻

其中VB有专门的串口控件，MSComm，而VB要模拟鼠标事件，只需要用到API函数mouse_event。

实际代码中在串口事件中如下：

Private Sub MSComm1_OnComm()
    Dim rev As String
    If MSComm1.CommEvent = comEvReceive Then
    
        rev = MSComm1.Input
    
        If rev = "D" Then
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
            Sleep 20
            mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
        End If
        
        If rev = "U" Then mouse_event MOUSEEVENTF_WHEEL, 0, 0, 120, 0
    End If
End Sub

可见，当串口收到D时模拟鼠标单击，串口收到U时模拟鼠标滚轮往上滚动。

运行效果如下：

最小化后播放PPT即可。

#0x03.Android APP
根据电脑端软件的特点——当串口收到D时模拟鼠标单击，串口收到U时模拟鼠标滚轮往上滚动，所以Android APP可以直接去网上下载蓝牙串口助手，SSP等软件，都是可以用的。

不过为了使用方便，将以前的一个项目——"通用蓝牙控制APP"拿来使用，这个APP的好处是可以用滑动显示器的方法来用蓝牙串口发送数据，数据完全由用户自定义。

下载后默认情况下，下滑、右滑、双击则会发送D表示往下翻页，上滑、左滑发送U表示往上翻页。

#0x04.下载链接
蓝牙PPT翻页器（PC+Android APP）
安智市场APP链接

#0x05.异常处理
为了PC端程序轻便，没有制作安装包，所以程序运行时可能缺少必要的组件，该程序中主要运用了mscomm32.ocx这个提供串口服务的组件，如果你的电脑中已经存在并注册了该组件则程序可以正常运行，如果没有则需要下载并注册。具体方法如下：
参考链接【百度经验——如何注册串口插件mscomm32.ocx】
参考链接【简书——win10注册MSCOMM32控件及简单使用】