Assistance With Displaying Output In Text Area

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Assistance With Displaying Output In Text Area

Logged in as: Guest

arrSession:exec spGetSession 2,2,64957

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Assistance With Displaying Output In Text Area
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Assistance With Displaying Output In Text Area - 10/9/2008 9:37:36 PM

morpheus83uk

Posts: 373
Score: 0
Joined: 8/21/2006
Status: offline

Hello,

I have the following code:

<html>
<head>
<title>ICT Maintenance Tools</title>
<HTA:APPLICATION 
 ID="ICTMaintenanceTools"
 APPLICATIONNAME="ICT Maintenace"
 Caption="ICT Maintenance"
 SCROLL="No"
 Icon="C:\ICT_Help\ICT_Help.ico"
 SINGLEINSTANCE="Yes"
 WINDOWSTATE="Maximize">
</head>
<SCRIPT Language="VBScript">
'Runs The scripts For The Maintenance Tools To Run
Sub Selection
MsgBox "Your Code For Your Selection(s) Executes Now" , vbInformation , "Information"
End Sub
'Displays Help In The Help Area
Sub Help
Set objTxtArea = window.document.getElementById("Help")
objTxtArea.innerText = "Help Topics Are Displayed Here"
If ProfileRemoval.Checked Then
objTxtArea.innerText = "Old Profile Removal" & VbCrLf & VbCrLf & _
"Each time a user logs onto a PC a copy of their Profile is left behind and eventually your dirve may become full. " & _
"This tool will remove old Profiles (90 Days old or more) and free up valuable disk space." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"To free up space on your Local Disk that is used up by other users Profiles, " & _
"(it is not neccesary to keep these stored locally)." & VbCrLf & VbCrLf & _
"Estimated Duration: 5 to 10 Minutes."
End If
If DiskCleanup.Checked Then
objTxtArea.innerText = "Disk Cleanup" & VbCrLf & VbCrLf & _
"Selecting this will run a built in Windows tool that is designed to clear unnecessary " & _
"system files that build up over time on your computer's Hard Disk. " & _
"(None of your own files will be removed) This should help maintain your machines performance." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"To remove old unused files that hog disk space - this in turn will aid your PCs performance." & VbCrLf & VbCrLf & _
"Estimated Duration: 1 to 15 Minutes."
End If
If CCleaner.Checked Then
objTxtArea.innerText = "CCleaner" & VbCrLf & VbCrLf & _
"CCleaner is a freeware system optimization and privacy tool. " & _
"It removes unused files from your system - allowing Windows to run faster " & _
"and freeing up valuable Hard Disk space. It also cleans traces of your online activities " & _
"such as your Internet history. This tool will also clean up your user Profile." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"This tool will not only clean up your PC it will also clean up your Profile. " & _
"This will help with the performance of your PC and also prevent errors caused by corruption of your Profile. " & _
"The size of your Profile will also be significantly reduced speeding up log on times." & VbCrLf & VbCrLf & _
"Estimated Duration: 1 to 15 Minutes."
End If
If ICTDefrag.Checked Then
objTxtArea.innerText = "ICT Defrag" & VbCrLf & VbCrLf & _
"Selecting this icon will run the 'Defrag' tools under Administrative settings. " & _
"Allowing you to Defragment your Hard Drive, Defragmenting physically reorganises the contents " & _
"of your disk in order to maintain a more eficient file system." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"This will maintain a more efficient file system - increasing the overall performance of your PC" & VbCrLf & VbCrLf & _
"Estimated Duration: 30 Minutes - although this may be much longer on older / lower spec machines."
End If
If Spysweeper.Checked Then
objTxtArea.innerText = "Spysweeper Scan" & VbCrLf & VbCrLf & _
"Running this will initiate a comprehnsive scan of your machine - " & _
"Detecting and removing all Spyware and Malware. These hidden and often " & _
"malicious applications are known to hog valuable system resources and cause " & _
"other valid programmes to become unstable and oftem unusable." & VbCrLf & VbCrLf & _
"Why Would you run this?" & VbCrLf & VbCrLf & _
"If you have concerns that your machine may be infected with Spyware " & _
"then running this scan will detect and remove any Spyware infection." & VbCrLf & VbCrLf & _
"Estimated Duration: 20 to 35 Minutes."
End If
If AntiVirus.Checked Then
objTxtArea.innerText = "Anti-Virus Scan" & VbCrLf & VbCrLf & _
"Selecting this icon with initiate a McAfee Anti-Virus scan of your local drive (C:) " & _
"and all subfolders. It will detect and remove all known Viruses from your system." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"To scan your machine for Viruses." & VbCrLf & VbCrLf & _
"Estimated Duration: 20 to 30 Minutes."
End If
If ICTMaintenance.Checked Then
objTxtArea.innerText = "ICT Maintenance" & VbCrLf & VbCrLf & _
"Selecting this icon will run a complete cleanup of your PC - " & _
"running all of the Maintenance Tools listed here. Whilst this runs a " & _
"detailed log will appear showing progress. Its is best to intiate this before " & _
"you leave for the day. Once the cleanup is complete your machine will shutdown automatically." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"If your machine seems to be performing slowly then running this should make a noticeable change to performance." & VbCrLf & VbCrLf & _ 
"Estimated Duration: Up to 4 Hours"
End If
End Sub
'Disables ICT Maintenance
Sub ICTMaintDisable
Set objTxtArea = window.document.getElementById("Help")
objTxtArea.innerText = "Help Topics Are Displayed Here"
If ProfileRemoval.Checked Or DiskCleanup.Checked Or CCleaner.Checked Or ICTDefrag.Checked Or SpySweeper.Checked Or AntiVirus.Checked Then
   ICTMaintenance.Disabled = True
Else
   ICTMaintenance.Disabled = False
End If 
End Sub
'Disables Tools
Sub ToolsDisable
Set objTxtArea = window.document.getElementById("Help")
objTxtArea.innerText = "Help Topics Are Displayed Here"
If ICTMaintenance.Checked = True Then
ProfileRemoval.Disabled = True
DiskCleanup.Disabled = True
CCleaner.Disabled = True
ICTDefrag.Disabled = True
AntiVirus.Disabled = True
SpySweeper.Disabled = True
Else
ProfileRemoval.Disabled = False
DiskCleanup.Disabled = False
CCleaner.Disabled = False
ICTDefrag.Disabled = False
AntiVirus.Disabled = False
SpySweeper.Disabled = False
End If
End Sub
</SCRIPT>
</head>
<body bgcolor="Cyan">
<div align="Center"><h1><Font Face="Arial" size="7"><b>ICT Maintenance Tools<b></h1></font></div>
<br />
<div align="Justify">
<table border="0">
<tr>
<td><Font Face="Arial" size="3"><b>Please Select A Task To Run:</b></Font></td>
<td><Font Face="Arial" size="3"><b>Please Select A Scan To Run:</b></Font></td>
<td><Font Face="Arial" size="3"><b>One Stop Shop:</b></Font></td>
</tr>

<td>&nbsp;</td>
<tr>
<td><input type="Checkbox"name="ProfileRemoval"value="1" onclick="ICTMaintDisable" tabindex=1><Font Face="Arial" size="3" color="Blue"> Old Local Profile Removal</Font></td>
<td><input type="Checkbox"name="SpySweeper"value="5" onclick="ICTMaintDisable" tabindex=5><Font Face="Arial" size="3" color="Blue"> Spysweeper Scan</Font></td>
<td><input type="Checkbox"name="ICTMaintenance"value="7" onclick="ToolsDisable" tabindex=7><Font Face="Arial" size="3" color="Blue"> ICT Maintenance</Font></td>
</tr>
<tr>
<td><input type="Checkbox"name="DiskCleanup"value="2" onclick="ICTMaintDisable" tabindex=2><Font Face="Arial" size="3" color="Blue"> Disk Cleanup</Font></td> 
</tr>
<tr>
<td colspan="1"><input type="Checkbox"name="CCleaner"value="3" onclick="ICTMaintDisable" tabindex=3><Font Face="Arial" size="3" color="Blue"> CCleaner</Font></td>
<td><input type="Checkbox"name="AntiVirus"value="6" onclick="ICTMaintDisable" tabindex=6><Font Face="Arial" size="3" color="Blue"> Anti-Virus Scan</Font></td>
</tr>
<tr>
<td colspan="2"><input type="Checkbox"name="ICTDefrag"value="4" onclick="ICTMaintDisable" tabindex=4><Font Face="Arial" size="3" color="Blue"> ICT Defrag</Font></td>
<td><Font Face="Arial" size="3"><b>Current Progress:</b></Font></td>
</tr>

<td>&nbsp;</td>
<tr>
<td><input type="Button" value="Run Checked" onclick="Selection" tabindex=8></td>
<td><input type="Button" value="Display Help" onclick="Help" tabindex=9></td>
<td><Font Face="Arial" size="3"><b>Total Progress:</b></Font></td>
</tr>

<td>&nbsp;</td>
<tr>
<td colspan="2"><Font Face="Arial" size="3"><b>Detailed Information:</b></Font></td>
<td><Font Face="Arial" size="3"><b>Help:</b></Font></td>
</tr>
<tr>
<td colspan="2"><textarea id="dispOutput" rows="20" cols="90" style="Font-Family:Arial" style="Color:Black" style="Font-Style:Italic" tabindex=10 readonly>Detailed Information About The Maintenance Tasks Will Be Displayed Here</textarea></td>
<td><textarea id="Help" rows="20" cols="50" style="font-family:Arial" style="Color:Black" style="Font-Style:Italic" tabindex=11 readonly>Help Topics Are Displayed Here</textarea></td>
</tr>
</table>
</body>
</html>

At the current moment I can click a checkbox and click on the help button and then in the help box it will display the help. This works fine. However when two or more checkboxes are check it will only display the last checkbox to be checked in the help box.

What I would like to do is if multiple checkboxes are checked then it would build up the help based on the checkboxes. So it would display the help for the checked items. I am unsure as to how I can do this? Would it have to like look at option one check if its checked and then if so display the help and then check for option two etc on the button click? If this is the case could someone give me an idea as to how I could do this and then I will have a go.

Many Thanks

James

< Message edited by morpheus83uk -- 10/10/2008 1:18:59 AM >

_____________________________

VBScript Documentation:

http://www.microsoft.com/downloads/details.aspx?FamilyID=01592c48-207d-4be1-8a76-1c4099d7bbb9&displaylang=en

Post #: 1

RE: Assistance With Displaying Output In Text Area - 10/10/2008 1:46:06 AM

dm_4ever

Posts: 2641
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

objTxtArea.innerText = objTxtArea.innerText & "blahblah

do this for each checkbox selected so that you build the content rather than overwrite it.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to morpheus83uk)

Post #: 2

RE: Assistance With Displaying Output In Text Area - 10/10/2008 9:56:15 AM

morpheus83uk

Posts: 373
Score: 0
Joined: 8/21/2006
Status: offline

Hello,

That seems to work however its not like updating as I thought it would... So for clicking 3 buttons and then clicking help it works fine

If I deselect a button and click another one and click help it leaves the previous behind...

Is there a way of stopping this?

Many Thanks

James

<html>
<head>
<title>ICT Maintenance Tools</title>
<HTA:APPLICATION 
ID="ICTMaintenanceTools"
APPLICATIONNAME="ICT Maintenace"
Caption="ICT Maintenance"
SCROLL="No"
Icon="C:\ICT_Help\ICT_Help.ico"
SINGLEINSTANCE="Yes"
WINDOWSTATE="Maximize">
</head>
<SCRIPT Language="VBScript">
'Runs The scripts For The Maintenance Tools To Run
Sub Selection
MsgBox "Your Code For Your Selection(s) Executes Now" , vbInformation , "Information"
End Sub
'Displays Help In The Help Area
Sub Help
Set objTxtArea = window.document.getElementById("Help")
If ProfileRemoval.Checked Then
objTxtArea.innerText = objTxtArea.innerText & VbCrLf & VbCrLf & _
"Old Profile Removal" & VbCrLf & VbCrLf & _
"Each time a user logs onto a PC a copy of their Profile is left behind and eventually your dirve may become full. " & _
"This tool will remove old Profiles (90 Days old or more) and free up valuable disk space." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"To free up space on your Local Disk that is used up by other users Profiles, " & _
"(it is not neccesary to keep these stored locally)." & VbCrLf & VbCrLf & _
"Estimated Duration: 5 to 10 Minutes."
End If
If DiskCleanup.Checked Then
objTxtArea.innerText = objTxtArea.innerText & VbCrLf & VbCrLf & _
"Disk Cleanup" & VbCrLf & VbCrLf & _
"Selecting this will run a built in Windows tool that is designed to clear unnecessary " & _
"system files that build up over time on your computer's Hard Disk. " & _
"(None of your own files will be removed) This should help maintain your machines performance." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"To remove old unused files that hog disk space - this in turn will aid your PCs performance." & VbCrLf & VbCrLf & _
"Estimated Duration: 1 to 15 Minutes."
End If
If CCleaner.Checked Then
objTxtArea.innerText = objTxtArea.innerText & VbCrLf & VbCrLf & _
"CCleaner" & VbCrLf & VbCrLf & _
"CCleaner is a freeware system optimization and privacy tool. " & _
"It removes unused files from your system - allowing Windows to run faster " & _
"and freeing up valuable Hard Disk space. It also cleans traces of your online activities " & _
"such as your Internet history. This tool will also clean up your user Profile." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"This tool will not only clean up your PC it will also clean up your Profile. " & _
"This will help with the performance of your PC and also prevent errors caused by corruption of your Profile. " & _
"The size of your Profile will also be significantly reduced speeding up log on times." & VbCrLf & VbCrLf & _
"Estimated Duration: 1 to 15 Minutes."
End If
If ICTDefrag.Checked Then
objTxtArea.innerText = objTxtArea.innerText & VbCrLf & VbCrLf & _
"ICT Defrag" & VbCrLf & VbCrLf & _
"Selecting this icon will run the 'Defrag' tools under Administrative settings. " & _
"Allowing you to Defragment your Hard Drive, Defragmenting physically reorganises the contents " & _
"of your disk in order to maintain a more eficient file system." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"This will maintain a more efficient file system - increasing the overall performance of your PC" & VbCrLf & VbCrLf & _
"Estimated Duration: 30 Minutes - although this may be much longer on older / lower spec machines."
End If
If Spysweeper.Checked Then
objTxtArea.innerText = objTxtArea.innerText & VbCrLf & VbCrLf & _
"Spysweeper Scan" & VbCrLf & VbCrLf & _
"Running this will initiate a comprehnsive scan of your machine - " & _
"Detecting and removing all Spyware and Malware. These hidden and often " & _
"malicious applications are known to hog valuable system resources and cause " & _
"other valid programmes to become unstable and oftem unusable." & VbCrLf & VbCrLf & _
"Why Would you run this?" & VbCrLf & VbCrLf & _
"If you have concerns that your machine may be infected with Spyware " & _
"then running this scan will detect and remove any Spyware infection." & VbCrLf & VbCrLf & _
"Estimated Duration: 20 to 35 Minutes."
End If
If AntiVirus.Checked Then
objTxtArea.innerText = objTxtArea.innerText & VbCrLf & VbCrLf & _
"Anti-Virus Scan" & VbCrLf & VbCrLf & _
"Selecting this icon with initiate a McAfee Anti-Virus scan of your local drive (C:) " & _
"and all subfolders. It will detect and remove all known Viruses from your system." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"To scan your machine for Viruses." & VbCrLf & VbCrLf & _
"Estimated Duration: 20 to 30 Minutes."
End If
If ICTMaintenance.Checked Then
objTxtArea.innerText = objTxtArea.innerText & VbCrLf & VbCrLf & _ 
"ICT Maintenance" & VbCrLf & VbCrLf & _
"Selecting this icon will run a complete cleanup of your PC - " & _
"running all of the Maintenance Tools listed here. Whilst this runs a " & _
"detailed log will appear showing progress. Its is best to intiate this before " & _
"you leave for the day. Once the cleanup is complete your machine will shutdown automatically." & VbCrLf & VbCrLf & _
"Why would you run this?" & VbCrLf & VbCrLf & _
"If your machine seems to be performing slowly then running this should make a noticeable change to performance." & VbCrLf & VbCrLf & _ 
"Estimated Duration: Up to 4 Hours"
End If
End Sub
'Disables ICT Maintenance
Sub ICTMaintDisable
Set objTxtArea = window.document.getElementById("Help")
If ProfileRemoval.Checked Or DiskCleanup.Checked Or CCleaner.Checked Or ICTDefrag.Checked Or SpySweeper.Checked Or AntiVirus.Checked Then
  ICTMaintenance.Disabled = True
Else
  ICTMaintenance.Disabled = False
End If 
End Sub
'Disables Tools
Sub ToolsDisable
Set objTxtArea = window.document.getElementById("Help")
If ICTMaintenance.Checked = True Then
ProfileRemoval.Disabled = True
DiskCleanup.Disabled = True
CCleaner.Disabled = True
ICTDefrag.Disabled = True
AntiVirus.Disabled = True
SpySweeper.Disabled = True
Else
ProfileRemoval.Disabled = False
DiskCleanup.Disabled = False
CCleaner.Disabled = False
ICTDefrag.Disabled = False
AntiVirus.Disabled = False
SpySweeper.Disabled = False
End If
End Sub
</SCRIPT>
</head>
<body bgcolor="Cyan">
<div align="Center"><h1><Font Face="Arial" size="7"><b>ICT Maintenance Tools<b></h1></font></div>
<br />
<div align="Justify">
<table border="0">
<tr>
<td><Font Face="Arial" size="3"><b>Please Select A Task To Run:</b></Font></td>
<td><Font Face="Arial" size="3"><b>Please Select A Scan To Run:</b></Font></td>
<td><Font Face="Arial" size="3"><b>One Stop Shop:</b></Font></td>
</tr>

<td>&nbsp;</td>
<tr>
<td><input type="Checkbox"name="ProfileRemoval"value="1" onclick="ICTMaintDisable" tabindex=1><Font Face="Arial" size="3" color="Blue"> Old Local Profile Removal</Font></td>
<td><input type="Checkbox"name="SpySweeper"value="5" onclick="ICTMaintDisable" tabindex=5><Font Face="Arial" size="3" color="Blue"> Spysweeper Scan</Font></td>
<td><input type="Checkbox"name="ICTMaintenance"value="7" onclick="ToolsDisable" tabindex=7><Font Face="Arial" size="3" color="Blue"> ICT Maintenance</Font></td>
</tr>
<tr>
<td><input type="Checkbox"name="DiskCleanup"value="2" onclick="ICTMaintDisable" tabindex=2><Font Face="Arial" size="3" color="Blue"> Disk Cleanup</Font></td> 
</tr>
<tr>
<td colspan="1"><input type="Checkbox"name="CCleaner"value="3" onclick="ICTMaintDisable" tabindex=3><Font Face="Arial" size="3" color="Blue"> CCleaner</Font></td>
<td><input type="Checkbox"name="AntiVirus"value="6" onclick="ICTMaintDisable" tabindex=6><Font Face="Arial" size="3" color="Blue"> Anti-Virus Scan</Font></td>
</tr>
<tr>
<td colspan="2"><input type="Checkbox"name="ICTDefrag"value="4" onclick="ICTMaintDisable" tabindex=4><Font Face="Arial" size="3" color="Blue"> ICT Defrag</Font></td>
<td><Font Face="Arial" size="3"><b>Current Progress:</b></Font></td>
</tr>

<td>&nbsp;</td>
<tr>
<td><input type="Button" value="Run Checked" onclick="Selection" tabindex=8></td>
<td><input type="Button" value="Display Help" onclick="Help" tabindex=9></td>
<td><Font Face="Arial" size="3"><b>Total Progress:</b></Font></td>
</tr>

<td>&nbsp;</td>
<tr>
<td colspan="2"><Font Face="Arial" size="3"><b>Detailed Information:</b></Font></td>
<td><Font Face="Arial" size="3"><b>Help:</b></Font></td>
</tr>
<tr>
<td colspan="2"><textarea id="dispOutput" rows="20" cols="90" style="Font-Family:Arial" style="Color:Black" style="Font-Style:Italic" tabindex=10 readonly>Detailed Information About The Maintenance Tasks Will Be Displayed Here</textarea></td>
<td><textarea id="Help" rows="20" cols="50" style="font-family:Arial" style="Color:Black" style="Font-Style:Italic" tabindex=11 readonly>Help Topics Are Displayed Here</textarea></td>
</tr>
</table>
</body>
</html>

_____________________________

VBScript Documentation:

http://www.microsoft.com/downloads/details.aspx?FamilyID=01592c48-207d-4be1-8a76-1c4099d7bbb9&displaylang=en

(in reply to dm_4ever)

Post #: 3

RE: Assistance With Displaying Output In Text Area - 10/10/2008 11:09:04 AM

dm_4ever

Posts: 2641
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Every time the Help sub is called, clear the content first before you get to any of the If statements.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to morpheus83uk)

Post #: 4

RE: Assistance With Displaying Output In Text Area - 10/10/2008 7:51:13 PM

morpheus83uk

Posts: 373
Score: 0
Joined: 8/21/2006
Status: offline

Hi,

Thats great thanks for that :)

Its working perfectly.

Many Thanks

James

_____________________________

VBScript Documentation:

http://www.microsoft.com/downloads/details.aspx?FamilyID=01592c48-207d-4be1-8a76-1c4099d7bbb9&displaylang=en

(in reply to dm_4ever)

Post #: 5

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Assistance With Displaying Output In Text Area

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts