Jump to content

Creating Menu

AndreK

By AndreK
in Unattended Windows 2000/XP/2003

 Share

Recommended Posts

AndreK

AndreK

Posted
Posted

I am trying to create a menu that will launch after or during the runonce..

In this menu i want the user to be able to check some checkboxes with different software.

So that they can choose if nero or powerdvd setup wil launch.

Is there any program that would create this easily? I wan't it to be as basic as possible..

I tried a few program's and they didn't really help me out.

Thanks in advantage

Link to comment
Share on other sites

urie

urie

Posted
Posted (edited)
I am trying to create a menu that will launch after or during the runonce..

In this menu i want the user to be able to check some checkboxes with different software.

So that they can choose if nero or powerdvd setup wil launch.

Is there any program that would create this easily? I wan't it to be as basic as possible..

I tried a few program's and they didn't really help me out.

Thanks in advantage

Do you mean something like this :D

Unattended XP Pro or Home CD Creator with SP2 /Integrate if needed

NOT for Win9x or NT

Downloads Don't Work WIN9x

This is a very simple application that creates all the necessary file's for you to create your own backup XP CD. Made for the new Unattender and the experienced as well

64-Bit Added and I'm working on Vista

This app saves copies your files and saves locations. It will do everything in STEPS and copy the files as needed.

Saving the Paths if you start over. Processing SP's, Hotfixes, Applications,

and all the necessary steps to create your own backup XP CD with

everything set up on install. No more installing, then spending

countless hours setting all your programs up. Put the CD in and go take

a shower.

I have added many feature's like:

Automatic splitting of RunoncEX, TEXTMODE, Complete Integrate of Hotfixes or security Updates, Rar/7Zip/Cab of Favorites, Docs and Settings, Compression of $1 Folder at 700 mb, simple FLAG entries to copy Registry settings, Files, or Entire Folder's as RunoncEX executes getting your current settings.

MaxXPsoft Webpage

Forum?

You will need to register on forum to download UnattendXP
Edited by urie
Link to comment
Share on other sites
gunsmokingman

gunsmokingman

Posted
Posted (edited)

Here is a template HTA that has 3 drop menu and 6 items on each drop menu.

This uses both Jscript and VBS script it only has a a meesage box that confirms

the checkbox has been checked.

This is not active it there if you want to add your app to it.

'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True

Save As Template_UaR1Menu_V1.hta

<HEAD><Title> Gsm R1 Select Apps Template </Title>
   <HTA:APPLICATION
	ID = "R1_MenuTemplate" APPLICATIONNAME = "MenuTemplate"
	BORDER = "thick"	   CAPTION = "Yes"
	MaximizeButton="No"	MinimizeButton="No"
	SHOWINTASKBAR = "Yes"  SINGLEINSTANCE = "Yes"
	SYSMENU = "Yes"		WINDOWSTATE = "normal"
	SCROLL = "No"		  SCROLLFLAT = "Yes"
	VERSION = "1.3.1"	  INNERBORDER = "yes"
	SELECTION = "No"	   NAVIGABLE = "no"
	CONTEXTMENU = "yes"	BORDERSTYLE = "normal"
	Icon="%SystemRoot%\Explorer.exe">
  <STYLE type="text/css">
  /* Main Body Background Color And Text */
   Body 
	{
	  font:9.75pt; 
	  font-family: Verdana, Palatino Linotype; 
	  color:#004040;
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (GradientType=0,StartColorStr='#eeeeee',endColorStr='#d0d0d0');
	  padding-top:1; 
	  padding-bottom:1; 
	  Text-Align:;
	} 
  /* Background And Text For The Checkbox */
   TD.Style1 
	{
	  font-size:8.25pt;
	  font-family: Verdana, Palatino Linotype;  
	  font-weight:Bold;
	  line-height:110%;   
	  color:#000088;   
	  Text-Align:;
	  filter:progid:DXImageTransform.Microsoft.Gradient 
	  (GradientType=0,StartColorStr='#efefef',EndColorStr='#c8c8c8')
	}
  /* Drop Menu Start Color */
   td.menuNormal
	{
	  font:8.25pt; 
	  font-family: Verdana, Palatino Linotype; 
	  color:#000080; 
	  font-weight:Bold;
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (startColorStr='#eeeee8',endColorStr='#cac6c0',gradientType='0');
	  padding-top:0;   
	  padding-bottom:0;   
	  Text-Align:;
	}
   /* Causes Drop Menu To Change color */
   td.menuHover
	{
	  font:8.25pt; 
	  font-family: Verdana, Palatino Linotype; 
	  color:#008080;
	  font-weight:Bold;
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (startColorStr='#cac6c0',endColorStr='#dedad4',gradientType='0');
	  padding-top:0; 
	  padding-bottom:0;
	}
 /* Needed For The Drop Menus Div Styles */
   div.menuNormal
	{
	  width:;   
	  display:none;   
	  position:static;
	}
  /* CLASS Div CSS */
   div.menuHover
	{
	  border:5px;   
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (startColorStr='#cac6c0',endColorStr='#dedad4',gradientType='0');
	  display:inline;   
	  position:absolute;
	}
  /* Display Text Only */
   .TextOnly1
	{  
	  font:10.25pt;
	  font-family: Verdana, Palatino Linotype;  
	  color:#AD0000;
	  font-weight:Bold;
	  text-align:Center;
	}
  /* Display Text Only */
   .TextOnly2
	{  
	  font:8.25pt;
	  font-family: Verdana, Palatino Linotype;  
	  color:#AD0000;
	  font-weight:Bold;
	  text-align:;
	}
  /* Change The Text Color On The drop Menus */
  a.menuHover{text-decoration:none;color:;background-color:;display:block;}
  a.menuitem:link{text-decoration:none;color:#000080;background-color:;display:block;}
  a.menuitem:visited{text-decoration:none;color:#000080;background-color:;display:block;}
  a.menuitem:hover{text-decoration:none;color:#7a7368;background-color:Transparent;display:block;}
  a.menuitem:active{text-decoration:none;color:#000080*;background-color:;display: block;} 
  </STYLE>

   <script FOR=window EVENT=onload LANGUAGE="JScript">
	 TopTxt.innerHTML = "Select What App You Would Like To Install"
	 window.resizeTo (725,375), window.moveTo (170,195);
   </SCRIPT>
   <script language=JAVASCRIPT>
   var Act = new ActiveXObject("Wscript.Shell"); 
   var InstallPath = Act.ExpandEnvironmentStrings("%SystemDrive%\\Install\\");
   /* EXPANDS MENUS */  
   function expand(s)
	{ var td = s;var d = td.getElementsByTagName("div").item(0);
		 td.className = "menuHover"; d.className = "menuHover";}
   /* COLLAPSE MENUS */ 
   function collapse(s)
	{ var td = s; var d = td.getElementsByTagName("div").item(0);
		 td.className = "menuNormal";d.className = "menuNormal";}   
   /* SINGLE OR DOUBLE CLICK ALL DROP MENUS POPUP TEXT SCRIPT */ 
   function DM() { if (RadBG.style.visibility =="hidden")
	{ RadBG.style.visibility ="", DM1a.style.visibility ="", DM1b.style.visibility ="";}
	else
	{ RadBG.style.visibility ="hidden", DM1a.style.visibility ="hidden", DM1b.style.visibility ="hidden";}}
   /* MESSAGE THAT APPEARS WHEN YOU HOVER OVER THE TEXT FOR THE CHECKBOXES */ 
	function CheckBoxMsg() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#808080;">To install this make sure it the checkbox is checked!</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT> 
 <!-- ========== -->
  <BODY Scroll='No'><Center><SPAN Id='TopTxt' Class='TextOnly1'></SPAN>
 <!-- ========== -->
 <Table><TD Class='menuHover'><Table>
 <!-- ===== Start Drop Menu 1 ===== -->
  <TD Class='menuNormal' Width='225' OnClick="expand(this);" OnDblClick="collapse(this);"
  OnMouseOver="DM('Text')" OnMouseOut="DM('Text')">
  <A Class="menuitem" href="#"><CENTER>Drop Down Menu 01</CENTER></A><div class="menuNormal">
 <!-- ===== Sub Menu 1 Item 1 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_1('Text')" OnMouseOut="SubMTxt_1_1('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_1' OnClick='SubM1_1()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 1</TD>
 <!-- Sub Menu 1 Item 1 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_1() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 1 Item 1 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_1()
	 If SM_1_1.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 1 Checked " & SM_1_1.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 1 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 1 End ===== -->
 <!-- ===== Sub Menu 1 Item 2 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_2('Text')" OnMouseOut="SubMTxt_1_2('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_2' OnClick='SubM1_2()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 2</TD>
 <!-- Sub Menu 1 Item 2 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_2() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 1 Item 2 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_2()
	 If SM_1_2.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 2 Checked " & SM_1_2.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 2 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 2 End ===== -->
 <!-- ===== Sub Menu 1 Item 3 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_3('Text')" OnMouseOut="SubMTxt_1_3('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_3' OnClick='SubM1_3()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 3</TD>
 <!-- Sub Menu 1 Item 3 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_3() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 1 Item 3 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_3()
	 If SM_1_3.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 3 Checked " & SM_1_3.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 3 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 3 End ===== -->
 <!-- ===== Sub Menu 1 Item 4 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_4('Text')" OnMouseOut="SubMTxt_1_4('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_4' OnClick='SubM1_4()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 4</TD>
 <!-- Sub Menu 1 Item 4 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_4() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 1 Item 4 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_4()
	 If SM_1_4.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 4 Checked " & SM_1_4.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 4 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 4 End ===== -->
 <!-- ===== Sub Menu 1 Item 5 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_5('Text')" OnMouseOut="SubMTxt_1_5('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_5' OnClick='SubM1_5()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 5</TD>
 <!-- Sub Menu 1 Item 5 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_5() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 1 Item 5 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_5()
	 If SM_1_5.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 5 Checked " & SM_1_5.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 5 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 5 End ===== -->
 <!-- ===== Sub Menu 1 Item 6 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_6('Text')" OnMouseOut="SubMTxt_1_6('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_6' OnClick='SubM1_6()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 6</TD>
 <!-- Sub Menu 1 Item 6 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_6() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 1 Item 6 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_6()
	 If SM_1_6.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 6 Checked " & SM_1_6.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 6 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 6 End ===== -->
  </TD>
 <!-- ===== End Drop Menu 01 ===== -->
 <!-- ===== Start Drop Menu 02 ===== -->
  <TD Class='menuNormal' Width='225' OnClick="expand(this);" OnDblClick="collapse(this);"
  OnMouseOver="DM('Text')" OnMouseOut="DM('Text')">
  <A Class="menuitem" href="#"><CENTER>Drop Down Menu 02</CENTER></A><div class="menuNormal">
 <!-- ===== Sub Menu 2 Item 1 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_1('Text')" OnMouseOut="SubMTxt_2_1('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_1' OnClick='SubM2_1()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 1</TD>
 <!-- Sub Menu 2 Item 1 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_1() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 2 Item 1 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_1()
	 If SM_2_1.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 2 Item 1 Checked " & SM_2_1.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 1 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 1 End ===== -->
 <!-- ===== Sub Menu 2 Item 2 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_2('Text')" OnMouseOut="SubMTxt_2_2('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_2' OnClick='SubM2_2()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 2</TD>
 <!-- Sub Menu 2 Item 2 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_2() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 2 Item 2 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_2()
	 If SM_2_2.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 2 Checked " & SM_2_2.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 2 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 2 End ===== -->
 <!-- ===== Sub Menu 2 Item 3 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_3('Text')" OnMouseOut="SubMTxt_3_3('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_3' OnClick='SubM2_3()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 3</TD>
 <!-- Sub Menu 2 Item 3 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_3() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 2 Item 3 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_3()
	 If SM_2_3.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 3 Checked " & SM_2_3.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 3 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 3 End ===== -->
 <!-- ===== Sub Menu 2 Item 4 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_4('Text')" OnMouseOut="SubMTxt_2_4('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_4' OnClick='SubM2_4()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 4</TD>
 <!-- Sub Menu 2 Item 4 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_4() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 2 Item 4 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_4()
	 If SM_2_4.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 4 Checked " & SM_2_4.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 4 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 4 End ===== -->
 <!-- ===== Sub Menu 2 Item 5 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_5('Text')" OnMouseOut="SubMTxt_2_5('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_5' OnClick='SubM2_5()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 5</TD>
 <!-- Sub Menu 2 Item 5 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_5() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 2 Item 5 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_5()
	 If SM_2_5.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 2 Item 5 Checked " & SM_2_5.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 5 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 5 End ===== -->
 <!-- ===== Sub Menu 2 Item 6 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_6('Text')" OnMouseOut="SubMTxt_2_6('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_6' OnClick='SubM2_6()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 6</TD>
 <!-- Sub Menu 2 Item 6 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_6() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 2 Item 6 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_6()
	 If SM_2_6.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 2 Item 6 Checked " & SM_2_6.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 6 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 6 End ===== -->
  </TD>
 <!-- ===== End Drop Menu 02 ===== -->

 <!-- ===== Start Drop Menu 03 ===== -->
  <TD Class='menuNormal' Width='225' OnClick="expand(this);" OnDblClick="collapse(this);"
  OnMouseOver="DM('Text')" OnMouseOut="DM('Text')">
  <A Class="menuitem" href="#"><CENTER>Drop Down Menu 03</CENTER></A><div class="menuNormal">
 <!-- ===== Sub Menu 3 Item 1 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_1('Text')" OnMouseOut="SubMTxt_3_1('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_1' OnClick='SubM3_1()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 1</TD>
 <!-- Sub Menu 3 Item 1 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_1() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 3 Item 1 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_1()
	 If SM_3_1.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 1 Checked " & SM_3_1.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 1 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 1 End ===== -->
 <!-- ===== Sub Menu 3 Item 2 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_2('Text')" OnMouseOut="SubMTxt_3_2('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_2' OnClick='SubM3_2()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 2</TD>
 <!-- Sub Menu 3 Item 2 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_2() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 3 Item 2 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_2()
	 If SM_3_2.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 2 Checked " & SM_3_2.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 2 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 2 End ===== -->
 <!-- ===== Sub Menu 3 Item 3 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_3('Text')" OnMouseOut="SubMTxt_3_3('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_3' OnClick='SubM3_3()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 3</TD>
 <!-- Sub Menu 3 Item 3 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_3() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 3 Item 3 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_3()
	 If SM_3_3.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 3 Checked " & SM_3_3.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 3 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 3 End ===== -->
 <!-- ===== Sub Menu 3 Item 4 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_4('Text')" OnMouseOut="SubMTxt_3_4('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_4' OnClick='SubM3_4()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 4</TD>
 <!-- Sub Menu 3 Item 4 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_4() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 3 Item 4 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_4()
	 If SM_3_4.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 4 Checked " & SM_3_4.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 4 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 4 End ===== -->
 <!-- ===== Sub Menu 3 Item 5 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_5('Text')" OnMouseOut="SubMTxt_3_5('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_5' OnClick='SubM3_5()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 5</TD>
 <!-- Sub Menu 3 Item 5 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_5() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 3 Item 5 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_5()
	 If SM_3_5.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 5 Checked " & SM_3_5.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 5 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 5 End ===== -->
 <!-- ===== Sub Menu 3 Item 6 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_6('Text')" OnMouseOut="SubMTxt_3_6('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_6' OnClick='SubM3_6()'></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 6</TD>
 <!-- Sub Menu 3 Item 6 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_6() { if (TopTxt.innerHTML =="Select What App You Would Like To Install")
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Select Sub menu 3 Item 6 Intall</Font>'} 
	 else {TopTxt.innerHTML ='Select What App You Would Like To Install';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_6()
	 If SM_3_6.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 6 Checked " & SM_3_6.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 6 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 6 End ===== -->
  </TABLE></TD></TABLE>
 <!-- ===== End Drop Menu 03 ===== -->
 </CENTER></BODY></HTML>
 <!-- ====================================================================================================
=================== -->
 <!-- COMMON POPUP TEXT BACKGROUND -->
  <Div id="RadBG" style="visibility:hidden; position:absolute; top:0; Left:0; width:1; height:1; 
   background-color: white; filter:progid:DXImageTransform.alpha(opacity=1);
   filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#72aecd', EndColorStr='#72aecd')"></DIV>
 <!-- ========================= DROP MENUs SINGLE OR DOUBLE CLICK POPUP TEXT ========================= -->
  <DIV id="DM1a" style="visibility:hidden;color:Green;position:absolute;top:273;left:250;width:355;height:14;margin-top:1;margin-left:1;">
  <Li Class="TextOnly2" Style='color:#00400A;'>Single Click To Open This Menu</DIV>
  <DIV id="DM1b" style="visibility:hidden;color:Blue;position:absolute;top:287;left:250;width:355;height:12;margin-top:1;margin-left:1;">
  <Li Class="TextOnly2" Style='color:#00400A;'>Double Click To Close This Menu</DIV>

Edited by gunsmokingman
Link to comment
Share on other sites
mazin

mazin

Posted
Posted

@ gunsmokingman

I like your HTAs!

I have a problem and you may be able to help, if possible.

I'm using a CMD from SVCPACK to install some apps. It', also, uses REGEDIT, copy, RD, etc... as you know.

Can I use an HTA at T-13 to replace that CMD?

I, also, want it to work without intervension 'cause all apps are needed.

Thanks.

Link to comment
Share on other sites
gunsmokingman

gunsmokingman

Posted
Posted (edited)

I have a HTA run just after my RunOnce has been ran and have installed things like winrar etc at that point.

Here is a re edit I have added a button to each menu that runs all the items on each menu

Save As Template_UaR1Menu_V2.hta

<HEAD><Title> Gsm R1 Select Apps Template </Title>
   <HTA:APPLICATION
	ID = "R1_MenuTemplate" APPLICATIONNAME = "MenuTemplate"
	BORDER = "thick"	   CAPTION = "Yes"
	MaximizeButton="No"	MinimizeButton="No"
	SHOWINTASKBAR = "Yes"  SINGLEINSTANCE = "Yes"
	SYSMENU = "Yes"		WINDOWSTATE = "normal"
	SCROLL = "No"		  SCROLLFLAT = "Yes"
	VERSION = "1.3.1"	  INNERBORDER = "yes"
	SELECTION = "No"	   NAVIGABLE = "no"
	CONTEXTMENU = "yes"	BORDERSTYLE = "normal"
	Icon="%SystemRoot%\Explorer.exe">
  <STYLE type="text/css">
  /* Main Body Background Color And Text */
   Body 
	{
	  font:9.75pt; 
	  font-family: Verdana, Palatino Linotype; 
	  color:#004040;
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (GradientType=0,StartColorStr='#eeeeee',endColorStr='#d0d0d0');
	  padding-top:1; 
	  padding-bottom:1; 
	  Text-Align:;
	} 
  /* Background And Text For The Checkbox */
   TD.Style1 
	{
	  font-size:8.25pt;
	  font-family: Verdana, Palatino Linotype;  
	  font-weight:Bold;
	  line-height:110%;   
	  color:#000088;   
	  Text-Align:;
	  filter:progid:DXImageTransform.Microsoft.Gradient 
	  (GradientType=0,StartColorStr='#efefef',EndColorStr='#c8c8c8')
	}
  /* Drop Menu Start Color */
   td.menuNormal
	{
	  font:8.25pt; 
	  font-family: Verdana, Palatino Linotype; 
	  color:#000080; 
	  font-weight:Bold;
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (startColorStr='#eeeee8',endColorStr='#cac6c0',gradientType='0');
	  padding-top:0;   
	  padding-bottom:0;   
	  Text-Align:;
	}
   /* Causes Drop Menu To Change color */
   td.menuHover
	{
	  font:8.25pt; 
	  font-family: Verdana, Palatino Linotype; 
	  color:#008080;
	  font-weight:Bold;
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (startColorStr='#cac6c0',endColorStr='#dedad4',gradientType='0');
	  padding-top:0; 
	  padding-bottom:0;
	}
 /* Needed For The Drop Menus Div Styles */
   div.menuNormal
	{
	  width:;   
	  display:none;   
	  position:static;
	}
  /* CLASS Div CSS */
   div.menuHover
	{
	  border:5px;   
	  filter:progid:DXImageTransform.Microsoft.Gradient
	  (startColorStr='#cac6c0',endColorStr='#dedad4',gradientType='0');
	  display:inline;   
	  position:absolute;
	}
  /* Display Text Only */
   .TextOnly1
	{  
	  font:10.25pt;
	  font-family: Verdana, Palatino Linotype;  
	  color:#AD0000;
	  font-weight:Bold;
	  text-align:Center;
	}
  /* Display Text Only */
   .TextOnly2
	{  
	  font:8.25pt;
	  font-family: Verdana, Palatino Linotype;  
	  color:#AD0000;
	  font-weight:Bold;
	  text-align:;
	}
  /* Change The Text Color On The drop Menus */
  a.menuHover{text-decoration:none;color:;background-color:;display:block;}
  a.menuitem:link{text-decoration:none;color:#000080;background-color:;display:block;}
  a.menuitem:visited{text-decoration:none;color:#000080;background-color:;display:block;}
  a.menuitem:hover{text-decoration:none;color:#7a7368;background-color:Transparent;display:block;}
  a.menuitem:active{text-decoration:none;color:#000080*;background-color:;display: block;} 
  /* Do All SubMenu Button Background And Text */
   .Button 
	{ 
	  font-size:8.25pt; 
	  font-family: Verdana, Palatino Linotype; 
	  font-weight:Bold;
	  line-height:110%;   
	  color:white;   
	  Text-Align:CENTER;
	  filter:progid:DXImageTransform.Microsoft.Gradient 
	  (GradientType=0,StartColorStr='#E2E2E2',EndColorStr='#6e6e6e');
	  width:175;   
	  height:21;   
	  cursor:Hand;
	  border-left: 1px Transparent;   
	  border-right: 2px Transparent;
	  border-top: 1px Transparent;   
	  border-Bottom: 2px Transparent;
	}
  </STYLE>

   <script FOR=window EVENT=onload LANGUAGE="JScript">
	 TopTxt.innerHTML = "Gsm Pre Install R1 Template"
	 window.resizeTo (725,375), window.moveTo (170,195);
   </SCRIPT>
   <script language=JAVASCRIPT>
   var Act = new ActiveXObject("Wscript.Shell"); 
   var InstallPath = Act.ExpandEnvironmentStrings("%SystemDrive%\\Install");
   /* EXPANDS MENUS */  
   function expand(s)
	{ var td = s;var d = td.getElementsByTagName("div").item(0);
		 td.className = "menuHover"; d.className = "menuHover";}
   /* COLLAPSE MENUS */ 
   function collapse(s)
	{ var td = s; var d = td.getElementsByTagName("div").item(0);
		 td.className = "menuNormal";d.className = "menuNormal";}   
   /* SINGLE OR DOUBLE CLICK ALL DROP MENUS POPUP TEXT SCRIPT */ 
   function DM() { if (RadBG.style.visibility =="hidden")
	{ RadBG.style.visibility ="", DM1a.style.visibility ="", DM1b.style.visibility ="";}
	else
	{ RadBG.style.visibility ="hidden", DM1a.style.visibility ="hidden", DM1b.style.visibility ="hidden";}}
   /* MESSAGE THAT APPEARS WHEN YOU HOVER OVER THE TEXT FOR THE CHECKBOXES */ 
	function CheckBoxMsg() { if (TopTxt.innerHTML =="Gsm Pre Install R1 Template")
	 {TopTxt.innerHTML ='<Font Style="color:#808080;">UnCheck Any Item You Do Not Want To Install!</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT> 
 <!-- ========== -->
  <BODY Scroll='No'><Center><SPAN Id='TopTxt' Class='TextOnly1'></SPAN>
 <!-- ========== -->
 <Table><TD Class='menuHover'><Table>
 <!-- ===== Start Drop Menu 1 ===== -->
  <TD Class='menuNormal' Width='225' OnClick="expand(this);" OnDblClick="collapse(this);"
  OnMouseOver="DM('Text')" OnMouseOut="DM('Text')">
  <A Class="menuitem" href="#"><CENTER>Drop Down Menu 01</CENTER></A><div class="menuNormal">
 <!-- ===== Sub Menu 1 Item 1 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_1('Text')" OnMouseOut="SubMTxt_1_1('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_1' OnClick='SubM1_1()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 1</TD>
 <!-- Sub Menu 1 Item 1 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_1() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 1 Menu 1 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML = "Gsm Pre Install R1 Template";}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_1()
	 If SM_1_1.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 1 Checked " & SM_1_1.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 1 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 1 End ===== -->
 <!-- ===== Sub Menu 1 Item 2 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_2('Text')" OnMouseOut="SubMTxt_1_2('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_2' OnClick='SubM1_2()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 2</TD>
 <!-- Sub Menu 1 Item 2 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_2() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 2 Menu 1 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML = 'Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_2()
	 If SM_1_2.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 2 Checked " & SM_1_2.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 2 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 2 End ===== -->
 <!-- ===== Sub Menu 1 Item 3 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_3('Text')" OnMouseOut="SubMTxt_1_3('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_3' OnClick='SubM1_3()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 3</TD>
 <!-- Sub Menu 1 Item 3 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_3() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 3 Menu 1 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML = 'Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_3()
	 If SM_1_3.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 3 Checked " & SM_1_3.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 3 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 3 End ===== -->
 <!-- ===== Sub Menu 1 Item 4 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_4('Text')" OnMouseOut="SubMTxt_1_4('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_4' OnClick='SubM1_4()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 4</TD>
 <!-- Sub Menu 1 Item 4 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_4() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 4 Menu 1 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_4()
	 If SM_1_4.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 4 Checked " & SM_1_4.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 4 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 4 End ===== -->
 <!-- ===== Sub Menu 1 Item 5 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_5('Text')" OnMouseOut="SubMTxt_1_5('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_5' OnClick='SubM1_5()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 5</TD>
 <!-- Sub Menu 1 Item 5 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_5() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 5 Menu 1 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_5()
	 If SM_1_5.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 5 Checked " & SM_1_5.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 5 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 1 Item 5 End ===== -->
 <!-- ===== Sub Menu 1 Item 6 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_1_6('Text')" OnMouseOut="SubMTxt_1_6('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_1_6' OnClick='SubM1_6()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 1 Item 6</TD>
 <!-- Sub Menu 1 Item 6 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_1_6() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 6 Menu 1 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM1_6()
	 If SM_1_6.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 1 Item 6 Checked " & SM_1_6.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 1 Item 6 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- Install All Drop Menu 1 Applications Start -->
  <CENTER><INPUT Type='Button' Class='Button' Name='BttnAll1' Value='Install All Applications' OnClick='Do_All1()'></CENTER>
   <script Language='VBSCRIPT'> 
   Function Do_All1()
	 SubM1_1() : SubM1_2() : SubM1_3()
	 SubM1_4() : SubM1_5() : SubM1_6()
	Exit Function 
   End Function
   </SCRIPT>  
 <!-- Install All Drop Menu 1 Applications End -->
 <!-- ===== Sub Menu 1 Item 6 End ===== -->
  </TD>
 <!-- ===== End Drop Menu 01 ===== -->
 <!-- ===== Start Drop Menu 02 ===== -->
  <TD Class='menuNormal' Width='225' OnClick="expand(this);" OnDblClick="collapse(this);"
  OnMouseOver="DM('Text')" OnMouseOut="DM('Text')">
  <A Class="menuitem" href="#"><CENTER>Drop Down Menu 02</CENTER></A><div class="menuNormal">
 <!-- ===== Sub Menu 2 Item 1 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_1('Text')" OnMouseOut="SubMTxt_2_1('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_1' OnClick='SubM2_1()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 1</TD>
 <!-- Sub Menu 2 Item 1 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_1() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 1 Menu 2 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_1()
	 If SM_2_1.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 2 Item 1 Checked " & SM_2_1.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 1 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 1 End ===== -->
 <!-- ===== Sub Menu 2 Item 2 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_2('Text')" OnMouseOut="SubMTxt_2_2('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_2' OnClick='SubM2_2()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 2</TD>
 <!-- Sub Menu 2 Item 2 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_2() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 2 Menu 2 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_2()
	 If SM_2_2.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 2 Checked " & SM_2_2.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 2 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 2 End ===== -->
 <!-- ===== Sub Menu 2 Item 3 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_3('Text')" OnMouseOut="SubMTxt_3_3('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_3' OnClick='SubM2_3()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 3</TD>
 <!-- Sub Menu 2 Item 3 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_3() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 3 Menu 2 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_3()
	 If SM_2_3.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 3 Checked " & SM_2_3.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 3 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 3 End ===== -->
 <!-- ===== Sub Menu 2 Item 4 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_4('Text')" OnMouseOut="SubMTxt_2_4('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_4' OnClick='SubM2_4()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 4</TD>
 <!-- Sub Menu 2 Item 4 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_4() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 4 Menu 2 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_4()
	 If SM_2_4.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 4 Checked " & SM_2_4.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 4 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 4 End ===== -->
 <!-- ===== Sub Menu 2 Item 5 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_5('Text')" OnMouseOut="SubMTxt_2_5('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_5' OnClick='SubM2_5()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 5</TD>
 <!-- Sub Menu 2 Item 5 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_5() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 5 Menu 2 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_5()
	 If SM_2_5.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 2 Item 5 Checked " & SM_2_5.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 5 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 5 End ===== -->
 <!-- ===== Sub Menu 2 Item 6 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_2_6('Text')" OnMouseOut="SubMTxt_2_6('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_2_6' OnClick='SubM2_6()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 2 Item 6</TD>
 <!-- Sub Menu 2 Item 6 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_2_6() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 6 Menu 2 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM2_6()
	 If SM_2_6.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 2 Item 6 Checked " & SM_2_6.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 2 Item 6 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 2 Item 6 End ===== --> 
 <!-- Install All Drop Menu 2 Applications Start -->
  <CENTER><INPUT Type='Button' Class='Button' Name='BttnAll2' Value='Install All Applications' OnClick='Do_All2()'></CENTER>
   <script Language='VBSCRIPT'> 
   Function Do_All2()
	 SubM2_1() : SubM2_2() : SubM2_3()
	 SubM2_4() : SubM2_5() : SubM2_6()
	Exit Function 
   End Function
   </SCRIPT>  
 <!-- Install All Drop Menu 2 Applications End -->
  </TD>
 <!-- ===== End Drop Menu 02 ===== -->
 <!-- ===== Start Drop Menu 03 ===== -->
  <TD Class='menuNormal' Width='225' OnClick="expand(this);" OnDblClick="collapse(this);"
  OnMouseOver="DM('Text')" OnMouseOut="DM('Text')">
  <A Class="menuitem" href="#"><CENTER>Drop Down Menu 03</CENTER></A><div class="menuNormal">
 <!-- ===== Sub Menu 3 Item 1 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_1('Text')" OnMouseOut="SubMTxt_3_1('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_1' OnClick='SubM3_1()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 1</TD>
 <!-- Sub Menu 3 Item 1 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_1() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 1 Menu 3 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_1()
	 If SM_3_1.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 1 Checked " & SM_3_1.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 1 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 1 End ===== -->
 <!-- ===== Sub Menu 3 Item 2 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_2('Text')" OnMouseOut="SubMTxt_3_2('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_2' OnClick='SubM3_2()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 2</TD>
 <!-- Sub Menu 3 Item 2 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_2() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 2 Menu 3 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_2()
	 If SM_3_2.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 2 Checked " & SM_3_2.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 2 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 2 End ===== -->
 <!-- ===== Sub Menu 3 Item 3 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_3('Text')" OnMouseOut="SubMTxt_3_3('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_3' OnClick='SubM3_3()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 3</TD>
 <!-- Sub Menu 3 Item 3 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_3() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 3 Menu 3 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_3()
	 If SM_3_3.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 3 Checked " & SM_3_3.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 3 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 3 End ===== -->
 <!-- ===== Sub Menu 3 Item 4 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_4('Text')" OnMouseOut="SubMTxt_3_4('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_4' OnClick='SubM3_4()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 4</TD>
 <!-- Sub Menu 3 Item 4 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_4() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 4 Menu 3 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_4()
	 If SM_3_4.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 4 Checked " & SM_3_4.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 4 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 4 End ===== -->
 <!-- ===== Sub Menu 3 Item 5 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_5('Text')" OnMouseOut="SubMTxt_3_5('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_5' OnClick='SubM3_5()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 5</TD>
 <!-- Sub Menu 3 Item 5 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_5() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 5 Menu 3 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_5()
	 If SM_3_5.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 5 Checked " & SM_3_5.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 5 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 5 End ===== -->
 <!-- ===== Sub Menu 3 Item 6 Start ===== -->
  <TABLE><TD Class='menuNormal'><TABLE>
   <TD OnMouseOver="SubMTxt_3_6('Text')" OnMouseOut="SubMTxt_3_6('Text')">
   <INPUT Type='CheckBox' Language='VBSCRIPT' Name='SM_3_6' OnClick='SubM3_6()' Checked></TD>
   <TD Class='Style1' Width='211' OnMouseOver="CheckBoxMsg(),this.style.color='#008080';" 
	OnMouseOut="CheckBoxMsg(),this.style.color='#000088'">  Install Sub Menu 3 Item 6</TD>
 <!-- Sub Menu 3 Item 6 JS VBS Scripts Start -->
   <script language=JAVASCRIPT>
	function SubMTxt_3_6() { if (TopTxt.innerHTML =='Gsm Pre Install R1 Template')
	 {TopTxt.innerHTML ='<Font Style="color:#008080;">Item 6 Menu 3 Will Be Installed</Font>'} 
	 else {TopTxt.innerHTML ='Gsm Pre Install R1 Template';}}
   </SCRIPT>
  <script Language='VBSCRIPT'>  
   Function SubM3_6()
	 If SM_3_6.Checked = True Then
	  window.alert "Confirm Check Box Sub Menu 3 Item 6 Checked " & SM_3_6.Value
'/-> Uncomment And Add The Folder Name Apllication name And Switches Below Here
	  'Act.Run(InstallPath & "\Folder\AppName.exe /Switches Here"),1,True
	 End If 
	Exit Function 
   End Function
   </SCRIPT>
 <!-- Sub Menu 3 Item 6 JS VBS Scripts End -->
  </TABLE></TD></TABLE>
 <!-- ===== Sub Menu 3 Item 6 End ===== -->  
 <!-- Install All Drop Menu 3 Applications Start -->
  <CENTER><INPUT Type='Button' Class='Button' Name='BttnAll3' Value='Install All Applications' OnClick='Do_All3()'></CENTER>
   <script Language='VBSCRIPT'> 
   Function Do_All3()
	 SubM3_1() : SubM3_2() : SubM3_3()
	 SubM3_4() : SubM3_5() : SubM3_6()
	Exit Function 
   End Function
   </SCRIPT>  
 <!-- Install All Drop Menu 3 Applications End -->
  </TABLE></TD></TABLE>
 <!-- ===== End Drop Menu 03 ===== -->
 </CENTER></BODY></HTML>
 <!-- ====================================================================================================
=================== -->
 <!-- COMMON POPUP TEXT BACKGROUND -->
  <Div id="RadBG" style="visibility:hidden; position:absolute; top:0; Left:0; width:1; height:1; 
   background-color: white; filter:progid:DXImageTransform.alpha(opacity=1);
   filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#72aecd', EndColorStr='#72aecd')"></DIV>
 <!-- ========================= DROP MENUs SINGLE OR DOUBLE CLICK POPUP TEXT ========================= -->
  <DIV id="DM1a" style="visibility:hidden;color:Green;position:absolute;top:273;left:250;width:355;height:14;margin-top:1;margin-left:1;">
  <Li Class="TextOnly2" Style='color:#00400A;'>Single Click To Open This Menu</DIV>
  <DIV id="DM1b" style="visibility:hidden;color:Blue;position:absolute;top:287;left:250;width:355;height:12;margin-top:1;margin-left:1;">
  <Li Class="TextOnly2" Style='color:#00400A;'>Double Click To Close This Menu</DIV>

Edited by gunsmokingman
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...