Я был searching for a solution to an issue of wrapping an .hta file в .exe, чтобы пользователи могли просто нажать и выйти. Приложение, над которым я работаю, представляет собой набор пакетных сценариев, которые загружаются из графического интерфейса через .hta. Я пробовал различные решения для googled, включая HTAEdit. Все, кажется, не правильно создают .exe или кажутся легкими мишенями для нового локального заражения.Преобразование .Hta to .Exe
HtaEdit, который кажется наиболее легитимным решением работало один раз, а затем постоянно выходит из строя, поэтому мои вопросы заключаются в следующем:
- Предполагая, что приведенный ниже код является правильным есть инструмент, что там на самом деле преобразует HTA в EXE?
- Хотя приведенный ниже код несколько длинный, будучи новичком в программировании вообще, я не уверен, что я что-то испортил?
(Код ниже работает в HTAEditor, но каждый рабочий день я стараюсь, чтобы преобразовать его, он не может завершить преобразование.)
Спасибо за ваше время, и жаль, это сообщение является похож на тот, который я связал выше, нет никаких других решений, которые я мог найти на Stack или Google.
<html>
<title>Foo</title>
<HTA:APPLICATION
ID="Foo"
APPLICATIONNAME="Foo"
BORDERSTYLE="raised"
ICON="Logos/icon.ico"
SINGLEINSTANCE="yes"
>
<SCRIPT LANGUAGE="VBScript">
Sub Window_onLoad
window.resizeTo 800,400
End Sub
Sub SubChooseScript
For Each Button In SecureOption
If Button.Checked Then
If Button.Value = "Category" Then
For Each objButton in RadioOption
If objButton.Checked Then
Select Case objButton.Value
Case "Selection One"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "Scripts\foo.bat"
self.close()
Case "Selection Two"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "Scripts\foo.bat"
self.close()
Case "Selection Three"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "Scripts\foo.bat"
self.close()
Case Else
MsgBox "Something bad happened. Please try again"
self.close()
End Select
End If
Next
End If
End If
If Button.Checked Then
If Button.Value = "Category Two" Then
For Each objButton in RadioOption
If objButton.Checked Then
Select Case objButton.Value
Case "Selection One"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "Scripts\foo.bat"
self.close()
Case "Selection Two"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "Scripts\foo.bat"
self.close()
Case "Selection Three"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "Scripts\foo.bat"
self.close()
Case Else
MsgBox "Something bad happened. Please try again"
self.close()
End Select
End If
Next
End If
End if
Next
End Sub
</SCRIPT>
<body>
<img src="Logos\logo.jpg" align="right" height="200" width="200"/>
<p><b>Radio Options One</b></p>
<div class="button-formatting">
<input type="radio" name="RadioOption" value="foo" id="foo"><b> <u>foo</u></b>
<label for="foo", style="font: 16px Arial"><i>-- bar.</i></label><BR>
<input type="radio" name="RadioOption" value="foo" id="foo"><b> <u>foo</u></b>
<label for="foo", style="font: 16px Arial"><i>-- bar.</i></label><BR>
<input type="radio" name="RadioOption" value="foo" id="foo"><b> <u>foo</u></b>
<label for="foo", style="font: 16px Arial"><i>-- bar.</i></label><P>
<p><b>Radio Options Two</b></p>
<input type="radio" name="foo" value="foo" id="foo"><b><u>foo</u></b>
<label for="foo", style="font: 16px Arial"><i>-- bar.</i></label><BR>
<input type="radio" name="foo" value="foo" id="foo"><b> <u>foo</u></b>
<label for="foo", style="font: 16px Arial"><i>-- bar.</i></label><BR>
</div><BR>
<input id=runbutton class="button" type="button" value="Options" name="run_button" onClick="SubChooseScript">
</body>
Htaedit также распаковывает exe в доступную структуру папок при выполнении exe. Я долгое время не работал с этим материалом, но я бы напомнил, что htaedit является коммерческим, поэтому вы должны платить за продолжение использования после пробного периода. – Teemu
@Teemu Нет, вам не придется платить, так как пробный период не истекает. Единственное, что, пока вы не платите, вы получаете раздражающее «Зарегистрируйтесь сейчас!» когда вы открываете HtaEdit. –
Хм .. Я бы вспомнил, что конверсия exe работала всего несколько раз в тропе, а затем перестала работать, если вы не заплатили. – Teemu