|
|
Posted by rob.fahndrich@gmail.com on 08/14/07 19:01
On Aug 14, 1:50 pm, Jim Moe <jmm-list.AXSPA...@sohnen-moe.com> wrote:
> rob.fahndr...@gmail.com wrote:
> >> are there any freeware/open source tools available to "wrap" an HTA
> >> and all associated files into a single .exe???
>
> What's a HTA?
> What do you mean by "wrap"?
> What use is an exe on the WWW?
>
> --
> jmm (hyphen) list (at) sohnen-moe (dot) com
> (Remove .AXSPAMGN for email)
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.
Navigation:
[Reply to this message]
|