判断软件进程是否存在源码 不存在则销毁结束自身

.判断开始 (进程_是否存在 (“被监控.exe”, 假) ＝ 假)
    透明标签1.文本颜色 ＝ #红色  ' 进程不存在时透明标签的颜色
    透明标签1.标题 ＝ “心跳检测错误，请检查相关软件是否运行正常=-=”  ' 进程不存在时透明标签的文字
    播放音乐 (#警报, 真)  ' 进程不存在时播放的警报
    调试输出 (“不存在进程”)  ' 调试输出文本
.默认
.判断结束
.判断开始 (进程_是否存在 (“被监控.exe”, 真) ＝ 真)  ' 判断进程是否存再
    透明标签1.标题 ＝ “心跳检测正常，程序正常运行中！”  ' 进程存再那么透明标签的文本为正常
.默认
.判断结束
.判断开始 (进程_是否存在 (“被监控.exe”, 假) ＝ 假)  ' 进程是否存再
    延时 (4900)  ' 延时播放警报在销毁，但是延时会假死程序，延迟会有点bug 不知道怎么处理，有能力的可以改一下
    销毁 ()  ' 销毁窗口
    结束 ()  ' 结束程序
    调试输出 (“进程不存在销毁自身”)  ' 调试输出文本