金猪脚本（原飞猪脚本）以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

闲来无事，小编今天整理答疑文档和以前学习笔记的时候，发现了一些比较个人认为比较实用的小代码和小技巧，在此跟大家一起分享下

关于注释  按键精灵的注释其实有三种方法： // 这是一行脚本注释（第一种） '以下是多行脚本注释（第二种）

之前经常看到有童鞋写一段代码，想要注释的时候就直接选中这一段代码，添加//后注释，

但是这种方法其实并不好用，小编强力推荐关于一段代码的注释用二三俩种方法搭配使用：

获取小精灵所在目录

之前有不少脚本作者问过小编如何获取小精灵所在的目录，检测小精灵是否有被破解过，这边就分享下API，如何获取小精灵所在目录的代码

相关代码

复制代码

关于监控日志  

好的脚本如上图所示通常都会自带一个脚本运行状态监控框，可以

很直观的看出脚本目前的一个运行状态，用按键如何能实现类似的效果呢？

相关核心代码

Dimenv 日志_最大数量 Dimenv 日志_当前内容 Dimenv 日志_全部内容 Sub 初始化日志(max) 日志_最大数量 = max - 1 日志_当前内容 = "" 日志_全部内容 = "" End Sub Sub 添加日志(text) 日志_全部内容 = 日志_全部内容 & text & VBCRLF If 日志_当前内容 = "" Then  日志_当前内容 = text Else 日志_当前内容 = 日志_当前内容 & "|" & text End If 日志_临时数组 = Split(日志_当前内容, "|") 日志_当前内容 = "" For i = UBound(日志_临时数组) To UBound(日志_临时数组) - 日志_最大数量 Step - 1  If i >= 0 Then  日志_当前内容 = 日志_临时数组(i) & "|" & 日志_当前内容 End If Next 日志_当前内容 = Left(日志_当前内容, Len(日志_当前内容) - 1) End Sub Sub 保存日志(path) Dim fso, fobj Set fso = CreateObject("scripting.FileSystemObject") Set fobj = fso.OpenTextFile(path, 2, True) fobj.Write 日志_全部内容 fobj.Close Set fobj = Nothing Set fso = Nothing End Sub

具体是如何运用的呢？大家可以根据自己的需求进行调用啦，

小编这边拉几个控件、写几个控件事件稍微演示下 控件事件

复制代码

演示