蓝牙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 IfEnd Sub

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

运行效果如下：

最小化后播放PPT即可。

0x03.Android APP

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

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

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

0x04.下载链接

蓝牙PPT翻页器（PC+Android APP）
安智市场APP链接