Question

我已经searching for a solution to an issue of wrapping an .hta file进入.exe，因此用户只需点击即可。我正在处理的应用程序是一组批处理脚本，它们通过.hta从GUI加载。我尝试了各种Google搜索解决方案，包括HTAEdit。所有似乎都没有正确创建.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>

Answer 1

对于那些可能在将来偶然发现这个问题的人。

在多次下载各种.hta到.exe应用程序之后，格式化更改和其他可能的自搜索解决方案。我在堆栈上发现了这个thread，它最终提供了所需状态的功能，但没有增加头痛。

如果需要，我可以将文件bat2exe并获得所需的代码混淆。

将.Hta转换为.Exe

1 个答案: