別眨眼網

金豬指令碼（原飛豬指令碼）以按鍵精靈教學為主，涉及UiBot，Python，Lua等指令碼程式語言，教學包括全自動辦公指令碼，遊戲輔助指令碼，引流指令碼，網頁尾本，安卓指令碼，IOS指令碼，註冊指令碼，點贊指令碼，閱讀指令碼以及網賺指令碼等各個領域。想製作指令碼和學習按鍵精靈的朋友可以新增按鍵精靈學習交流群：554127455 學習路上不再孤單，金豬指令碼伴你一同成長。

閒來無事，小編今天整理答疑文件和以前學習筆記的時候，發現了一些比較個人認為比較實用的小程式碼和小技巧，在此跟大家一起分享下

關於註釋

按鍵精靈的註釋其實有三種方法：

// 這是一行指令碼註釋（第一種）

‘以下是多行指令碼註釋（第二種）

/*

這裡是多行註釋的內容（第三種）

*/

之前經常看到有童鞋寫一段程式碼，想要註釋的時候就直接選中這一段程式碼，新增//後註釋，但是這種方法其實並不好用，小編強力推薦關於一段程式碼的註釋用二三倆種方法搭配使用：

獲取小精靈所在目錄

之前有不少指令碼作者問過小編如何獲取小精靈所在的目錄，檢測小精靈是否有被破解過，這邊就分享下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

複製程式碼

演示