PDA

View Full Version : Jscript and VBscript???

webman
09-11-2001, 03:13 AM
I need to execute the function "Page Search" with a button. I know that I can do this under Netscape if I use self.find() but under IE this javascript code doesn't work.

I found some information in the msdn.com web site that should execute the find dialog box (ctrl+f) when I press a button. I found a code made with Jscript and another one made with VBscript. I tried to execute these codes under IE, but I've only got script errors. I don't know why they don't work. Could anybody check these codes out and PLEASSSSE tell me what's wrong??? Thanx!

-> Jscript

<html>
<head>
<SCRIPT LANGUAGE="JScript">
<!--

function fnCreateShell()
{
var oShell = new ActiveXObject("Shell.Application");
oShell.FindFiles;
}

-->
</SCRIPT>
</head>
<INPUT type="button" value="Find a File or Folder" onclick="fnCreateShell()">
</body>
</html>


-> VBscript (actually I only need here the "case 3")

<HTML>
<HEAD>
<TITLE>Start Page</TITLE>

<OBJECT ID="oShell"
CLASSID="clsid:13709620-C279-11CE-A49E-444553540000">
</OBJECT>

<STYLE>
INPUT {width: 200}
</STYLE>

<SCRIPT LANGUAGE="VBScript">
<!--
function fnStart(sMethod)
select case sMethod
case 0
'Minimizes all windows on the desktop
oShell.MinimizeAll
case 1
'Displays the Run dialog box
oShell.FileRun
case 2
'Displays the Shut Down Windows dialog box
oShell.ShutdownWindows
case 3
'Displays the Find dialog box
oShell.FindFiles
case 4
'Displays the Date/Time dialog box
oShell.SetTime
case 5
'Displays the Internet Properties dialog box
oShell.ControlPanelItem "INETCPL.cpl"
case 6
'Explores the My Documents folder
oShell.Explore "C:\My Documents"
case 7
'Enables user to select folder from Program Files
oShell.BrowseForFolder 0, "My Programs", 0, "C:\Program Files"
case 8
'Opens the Favorites folder
oShell.Open "C:\WINDOWS\Favorites"
case 9
'Displays the Taskbar Properties dialog box
oShell.TrayProperties
end select
end function
-->
</SCRIPT>

</HEAD>

<BODY>

<H1>Start...</H1>
<INPUT type="button" value="Edit Taskbar Properties" onclick="fnStart(9)"><br>
<INPUT type="button" value="Open Favorites Folder" onclick="fnStart(8)"><br>
<INPUT type="button" value="Browse Program Files" onclick="fnStart(7)"><br>
<INPUT type="button" value="Explore My Documents" onclick="fnStart(6)"><br>
<INPUT type="button" value="Modify Internet Properties" onclick="fnStart(5)"><br>
<INPUT type="button" value="Set System Time" onclick="fnStart(4)"><br>
<INPUT type="button" value="Find a File or Folder" onclick="fnStart(3)"><br>
<INPUT type="button" value="Shut Down Windows" onclick="fnStart(2)"><br>
<INPUT type="button" value="Run" onclick="fnStart(1)">
<INPUT type="button" value="Minimize All Windows" onclick="fnStart(0)">
</BODY>
</HTML>