rss

Using an HTA to create a simple disk menu

A few years ago I volunteered to teach an introduction to computers class to an ambitious group of parents ready to make a career shift to office jobs.  I had little time available to prepare the training schedule and coursework and even less time to gather materials. This simple HTA combined with an autorun.ini on a disk creates a quick, easy to edit, easy to use, indexed, resource menu.

cdmenu

cdmenu.hta

<head>
    <title>Disk Menu</title>
    <hta:application applicationname="Disk Menu" scroll="yes" singleinstance="yes"
        maximizebutton="yes" minimizebutton="yes" selection="no">
    <style>
a{
    color: white;
}
 
    </style>    
</head>
 
<script language="VBScript">
'******************************************************************************
'* Disk Menu HTA
'* 
'* Modified: 02:27 PM 2006/09/26  -Jamie Bilinski
'******************************************************************************
 
On Error Resume Next
strComputer = "."
window.resizeTo 600,480
Set WshShell = CreateObject("Wscript.Shell")
Sub go(file)
WshShell.Run "autorun.exe "&file,0,FALSE
End Sub
<body style="font: 10 pt arial; color: white; >
    filter: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, 
    StartColorStr='#221133', EndColorStr='#668866')"
    <p style="font-size: 14pt; text-align: center;">
        <img src="top.jpg" style="border-right: gray outset; /></p>
     border-top: gray outset; border-left: gray outset; border-bottom: gray outset"
    <h1 style="font-size: 14pt; text-align: center;">
        Section 1: Introduction to Computers</h1>
    <hr />
    <table border="0" width="100%" style="vertical-align: top">
        <tr>
            <td style="vertical-align: top">
                <h4>
                    Guides and Training</h4>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/Windows Basics.pps")'>
                    PowerPoint - Windows
                    Basics</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/JamaniPart1.pdf")'>
                    PDF - Jamani's Guide Part 1</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/What is Hardware.doc")'>
                    Document - What is Hardware</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/Size and Speed.doc")'>
                    Document - Electronic Size & Speed</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/10_things_pc_maintenance.pdf")'>
                    PDF - PC maintenance</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/home_computer_security.pdf")'>
                    PDF - Home Computer Security</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/10_ways_protect_electrical.pdf")'>
                    PDF - How to Protect Electrical Equipment</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Guides and Training/Computer Terms Glossary.doc")'>
                    Document - Computer Terms Glossary</a></span>
            </td>
            <td style="vertical-align: top">
                <h4>
                    Applications</h4>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/Windows Defender/WindowsDefender.msi")'>
                    Install - Windows Defender</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/Spybot S&D/spybotsd14.exe")'>
                    Install - Spybot Search & Destroy</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/Adobe Acrobat Reader/AdbeRdr708_DLM_en_US.exe")'>
                    Install - Acrobat Reader</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/Word Viewer/wdviewer.exe")'>
                    Install - Word Viewer</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/PowerPoint Viewer/ppviewer.exe")'>
                    Install - PowerPoint Viewer</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/Excel Viewer/xlviewer.exe")'>
                    Install - Excel Viewer</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/AVG AntiVirus/avg71free_405a791.exe")'>
                    Install - AVG Antivirus</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/Clam AntiVirus/clamwin-0.88.4-setup.exe")'>
                    Install - ClamWin Antivirus</a></span>
                <br>
                <span style="text-decoration: underline; cursor: hand;">
            <a onclick='go("/Applications/KKTT/kktt.exe")'>
                    Install - Typing Tutor</a></span>
            </td>
        </tr>
        <tr>
             <td style="vertical-align: top" colspan="2">
                <h4>
                    Internet Resources</h4>
                <DL><p>
    <DT><A HREF="http://www.gcflearnfree.org/Tutorials/">
    Free Online Tutorials at GCF Global Learning®</A>
    <DT><A HREF="http://www.gcflearnfree.org/Tutorials/Details.aspx?Tutorial=Computer+Basics&tutorialID=13" >
    GCF® Tutorial Computer Basics</A>
    <DT><A HREF="http://www.gcflearnfree.org/Tutorials/Details.aspx?Tutorial=Windows+XP&tutorialID=23" >
    GCF® Tutorial Windows XP</A>
    <DT><A HREF="http://www.sharpened.net/glossary/" >
    Glossary of Computer and Internet Terms</A>
    <DT><A HREF="http://www.learnthat.com/computers/learn-412-create_folders_windowsXP.htm" >
    Learnthat.com - Create and Use a Folder (Windows XP Series) - Free Computers and Software Tutorials</A>
    <DT><A HREF="http://www.learnthat.com/business/category-31">
    Learnthat.com - Free Interviewing Tutorials and Free Business Courses</A>
    <DT><A HREF="http://www.learnthat.com/computers/learn-137-get_rid_spyware.htm" >
    Learnthat.com - Get Rid of Spyware - Free Computers and Software Tutorials</A>
    <DT><A HREF="http://www.learnthat.com/courses/computer/windowsxp/backupfiles/" >
    Learnthat.com - How to Backup Your Files in Windows XP - Learn Windows XP for Free!</A>
    <DT><A HREF="http://www.learnthat.com/computers/learn-147-windows_keyboard_shortcuts.htm" >
    Learnthat.com - List of Windows Keyboard Shortcuts - Free Computers and Software Tutorials</A>
    <DT><A HREF="http://www.learnthat.com/computers/learn-151-understanding_windows_folders.htm">
    Learnthat.com - Understanding Windows Folders - Free Computers and Software Tutorials</A>
    <DT><A HREF="http://support.microsoft.com/default.aspx">Microsoft Help and Support</A>
</DL><p>
            </td>
      
        </tr>
    </table>
    v6.9.26
</body>

 

Here's an archive of the actual files on disk:

 

*this is not fully working source, I've removed all documents and binaries to avoid possible violation of reproduction/distribution rights.

Bookmark


TrackBack URL: http://bilinski.org/trackback.ashx?id=34


Leave a Comment

 

 (optional/private)

(optional/public)