Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
vbscript forms
- Thread starter dwcandco
- Start date
Yes - you need three files (from what I can tell
----file 1 fdialogbox.vbs
'information for alltogether.vbs also needs alltogether.wfs
Function DialogBox(L, T, H, W, Cancel, File)
Dim DFile
Set DFile = FileSystem.GetFile(File)
IEDbx.Left = L
IEDbx.Top = T
IEDbx.Height = H
IEDbx.Width = W
IEDbx.MenuBar = 0
IEDbx.ToolBar = 0
IEDbx.StatusBar = 0
IEDbx.navigate DFile
IEDbx.Visible = 1
Do While (IEDbx.Busy)
WScript.Sleep 200
Loop
On Error Resume Next
Do
WScript.Sleep 200
Loop While (IEDbx.Document.Script.ClickButton() = 0)
If IEDbx.Document.Script.ClickButton() = 3 Then
Cancel = True
End If
If Err <> 0 Then
WScript.Quit
End If
On Error GoTo 0
End Function
------- File 2 alltogether.vbs------
<?XML Version="1.0" ?> 'Generates a script form
<?job error="true" debug="true"?>
<job id="VB Code">
<script language="VBScript" src="FDialogBox.vbs">
<
Set FileSystem = CreateObject("Scripting.FileSystemObject"
Set IEDbx = WScript.CreateObject("InternetExplorer.Application"
Cancel = False
DbxFile = "AllTogether.htm"
Call DialogBox(100, 60, 486, 383, Cancel, DbxFile)
If Cancel Then
IEDbx.Quit
Set IEDbx = Nothing
Wscript.Quit
End If
FirstName = IEDbx.Document.Dbx.fname.Value
LastName = IEDbx.Document.Dbx.lname.Value
Set DropDownDialog = IEDbx.Document.Dbx.Elements
Set DropDownItem = DropDownDialog ("Department"
For Each Item in DropDownItem.Options
If Item.Selected Then
Depart = Item.Text
Exit For
End If
Next
Set DropDownDialog = Nothing
Set DropDownItem = Nothing
Set RadioButtonDialog = IEDbx.Document.Dbx.Elements("Comp"
For Each RadioButton in RadioButtonDialog
If RadioButton.Checked = True Then
Comp = RadioButton.Value
Exit For
End If
Next
Set RadioButtonDialog = Nothing
Set CheckBoxDialog = IEDbx.Document.Dbx.Elements("App"
List = ""
For Each CheckBox in CheckBoxDialog
If CheckBox.Checked = True Then
List = List & vbCrLf & CheckBox.Value
End IF
Next
Set CheckBoxDialog = Nothing
Results = "You chose the following:" & vbCrLf &_
FirstName & " " & LastName & vbCrLf &_
Depart & vbCrLf &_
Comp & vbCrLf &_
List
MsgBox Results
IEDbx.Quit
Set IEDbx = Nothing
]]>
</script>
</job>
-------file 3 alltogether.htm-----
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>TroubleShooter</title>
</head>
<body bgcolor="#D3D1CF" scroll="no">
<script language="VBScript">
<!--
Dim Continue
Sub Window_OnLoad()
Continue = 0
End Sub
Sub button1_OnClick
Continue = 1
End Sub
Sub button2_OnClick
Continue = 3
End Sub
Public Function ClickButton
ClickButton = Continue
End Function
'-->
</script>
<form name="Dbx">
<p>Please type your first and last name:<br>
First name: <input type="text" size="20" name="fname"> <br>
Last name: <input type="text" size="20" name="lname"></p>
<p>Please select your department<br>
<select name="Department" size="1">
<option>None of Your Business</option>
<option>Accounting</option>
<option>Administration</option>
<option>Sales</option>
<option>Warehouse</option>
<option>Customer Relations</option>
<option>Marketing</option>
</select></p>
<p>Please select you computer </p>
<div align="left"><table border="0" width="350">
<tr>
<td width="50%"><input type="radio" name="Comp"
value="Compaq Deskpro EN">Compaq Deskpro EN<br>
<input type="radio" name="Comp"
value="Dell Dimension L">Dell Dimension L<br>
<input type="radio" name="Comp"
value="Gateway Profile">Gateway Profile</td>
<td width="50%"><input type="radio" name="Comp"
value="Compaq Deskpro EXD">Compaq Deskpro EXD<br>
<input type="radio" name="Comp"
value="Dell Dimension 4100">Dell Dimension 4100<br>
<input type="radio" name="Comp"
value="Gateway Profile">Gateway Performance</td>
</tr>
</table>
</div><p>Please select the applications installed on your
computer </p>
<div align="left"><table border="0" width="200">
<tr>
<td width="50%"><input type="checkbox" name="App"
value="Word">Word<br>
<input type="checkbox" name="App" value="Excel">Excel<br>
<input type="checkbox" name="App" value="Access">Access</td>
<td width="50%"><input type="checkbox" name="App"
value="PowerPoint">PowerPoint<br>
<input type="checkbox" name="App" value="Outlook">Outlook<br>
<input type="checkbox" name="App" value="FrontPage">FrontPage</td>
</tr>
</table>
</div><p><input type="button" name="button1" value=" OK ">
<input type="button" name="button2" value=" Cancel "></p>
</form>
<p> </p>
</body>
</html>
-------------end of files
try running this from the htm file
----file 1 fdialogbox.vbs
'information for alltogether.vbs also needs alltogether.wfs
Function DialogBox(L, T, H, W, Cancel, File)
Dim DFile
Set DFile = FileSystem.GetFile(File)
IEDbx.Left = L
IEDbx.Top = T
IEDbx.Height = H
IEDbx.Width = W
IEDbx.MenuBar = 0
IEDbx.ToolBar = 0
IEDbx.StatusBar = 0
IEDbx.navigate DFile
IEDbx.Visible = 1
Do While (IEDbx.Busy)
WScript.Sleep 200
Loop
On Error Resume Next
Do
WScript.Sleep 200
Loop While (IEDbx.Document.Script.ClickButton() = 0)
If IEDbx.Document.Script.ClickButton() = 3 Then
Cancel = True
End If
If Err <> 0 Then
WScript.Quit
End If
On Error GoTo 0
End Function
------- File 2 alltogether.vbs------
<?XML Version="1.0" ?> 'Generates a script form
<?job error="true" debug="true"?>
<job id="VB Code">
<script language="VBScript" src="FDialogBox.vbs">
<![CDATA[
Dim IEDbx, FileSystem, DbxFile, Cancel
Set WshShell = WScript.CreateObject("WScript.Shell"
Set FileSystem = CreateObject("Scripting.FileSystemObject"
Set IEDbx = WScript.CreateObject("InternetExplorer.Application"
Cancel = False
DbxFile = "AllTogether.htm"
Call DialogBox(100, 60, 486, 383, Cancel, DbxFile)
If Cancel Then
IEDbx.Quit
Set IEDbx = Nothing
Wscript.Quit
End If
FirstName = IEDbx.Document.Dbx.fname.Value
LastName = IEDbx.Document.Dbx.lname.Value
Set DropDownDialog = IEDbx.Document.Dbx.Elements
Set DropDownItem = DropDownDialog ("Department"
For Each Item in DropDownItem.Options
If Item.Selected Then
Depart = Item.Text
Exit For
End If
Next
Set DropDownDialog = Nothing
Set DropDownItem = Nothing
Set RadioButtonDialog = IEDbx.Document.Dbx.Elements("Comp"
For Each RadioButton in RadioButtonDialog
If RadioButton.Checked = True Then
Comp = RadioButton.Value
Exit For
End If
Next
Set RadioButtonDialog = Nothing
Set CheckBoxDialog = IEDbx.Document.Dbx.Elements("App"
List = ""
For Each CheckBox in CheckBoxDialog
If CheckBox.Checked = True Then
List = List & vbCrLf & CheckBox.Value
End IF
Next
Set CheckBoxDialog = Nothing
Results = "You chose the following:" & vbCrLf &_
FirstName & " " & LastName & vbCrLf &_
Depart & vbCrLf &_
Comp & vbCrLf &_
List
MsgBox Results
IEDbx.Quit
Set IEDbx = Nothing
]]>
</script>
</job>
-------file 3 alltogether.htm-----
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>TroubleShooter</title>
</head>
<body bgcolor="#D3D1CF" scroll="no">
<script language="VBScript">
<!--
Dim Continue
Sub Window_OnLoad()
Continue = 0
End Sub
Sub button1_OnClick
Continue = 1
End Sub
Sub button2_OnClick
Continue = 3
End Sub
Public Function ClickButton
ClickButton = Continue
End Function
'-->
</script>
<form name="Dbx">
<p>Please type your first and last name:<br>
First name: <input type="text" size="20" name="fname"> <br>
Last name: <input type="text" size="20" name="lname"></p>
<p>Please select your department<br>
<select name="Department" size="1">
<option>None of Your Business</option>
<option>Accounting</option>
<option>Administration</option>
<option>Sales</option>
<option>Warehouse</option>
<option>Customer Relations</option>
<option>Marketing</option>
</select></p>
<p>Please select you computer </p>
<div align="left"><table border="0" width="350">
<tr>
<td width="50%"><input type="radio" name="Comp"
value="Compaq Deskpro EN">Compaq Deskpro EN<br>
<input type="radio" name="Comp"
value="Dell Dimension L">Dell Dimension L<br>
<input type="radio" name="Comp"
value="Gateway Profile">Gateway Profile</td>
<td width="50%"><input type="radio" name="Comp"
value="Compaq Deskpro EXD">Compaq Deskpro EXD<br>
<input type="radio" name="Comp"
value="Dell Dimension 4100">Dell Dimension 4100<br>
<input type="radio" name="Comp"
value="Gateway Profile">Gateway Performance</td>
</tr>
</table>
</div><p>Please select the applications installed on your
computer </p>
<div align="left"><table border="0" width="200">
<tr>
<td width="50%"><input type="checkbox" name="App"
value="Word">Word<br>
<input type="checkbox" name="App" value="Excel">Excel<br>
<input type="checkbox" name="App" value="Access">Access</td>
<td width="50%"><input type="checkbox" name="App"
value="PowerPoint">PowerPoint<br>
<input type="checkbox" name="App" value="Outlook">Outlook<br>
<input type="checkbox" name="App" value="FrontPage">FrontPage</td>
</tr>
</table>
</div><p><input type="button" name="button1" value=" OK ">
<input type="button" name="button2" value=" Cancel "></p>
</form>
<p> </p>
</body>
</html>
-------------end of files
try running this from the htm file
- Status
Similar threads
- Locked
- Question
