Wrap HTA into a single .exe?????

H

Harlan Messinger

Jim said:
What's a HTA?
Click to expand...

HyperText Application. A Microsoft locally "executable" application that
runs on top of IE and is written in an extended form of HTML.
What do you mean by "wrap"?
What use is an exe on the WWW?
Click to expand...

You're in alt.html at the moment. Discussion isn't restricted to the WWW
as it is in comp.infosystems.www.*.
 
R

rob.fahndrich

What's a HTA?
What do you mean by "wrap"?
What use is an exe on the WWW?
Click to expand...

HTA is HyperTextApplication
you use html, javascript, vbscript to create applications

example---


<html>
<head>
<title>HTA Test</title>
<HTA:APPLICATION
ID = "oApp"
APPLICATIONNAME = "TEST"
BORDER = "normal"
BORDERSTYLE = "normal"
CAPTION = "no"
ICON = "explorer.exe"
SHOWINTASKBAR = "no"
SINGLEINSTANCE = "yes"
SYSMENU = "no"
WINDOWSTATE = "normal"
SCROLL = "no"
SCROLLFLAT = "no"
VERSION = "1.2"
INNERBORDER = "yes"
SELECTION = "no"
MAXIMIZEBUTTON = "no"
MINIMIZEBUTTON = "no"
NAVIGABLE = "no"
CONTEXTMENU = "no"
<style type="text/css">
..bluetext {font-family: Comic Sans MS; font-size: 10pt; color:
blue;text-decoration: none;cursor: default;}
..redtext {font-family: Comic Sans MS; font-size: 10pt; color: red;text-
decoration: none;cursor: default;}
..whitetext {font-family: Comic Sans MS; font-size: 10pt; color:
white;text-decoration: none;cursor: hand;}
</style>


</head>

<SCRIPT Language="VBScript">
Sub Window_Onload


CitrixPN.style.visibility="hidden"
VisionAPP.style.visibility="hidden"

strComputer = "."
On Error Resume Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root
\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
if (objPrinter.Attributes AND 4) = 4 then _
DataArea.InnerHTML = "<p class='redtext'>" & objPrinter.Name & "</
p>"
Next

Set objNet = CreateObject("WScript.NetWork")
UserName.InnerHTML = "<p class='redtext'>" & objNet.UserName & "</
p>"

Set objNet = CreateObject("WScript.NetWork")
ComputerName.InnerHTML = "<p class='redtext'>" & objNet.ComputerName
& "</p>"

set wsh = WScript.CreateObject ("WScript.Shell")
Select Case LCase(objNet.UserName)

Case "test"
CitrixPN.style.visibility="visible"
VisionAPP.style.visibility="visible"

End Select

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root
\cimv2")

Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True")

n = 1

For Each objAdapter in colAdapters
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
IPSpan.InnerHTML = "<p class='redtext'>" & objAdapter.IPAddress(i)
& "</p>"
Next
End If

n = n + 1

Next

End Sub
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Sub VisionAPPRDP
On Error Resume Next
set wshshell = CreateObject("WScript.Shell")
wshshell.run """C:\Program Files\visionapp\visionapp Remote Desktop
\vrd.lnk""", 1, FALSE
End Sub

Sub PrattPN
On Error Resume Next
set wshshell = CreateObject("WScript.Shell")
wshshell.run "C:\Progra~1\Citrix\ICACli~1\pn.exe /PN:""PWCS Farm""",
1, FALSE
End Sub

Sub ExitProgram
window.close()
End Sub

</SCRIPT>

<body topmargin="0" leftmargin="0" rightmargin="0" bgcolor="#C0C0C0">

<div id="TimeHeader" align="center" style="background-color:blue">
<table border="0" width="100%" class="blutest" height="10">
<tr>
<td align="center" width="100%">
<script language="javascript">
function det_time(){
var d = new Date();
var dstr = d.toLocaleString();
document.getElementById('time').innerHTML = dstr;
}
</script>
<div id="time" name="time" style="font-family:comic sans ms;font-
size:11pt;color:white;font-weight:normal;text-align:CENTER;"><br></
div>
<script language="javascript">
det_time();
setInterval("det_time()", 1000);
</script>
</td>
</tr>
</table>
</div>

<div id="Header" align="center" style="background-color:yellow">
<table border="0" width="100%" class="bluetext">
<tr>
<td align="right" width="56%">
Current Default Printer is:
</td>
<td align="left" width="44%">
<span id = "DataArea"></span>
</td>
</tr>
<tr>
<td align="right" width="56%">
Current Username is:
</td>
<td align="left" width="44%">
<span id = "UserName"></span>
</td>
</tr>
<tr>
<td align="right" width="56%">
Current Computer Name is:
</td>
<td align="left" width="44%">
<span id = "ComputerName"></span>
</td>
</tr>
<tr>
<td align="right" width="56%">
Current IP Address is:
</td>
<td align="left" width="44%">
<span id = "IPSpan"></span>
</td>
</tr>
</table>
</div>

<div id="TimeFooter" align="center" style="background-color:blue">
<table border="0" width="100%" class="blutest">
<tr>
<td align="center" width="100%" height="10">
</td>
</tr>
</table>
</div>
<br>

<div id="buttons" align="center">
<button style="background-color:blue" class="whitetext"
name="CitrixPN" onclick="PrattPN" style="width: 258; height:
26">Citrix Program Neighborhood</button><p>
<button style="background-color:blue" class="whitetext"
name="VisionAPP" onclick="VisionAPPRDP" style="width: 258; height:
26">VisionAPP RDP</button><p>
<button style="background-color:blue" class="whitetext"
name="CloseWindow" onclick="ExitProgram" style="width: 258; height:
26" >Close</button><p>
<br>
</div>

</body>
</html>

<script language="vbscript">
'Option Explicit
PositionWindow()
Sub PositionWindow()
Dim WindowWidth, WindowHeight, LeftPos, TopPos
WindowWidth = 375
WindowHeight = 500
LeftPos = (screen.availWidth - WindowWidth) / 2
TopPos = (screen.availHeight - WindowHeight) / 2
window.resizeTo WindowWidth, WindowHeight
window.moveTo LeftPos, TopPos
End Sub
</script>

<script type="text/javascript">
function startProg(myPath)
{
var WshShell = new ActiveXObject("wscript.shell");
WshShell.Run("\""+myPath);
}
</script>


--------------------------------------------------------------------------------------------------------------------------------------


save this code with an extension of .hta
when you launch it the MSHTA.EXE will run it as an application.

when I say WRAP up in an .exe i would like to take my .hta file and
any images (icons, logos, graphics, etc..) and create a single .exe
file to launch the hta.
I have seen an application called HTMLAPP that does this but it is not
very intuitive and is not free.
 
J

Jim Moe

save this code with an extension of .hta
when you launch it the MSHTA.EXE will run it as an application.
Click to expand...
Hmm. Is this safe? It would seem a variety of unfortunate code could be
added to such a file since it runs as an application. It sounds a bit like
the option Outlook offered to run executables that made it such a disaster.
 
R

rob.fahndrich

Hmm. Is this safe? It would seem a variety of unfortunate code could be
added to such a file since it runs as an application. It sounds a bit like
the option Outlook offered to run executables that made it such a disaster.
Click to expand...

this is used for useful applications. I would not execute an
application unless i knew what it was for or what it was doing, same
with an HTA.
but because an HTA is like HTML any images (icons, logos, etc) are
seperate files is why i would like to wrap them into a single .exe
file
 
H

Harlan Messinger

Harlan said:
HyperText Application. A Microsoft locally "executable" application that
runs on top of IE and is written in an extended form of HTML.
Click to expand...

I just discovered a common example. When you log into a Windows server
for the first time and it sets up a profile for you, it then launches a
"Manage Your Server" panel. This is an HTA application.
 
J

Jonathan N. Little

this is used for useful applications. I would not execute an
application unless i knew what it was for or what it was doing, same
with an HTA.
but because an HTA is like HTML any images (icons, logos, etc) are
seperate files is why i would like to wrap them into a single .exe
file
Click to expand...

This to MS crap, i.e., Windows only--MSIE only. Has nothing to do with
HTML and WWW. Try one of the MS newsgroups. Looks lake wat you need is
not HTA but to compile a app, VB maybe?
 
S

Sherm Pendley

Jonathan N. Little said:
This to MS crap, i.e., Windows only--MSIE only. Has nothing to do with
HTML and WWW.
Click to expand...

HTA is an HTML variant, and alt.html isn't chartered as WWW-only. I don't
find it interesting or relevant to what I do with HTML, but it's on-topic
in alt.html.

I wouldn't discuss it in comp.infosystems.www.authoring.html though, because
that specific group's charter is stricter, and the whole comp.* hierarchy of
groups is generally stricter about topicality than the alt.* groups.

sherm--
 
J

Jonathan N. Little

Sherm said:
HTA is an HTML variant, and alt.html isn't chartered as WWW-only. I don't
find it interesting or relevant to what I do with HTML, but it's on-topic
in alt.html.
Click to expand...

I suppose because an html document but relies on "jscript" to be an HTA
so would you not say this would be better suited for a Microsoft group
and a scripting one at that?
 
S

Sherm Pendley

Jonathan N. Little said:
I suppose because an html document but relies on "jscript" to be an
HTA so would you not say this would be better suited for a Microsoft
group and a scripting one at that?
Click to expand...

I didn't say this was the *best* group for it. I disagreed with your assertion
that it was off-topic here.

sherm--
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Wrap HTA into .exe 1
Help design HTA 0
How do I add an .EXE project to a solution of DLL's? 0
Flashing message in an HTA 28
Single put routine overlapping words during iteration 4
Codelite 0
ASP.Net <> HTA 8
Please critique this HTA (Change Database Remotely) 9

Members online

Total: 44 (members: 1, guests: 43)
Robots: 214

Forum statistics

Threads
473,764
Messages
2,569,566
Members
45,041
Latest member
RomeoFarnh

Latest Threads

Top