我已經創建了HTA使用下面的代碼一個GUI:如何保護HTML應用程序(HTA)?
Sub result ()
Dim strComputer, objShell, objExec, strPingResults, WshShell
strComputer = Trim(UCase(ComputerNameTextBox.Value))
Set WshShell = CreateObject("WScript.Shell")
Set objExec = WshShell.Exec("cmd.exe /c C: \Program Files (x86)\VMware\VMware vSphere CLI\bin & esxcli -s "&strComputer&" -u root -p NTMC_Admin network nic list ")
strPingResults = LCase(objExec.StdOut.ReadAll)
ResultsTextArea.Value = ""
ResultsHiddenText.Value = strComputer & vbTab
ResultsHiddenText.Value = strComputer & vbcr & vblf & strPingResults
ResultsTextArea.Value = ResultsTextArea.Value & strPingResults
CopyButton.Disabled = False
ResetButton.Disabled = False
' change mouse pointer back to default
Document.Body.Style.Cursor = "default"
End Sub
請幫我保護我的代碼,以便沒有人可以看到在任何視圖源的這個功能。
請爲代碼的語言添加標籤剪切(VBScript?) – hoijui