第1步：安裝。..

還有關(guān)于如何進(jìn)行操作的說明在REAMDE.txt文件中執(zhí)行此操作。無論如何，如果還沒有，首先必須在C驅(qū)動器中創(chuàng)建一個(gè)名為“ temp”的文件夾。另外，如果尚未安裝Java，則可以從此處獲取。接下來，下載duckencode.jar并將文件移至c： temp文件夾。接下來，解壓縮一個(gè).zip文件，如果使用的是非編譯版本，請?jiān)谂c‘ico.ico’和‘pic.gif’相同的目錄中運(yùn)行Duck.hta。或者，如果您使用的是已編譯的.exe，只需運(yùn)行“ Duck.exe”。

現(xiàn)在我們可以繼續(xù)下一步。..

步驟2：用法。..

此程序非常簡單，要使用它，只需單擊“從剪貼板粘貼”即可自動粘貼您的代碼?；騿螕魪奈谋疚募虞d，以從文本文件加載腳本。然后，您的代碼將顯示在下面的文本框中。對您的代碼進(jìn)行任何最終更改，然后點(diǎn)擊“編碼”。導(dǎo)航到c： temp并將“ inject.bin”移動到USB Rubber Ducky。

您可能想知道什么是script.txt。它是文本框中未編譯的代碼。

注意：如果要制作一個(gè)小的腳本，只需在文本框中輸入代碼即可?？焖俸啽愕販y試USB Rubber Ducky。

如果要了解有關(guān)vbs中的GUI以及該程序的制作方式的更多信息，請?zhí)料乱徊?，否則：

感謝閱讀此說明，如果您有任何問題，意見或疑慮，請發(fā)表評論或下午給我。

第3步： VBScript中的GUI

因此，可以在vbs中制作GUI。您的操作方式是將文本包裝在HTA中。如果您還不知道，HTA是一種與html非常相似的腳本語言，僅用于將GUI中的腳本（例如vbscript和jscript）包裝起來。詳細(xì)說明和教程在這里。

現(xiàn)在，您知道hta是什么，讓我給您一些有關(guān)如何輕松撰寫論文的提示。首先下載下面的HTA helpomatic（圖2）。不幸的是，原始鏈接不再有效，但是幸運(yùn)的是我不久前保存了一份副本。下一步，下載并安裝htaedit附帶的vbsedit。

擁有了這兩個(gè)程序之后，您真的不需要html/hta經(jīng)驗(yàn)就可以開始制作GUI。這對像我這樣的人非常有用，他們不想只是為了制作GUI而學(xué)習(xí)。

現(xiàn)在繼續(xù)下一步，看看我是如何制作Duck編碼器的。

第4步：如何做到

所以，首先：

APPLICATIONNAME=“Duck Encoder”

ID=“DuckEncoder”

VERSION=“1.0”

BORDER=“dialog”

INNERBORDER=“no”

MAXIMIZEBUTTON=“no”

ICON=“ico.ico”

SCROLL=“no”

這將設(shè)置一個(gè)

Sub Window_OnLoad

self.resizeTo 400， 454

Dim objFso ： Set objFso = CreateObject（“Scripting.FileSystemObject”）

If Not objFso.FileExists（“c： empduckencode.jar”） Then

MsgBox “Error， file not found： c： empduckencode.jar”，16，“Duck Encoder”

Self.close（）

End If

End Sub

接著，此子程序在每次啟動程序時(shí)自動運(yùn)行。它的作用是調(diào)整窗口大小，然后檢查以確?！甦uckencode.jar’在正確的目錄中。

Sub OnClickButtonbtnLoad（）

Dim objShlApp， objFolderLocation， strFileLocation， objFso， objFolder， colFiles， strTextFileList， objFile

Dim strCompleteText

Set objFso = CreateObject（“Scripting.FileSystemObject”）

Set objShlApp = CreateObject（“Shell.Application”）

On Error Resume Next

Set objFolderLocation = objShlApp.BrowseForFolder（0， “Browse for folder containing the file： ”，16384，0）

If Err.Number 《》 0 Then

MsgBox “You must select the FOLDER containing the file.”，16，“Duck Encoder”

Err.Clear（）

Else

If objFolderLocation = “” Then Exit Sub

On Error Goto 0

Set objFolder = objFso.GetFolder（objFolderLocation.Self.Path & “”）

Set colFiles = objFolder.Files

strTextFileList = “”

For Each objFile In colFiles

If InStr（objFile.Name，“.txt”） 《》 False Then

strTextFileList = strTextFileList & objFile.Name & vbCrLf

End If

Next

strFileLocation = InputBox（“Please enter the correct text file you wish to encode： ” & vbCrLf & vbCrLf & strTextFileList，“Ducky Encoder”）

If Not IsEmpty（strFileLocation） Then

If Not objFso.FileExists（objFolderLocation.Self.Path & “” & strFileLocation） Then

MsgBox “Error， you must choose a text file from the list！”，16，“Duck Encoder”

Else

On Error Resume Next

strFileLocation = objFolderLocation.Self.Path & “” & strFileLocation

Set objFile = objFso.OpenTextFile（strFileLocation，1，F(xiàn)ALSE）

txtScript.Value = objFile.ReadAll

objFile.Close（）

If Err.Number 《》 0 Then

MsgBox “Text file is empty.”，16，“Duck Encoder”

End If

End If

End If

End if

End Sub

好，這部分代碼確實(shí)令人困惑，這是用戶單擊“從文本文件加載”時(shí)的代碼。由于實(shí)際上不可能在hta中創(chuàng)建打開文件對話框，因此該程序會彈出瀏覽文件夾對話框，要求用戶選擇包含腳本文件的文件夾。然后，程序打開一個(gè)輸入框，詢問用戶要在該文件夾中加載哪個(gè)文本文件。然后程序會讀取文件中的內(nèi)容并將其放在文本框中。

Sub OnClickButtonbtnPaste（）

Dim objHTML， ClipboardText

Set objHTML = CreateObject（“htmlfile”）

ClipboardText = objHTML.ParentWindow.ClipboardData.GetData（“text”）

If IsNull（ClipboardText） = True Then

MsgBox “Nothing in the clipboard！”，16，“Duck Encoder”

Else

txtScript.Value = ClipboardText

End If

End Sub

所有這些代碼都是在用戶單擊“從剪貼板粘貼”時(shí)加載的，從剪貼板到文本框的文本。

步驟5：我的制作方法（第2部分）

Sub OnClickButtonbtnEncode（）

If txtScript.Value = “” Then

MsgBox “There is no code！”，16，“Duck Encoder”

Else

Dim objFso， txtScriptFile

Set objFso = CreateObject（“Scripting.Filesystemobject”）

Set txtScriptFile = objFso.OpenTextFile（“c： empscript.txt”，2，True）

txtScriptFile.WriteLine（txtScript.Value）

txtScriptFile.Close（）

idTimer = window.setTimeout（“Compile”， 800， “VBScript”）

End If

End Sub

Sub Compile（）

window.clearTimeout（idTimer）

Dim objWshShl ： Set objWshShl = CreateObject（“WScript.Shell”）

objWshShl.Run “java.exe -jar c： empduckencode.jar -i c： empscript.txt -o c： empinject.bin”，0

‘MsgBox “Script compiled to inject.bin in c： emp”，vbOKOnly+vbInformation，“Ducky Encoder”

End Sub

此代碼運(yùn)行當(dāng)您單擊“編碼”時(shí)。

它的作用是創(chuàng)建一個(gè)名為script.txt的文本文件，并將文本框中的內(nèi)容放入其中。然后等待0.8秒，然后對其進(jìn)行編譯。

其余代碼僅創(chuàng)建GUI。如果您了解基本的hta，則非常不言自明。
責(zé)任編輯：wv