【院刊】-【201504期】小知识分享—注释、目录、监控三重奏 _ 学院院刊

查看: 28909\|回复: 76	[技术交流] 【院刊】-【201504期】小知识分享—注释、目录、监控三重奏 [复制链接]

果兒

组别初中三年级
UID2220985
帖子396
精华0
鲜花532 朵
铜币2506 个
银币334 个
在线时间480
注册时间2013-10-27

1^#

字体大小: t T

发表于 2015-04-17 16:51 | |只看楼主

小知识分享—注释、目录、监控三重奏

本文由按键学院提供技术支持

按键学院交流群（1群已满）：376122403

零基础学按键精灵群（2群）：372671254

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

关于注释

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

这里是多行注释的内容（第三种）

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

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

: 您所在的用户组无法下载或查看附件

获取小精灵所在目录

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

相关代码

'/* 获取进程文件路径
Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
//上面这句至关重要的，调用api接口的声明，声明好之后，就可以愉快的调用api函数
Function ExePath()
RetStr = Space(260)
GetModuleFileName 0, RetStr, 260
ExePath = Left(RetStr, InStrRev(RetStr, "\"))
End Function
Function ExeFile()
RetStr = Space(260)
GetModuleFileName 0, RetStr, 260
ExeFile = RetStr
End Function
TracePrint ExePath
TracePrint ExeFile
'*/

复制代码

关于监控日志

: 您所在的用户组无法下载或查看附件

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

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

相关核心代码

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

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

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

控件事件

//添加控件进行测试
Event Form2.Button1.Click
累加 = 累加 + 1
添加日志 "这是一条日志，" & 累加
Form2.ListBox1.List = 日志_当前内容
End Event
Event Form2.Load
Call 初始化日志(5)
End Event
Event Form2.Button2.Click
保存日志 "c:\123.txt"
End Event

复制代码

演示

: 您所在的用户组无法下载或查看附件

谢谢大家阅读，记得给小编送支花花！顺手点个赞

[tr=rgb(143, 188, 143)]


按键精灵免费公开课	回实战班：回合制通用教学火热报名
【听课对象】：对按键精灵感兴趣的同学们都可以来~ 【上课地点】：零基础学按键精灵群（372671254）【上课时间】：周天晚上19:30-21:00 【上课内容】：按键精灵脚本基础经验谈——图色命令	本期重点：回合制游戏--神武学习时效：终生有效上课时间：周2、周4、周6的 20：00--22：00 导师：工程师07 技术支持：果儿（院刊编辑）
点我进入按键学院报名啦招生细节进群咨询招生办主任：2群-372671254（优先加入） 1群-376122403

已有6评分我要评分查看所有评分

本主题由超级版主瑞祥幽冥狼于 2022/4/19 16:41:21 执行审核帖子操作

按键学院免费交流群：376122403

按键学院招生计划
按键学院系统教程

回顶部

发送短消息 UID 3389822 帖子 84 精华 0 鲜花 4 朵铜币 440 个银币 1 个性别在线时间 8160 注册时间 2015-07-25 最后登录 2022-01-29 查看公共资料搜索主题搜索帖子 godisagirl godisagirl 组别小学四年级 UID3389822 帖子84 精华0 鲜花4 朵铜币440 个银币1 个在线时间8160 注册时间2015-07-25 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com 单身汪勋章单身贵族的专属勋章	2^# 字体大小: t T 发表于 2016-10-21 19:28 \| \|只看该用户厉害了，学习厉害了，学习厉害了，学习厉害了，学习厉害了，学习


	回顶部

发送短消息 UID 833117 帖子 182 精华 0 鲜花 15 朵铜币 276 个银币 29 个性别在线时间 3360 注册时间 2011-10-20 最后登录 2023-10-14 287709510 查看公共资料搜索主题搜索帖子 times701 times701 组别初中一年级 UID833117 帖子182 精华0 鲜花15 朵铜币276 个银币29 个在线时间3360 注册时间2011-10-20	3^# 字体大小: t T 发表于 2016-10-22 16:57 \| \|只看该用户


	回顶部

发送短消息 UID 833117 帖子 182 精华 0 鲜花 15 朵铜币 276 个银币 29 个性别在线时间 3360 注册时间 2011-10-20 最后登录 2023-10-14 287709510 查看公共资料搜索主题搜索帖子 times701 times701 组别初中一年级 UID833117 帖子182 精华0 鲜花15 朵铜币276 个银币29 个在线时间3360 注册时间2011-10-20	4^# 字体大小: t T 发表于 2016-10-22 17:22 \| \|只看该用户


	回顶部

发送短消息 UID 4146959 帖子 11 精华 0 鲜花 0 朵铜币 38 个银币 0 个性别在线时间 880 注册时间 2016-10-04 最后登录 2019-03-18 查看公共资料搜索主题搜索帖子 wzch111 组别幼儿园 UID4146959 帖子11 精华0 鲜花0 朵铜币38 个银币0 个在线时间880 注册时间2016-10-04	5^# 字体大小: t T 发表于 2016-10-30 00:54 \| \|只看该用户 22222222222222


	回顶部

发送短消息 UID 2299716 帖子 158 精华 0 鲜花 -4 朵铜币 237 个银币 1 个性别在线时间 8380 注册时间 2013-12-15 最后登录 2017-05-30 454938266 查看公共资料搜索主题搜索帖子 aa22463548 aa22463548 组别初中一年级 UID2299716 帖子158 精华0 鲜花-4 朵铜币237 个银币1 个在线时间8380 注册时间2013-12-15 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com 小红帽对论坛提出良好建议（可向管理员申请）	6^# 字体大小: t T 发表于 2016-11-02 16:32 \| \|只看该用户木木木棒大dddd


	回顶部

发送短消息 UID 1777173 帖子 110 精华 0 鲜花 -1 朵铜币 196 个银币 -1 个性别在线时间 2340 注册时间 2013-05-01 最后登录 2017-10-10 85433693 查看公共资料搜索主题搜索帖子 wb13937441412 wb13937441412 组别小学六年级 UID1777173 帖子110 精华0 鲜花-1 朵铜币196 个银币-1 个在线时间2340 注册时间2013-05-01	7^# 字体大小: t T 发表于 2016-11-03 11:38 \| \|只看该用户但是发生大幅度释放速度


	回顶部

发送短消息 UID 4140643 帖子 18 精华 0 鲜花 0 朵铜币 70 个银币 0 个性别在线时间 2480 注册时间 2016-09-29 最后登录 2019-11-10 80508 查看公共资料搜索主题搜索帖子 eyinan eyinan 组别幼儿园 UID4140643 帖子18 精华0 鲜花0 朵铜币70 个银币0 个在线时间2480 注册时间2016-09-29	8^# 字体大小: t T 发表于 2016-11-04 10:09 \| \|只看该用户学习一下，谢谢。


	回顶部

发送短消息 UID 4019539 帖子 59 精华 0 鲜花 0 朵铜币 105 个银币 0 个性别在线时间 2000 注册时间 2016-07-17 最后登录 2018-01-28 查看公共资料搜索主题搜索帖子 yu520430 yu520430 组别小学三年级 UID4019539 帖子59 精华0 鲜花0 朵铜币105 个银币0 个在线时间2000 注册时间2016-07-17	9^# 字体大小: t T 发表于 2016-11-04 13:45 \| \|只看该用户 11111111111111111


	回顶部

发送短消息 UID 503388 帖子 41 精华 0 鲜花 0 朵铜币 90 个银币 0 个性别在线时间 800 注册时间 2010-09-21 最后登录 2016-12-24 82989894 查看公共资料搜索主题搜索帖子 lishuo12 lishuo12 组别小学二年级 UID503388 帖子41 精华0 鲜花0 朵铜币90 个银币0 个在线时间800 注册时间2010-09-21	10^# 字体大小: t T 发表于 2016-11-04 14:32 \| \|只看该用户好东西啊


	回顶部

发送短消息 UID 175852 帖子 79 精华 0 鲜花 4 朵铜币 113 个银币 4 个性别在线时间 3020 注册时间 2008-04-19 最后登录 2022-07-31 查看公共资料搜索主题搜索帖子 weng83 weng83 组别小学四年级 UID175852 帖子79 精华0 鲜花4 朵铜币113 个银币4 个在线时间3020 注册时间2008-04-19	11^# 字体大小: t T 发表于 2016-11-04 20:49 \| \|只看该用户 11111111111111


	回顶部

发送短消息 UID 3494127 帖子 24 精华 0 鲜花 1 朵铜币 62 个银币 0 个性别在线时间 2640 注册时间 2015-09-30 最后登录 2016-12-16 查看公共资料搜索主题搜索帖子 7898321 组别幼儿园 UID3494127 帖子24 精华0 鲜花1 朵铜币62 个银币0 个在线时间2640 注册时间2015-09-30	12^# 字体大小: t T 发表于 2016-11-04 21:50 \| \|只看该用户好人一生平安


	回顶部

发送短消息 UID 1520777 帖子 18 精华 0 鲜花 1 朵铜币 51 个银币 0 个性别在线时间 880 注册时间 2012-12-31 最后登录 2017-01-06 517693551 查看公共资料搜索主题搜索帖子郑生郑生组别幼儿园 UID1520777 帖子18 精华0 鲜花1 朵铜币51 个银币0 个在线时间880 注册时间2012-12-31	13^# 字体大小: t T 发表于 2016-11-15 14:40 \| \|只看该用户原来注释还可以这样子，學習一下


	回顶部

发送短消息 UID 2318338 帖子 205 精华 0 鲜花 8 朵铜币 92 个银币 182 个性别在线时间 3760 注册时间 2013-12-29 最后登录 2017-06-23 475964358 查看公共资料搜索主题搜索帖子 tyu2218042 tyu2218042 组别初中一年级 UID2318338 帖子205 精华0 鲜花8 朵铜币92 个银币182 个在线时间3760 注册时间2013-12-29 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	14^# 字体大小: t T 发表于 2016-11-20 13:08 \| \|只看该用户学习学习


	回顶部

发送短消息 UID 851675 帖子 167 精华 0 鲜花 5 朵铜币 387 个银币 4 个性别在线时间 2460 注册时间 2011-11-02 最后登录 2024-08-19 312627078 查看公共资料搜索主题搜索帖子 lff283 lff283 组别初中一年级 UID851675 帖子167 精华0 鲜花5 朵铜币387 个银币4 个在线时间2460 注册时间2011-11-02	15^# 字体大小: t T 发表于 2016-11-20 14:24 \| \|只看该用户学习了谢谢


	回顶部

发送短消息 UID 163305 帖子 294 精华 0 鲜花 2 朵铜币 433 个银币 64 个性别在线时间 24620 注册时间 2008-01-02 最后登录 2023-01-05 查看公共资料搜索主题搜索帖子 popo21 popo21 组别初中二年级 UID163305 帖子294 精华0 鲜花2 朵铜币433 个银币64 个在线时间24620 注册时间2008-01-02	16^# 字体大小: t T 发表于 2016-11-22 00:59 \| \|只看该用户学习学习


	回顶部

发送短消息 UID 3792444 帖子 5 精华 0 鲜花 0 朵铜币 24 个银币 0 个性别在线时间 140 注册时间 2016-03-05 最后登录 2021-03-15 查看公共资料搜索主题搜索帖子 x331275955 组别幼儿园 UID3792444 帖子5 精华0 鲜花0 朵铜币24 个银币0 个在线时间140 注册时间2016-03-05	17^# 字体大小: t T 发表于 2016-11-23 22:41 \| \|只看该用户真心想学、


	回顶部

发送短消息 UID 2899482 帖子 101 精华 0 鲜花 0 朵铜币 287 个银币 -2 个性别在线时间 820 注册时间 2014-11-26 最后登录 2019-04-29 422151999 查看公共资料搜索主题搜索帖子 13923768960 13923768960 组别小学五年级 UID2899482 帖子101 精华0 鲜花0 朵铜币287 个银币-2 个在线时间820 注册时间2014-11-26	18^# 字体大小: t T 发表于 2016-11-26 00:04 \| \|只看该用户 111111111111111


	回顶部

发送短消息 UID 2751683 帖子 610 精华 0 鲜花 -14 朵铜币 1665 个银币 149 个性别在线时间 11360 注册时间 2014-09-19 最后登录 2024-11-12 184068599 查看公共资料搜索主题搜索帖子 184068599 脚本定制：QQ：184068599 组别高中二年级 UID2751683 帖子610 精华0 鲜花-14 朵铜币1665 个银币149 个在线时间11360 注册时间2014-09-19 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	19^# 字体大小: t T 发表于 2016-11-26 15:02 \| \|只看该用户学习
	承接各类脚本 QQ：184068599

	回顶部

发送短消息 UID 4143956 帖子 62 精华 0 鲜花 0 朵铜币 197 个银币 0 个性别在线时间 1440 注册时间 2016-10-02 最后登录 2017-07-11 909767517 查看公共资料搜索主题搜索帖子 ddffbb ddffbb 组别小学三年级 UID4143956 帖子62 精华0 鲜花0 朵铜币197 个银币0 个在线时间1440 注册时间2016-10-02 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	20^# 字体大小: t T 发表于 2016-11-27 11:18 \| \|只看该用户 6666666666


	回顶部

上一主题| 下一主题

[技术交流] 【院刊】-【201504期】小知识分享—注释、目录、监控三重奏 [复制链接]