IE form to VBScript

RE: IE form to VBScript (jeh332)

Tue, 29 Jan 2008 10:01:14 GMT

Got it to work for the most part. Just a couple more questions to finish this up. What is the method to make the IE wondow load to the front?
and ehVBS, I was looking into those HTA files and they seem like they could work better than using an IE app. How do I call a .hta file from a VBS script?

Thanks everyone for their help so far.

Here's my code:

 Option Explicit
  Dim oIE
  Dim checkServiceArea, checkActors, checkTools, checkGoal, checkDescription, checkPreActivities, checkPostActivities
  
  
  'Launch Internet Explorer
  Set oIE = CreateObject("InternetExplorer.Application")
    oIE.left=50             ' window position
    oIE.top = 100           ' and other properties
    oIE.height = 400
    oIE.width = 450
    oIE.menubar = 0         ' no menu
    oIE.toolbar = 0
    oIE.statusbar = 0
    oIE.navigate "C:\Program Files\Metis\Metis6.0\xml\http\xml.bah.com\xml\scripting\esartoword.htm"  ' Form
    oIE.visible = True
  
  ' Wait till MSIE is ready
    Do While (oIE.Busy)      
    Loop
   
   
  ' Wait till the user clicks the OK button
   'On Error Resume Next  
   Do  ' Wait till OK button is clicked
   Loop While (oIE.Document.form1.formStatus.Value = 0)
   
   
   
  ' User has clicked the OK button, retrieve the values
   checkServiceArea = oIE.Document.form1.serviceArea.checked
   checkActors = oIE.Document.form1.actors.checked
   checkTools = oIE.Document.form1.tools.checked
   checkGoal = oIE.Document.form1.goal.checked
   checkDescription = oIE.Document.form1.description.checked
   checkPreActivities = oIE.Document.form1.preActivities.checked
   checkPostActivities = oIE.Document.form1.postActivities.checked
   
   MsgBox "Actors: " & checkActors
   
   
   oIE.Quit()             ' close Internet Explorer
   Set oIE = Nothing      ' reset object variable 
  'End

 <html>
 <head>
 </head>
 <script language="VBScript">
  Sub updateStatus
   form1.formStatus.Value = 1
  End Sub
 </script>
 <body>
  <p>
  <form name="form1">
  <input type="hidden" name="formStatus" Value = 0>
  <input type="checkbox" name="serviceArea" checked="yes" >Service Area &nbsp;<br>
  <input type="checkbox" name="actors" checked="yes">Actors &nbsp;<br>
  <input type="checkbox" name="tools" checked="yes">Tools &nbsp;<br>
  <input type="checkbox" name="preActivities" checked="yes">Pre-Activities &nbsp;<br>
  <input type="checkbox" name="postActivities" checked="yes">Post-Activies &nbsp;<br>
  <input type="checkbox" name="goal" checked="yes">Goal &nbsp;<br>
  <input type="checkbox" name="description" checked="yes">Description &nbsp;<br>
  <input type="button" name="button1" value="OK" onClick="updateStatus">
  </form>
  </p>
 </body>
 </html>

Ehvbs,

RE: IE form to VBScript (ebgreen)

Tue, 29 Jan 2008 09:00:47 GMT

Try changing this:

Do ' Wait till OK button is clicked
Loop While (oIE.Document.ValidForm.formStatus.Value = 0)

to this:

While (oIE.Document.ValidForm.formStatus.Value = 0)
WScript.Sleep 1000
Wend

RE: IE form to VBScript (jeh332)

Tue, 29 Jan 2008 08:43:01 GMT

VBS:

 Option Explicit
  Dim oIE
  Dim checkServiceArea, checkActors, checkTools, checkGoal, checkDescription, checkPreActivities, checkPostActivities
  
  
  'Launch Internet Explorer
  Set oIE = CreateObject("InternetExplorer.Application")
    oIE.left=50             ' window position
    oIE.top = 100           ' and other properties
    oIE.height = 400
    oIE.width = 450
    oIE.menubar = 0         ' no menu
    oIE.toolbar = 0
    oIE.statusbar = 0
    oIE.navigate "C:\Program Files\Metis\Metis6.0\xml\http\xml.bah.com\xml\scripting\esartoword.htm"  ' Form
    oIE.visible = True
  
  ' Wait till MSIE is ready
    Do While (oIE.Busy)      
    Loop
   
   
  ' Wait till the user clicks the OK button
   'On Error Resume Next  
   Do  ' Wait till OK button is clicked
   Loop While (oIE.Document.ValidForm.formStatus.Value = 0)
   
   
   
  ' User has clicked the OK button, retrieve the values
   checkServiceArea = oIE.Document.ValidForm.serviceArea.Value
   checkActors = oIE.Document.ValidForm.actors.Value
   checkTools = oIE.Document.ValidForm.tools.Value
   checkGoal = oIE.Document.ValidForm.goal.Value
   checkDescription = oIE.Document.ValidForm.description.Value
   checkPreActivities = oIE.Document.ValidForm.preActivities.Value
   checkPostActivities = oIE.Document.ValidForm.postActivities.Value
   
   oIE.Quit()             ' close Internet Explorer
   Set oIE = Nothing      ' reset object variable 
  'End

HTML:

  <html>
 <head>
  
 <script language="VBScript">
  Sub updateStatus
   formStatus.value = 1
  End Sub
 </script>
 
 </head>
  
 <body>
 <form name="ValidForm">
  <p>
  <input type="hidden" name="formStatus" value = 0>
  <input type="checkbox" name="serviceArea" value= 0 CHECKED>Service Area &nbsp;<br>
  <input type="checkbox" name="actors" value="1" CHECKED>Actors &nbsp;<br>
  <input type="checkbox" name="tools" value="1" CHECKED>Tools &nbsp;<br>
  <input type="checkbox" name="preActivities" value="1" CHECKED>Pre-Activities &nbsp;<br>
  <input type="checkbox" name="postActivities" value="1" CHECKED>Post-Activies &nbsp;<br>
  <input type="checkbox" name="goal" value="1" CHECKED>Goal &nbsp;<br>
  <input type="checkbox" name="description" value="1" CHECKED>Description &nbsp;<br>
  <input type="button" name="button1" value="OK" onClick="updateStatus">
  </p>
 </form>
 </body>
 </html>

RE: IE form to VBScript (ehvbs)

Tue, 29 Jan 2008 07:33:40 GMT

Hi jeh332,

did you consider using a .hta instead of the .html/.vbs combo?

Regards

ehvbs

RE: IE form to VBScript (ebgreen)

Tue, 29 Jan 2008 07:18:09 GMT

Please post the actual code that you are actually running so we can solve your actual problem.

RE: IE form to VBScript (jeh332)

Mon, 28 Jan 2008 21:52:52 GMT

I actually I have that commented out in my code. Came from the original code that I been taking from. But with that commented out it does what I explained in my previous post.

RE: IE form to VBScript (ebgreen)

Mon, 28 Jan 2008 12:32:39 GMT

Why do you have On Error Resume Next in there?

RE: IE form to VBScript (jeh332)

Mon, 28 Jan 2008 12:30:26 GMT

<html>
 <head>
 </head>
  
 <script language="VBScript">
  Sub updateStatus
   formStatus.value = 1
  End Sub
 </script>
 </head>
 <body>
 <form name="ValidForm">
  <p>
  <input type="hidden" name="formStatus" value = 0>
  <input type="checkbox" name="serviceArea" value= 0 CHECKED>Service Area &nbsp;<br>
  <input type="checkbox" name="actors" value="1" CHECKED>Actors &nbsp;<br>
  <input type="checkbox" name="tools" value="1" CHECKED>Tools &nbsp;<br>
  <input type="checkbox" name="preActivities" value="1" CHECKED>Pre-Activities &nbsp;<br>
  <input type="checkbox" name="postActivities" value="1" CHECKED>Post-Activies &nbsp;<br>
  <input type="checkbox" name="goal" value="1" CHECKED>Goal &nbsp;<br>
  <input type="checkbox" name="description" value="1" CHECKED>Description &nbsp;<br>
  <input type="button" name="button1" value="OK" onClick="updateStatus">
  </p>
 </form>
 </body>

 Option Explicit
  Dim oIE
  Dim checkServiceArea, checkActors, checkTools, checkGoal, checkDescription, checkPreActivities, checkPostActivities
  
  
  'Launch Internet Explorer
  Set oIE = CreateObject("InternetExplorer.Application")
    oIE.left=50             ' window position
    oIE.top = 100           ' and other properties
    oIE.height = 400
    oIE.width = 450
    oIE.menubar = 0         ' no menu
    oIE.toolbar = 0
    oIE.statusbar = 0
    oIE.navigate "C:\Program Files\Metis\Metis6.0\xml\http\xml.bah.com\xml\scripting\esartoword.htm"  ' Form
    oIE.visible = 1
  
  ' Wait till MSIE is ready
    Do While (oIE.Busy)      
    Loop
   
   
  ' Wait till the user clicks the OK button
   On Error Resume Next  
   Do  ' Wait till OK button is clicked
   Loop While (oIE.Document.ValidForm.formStatus.Value = 0)
   
   
  ' User has clicked the OK button, retrieve the values
   checkServiceArea = oIE.Document.ValidForm.serviceArea.Value
   checkActors = oIE.Document.ValidForm.actors.Value
   checkTools = oIE.Document.ValidForm.tools.Value
   checkGoal = oIE.Document.ValidForm.goal.Value
   checkDescription = oIE.Document.ValidForm.description.Value
   checkPreActivities = oIE.Document.ValidForm.preActivities.Value
   checkPostActivities = oIE.Document.ValidForm.postActivities.Value
   
   oIE.Quit()             ' close Internet Explorer
   Set oIE = Nothing      ' reset object variable 
  'End

Now it sits in loop, Button does nothing. Only thing that I can think of is that my formStatus.value = 1
sytax in my updateSatus function is wrong but I tried many variants. (Script does pass loop when fromStatus is set to 1 on default) So only thing that is hlding this up is that I cannot get formStatus to update to 1 on button click.

RE: IE form to VBScript (ebgreen)

Mon, 28 Jan 2008 11:38:13 GMT

Instead of having the buttons change the value of a variable, have them change the value of a hidden text field. Then you can look for the value of that field.

RE: IE form to VBScript (jeh332)

Mon, 28 Jan 2008 11:35:35 GMT

Any help for the proper syntax for doing this then?

I need to check the value of the checkVal function and loop while it is still 0.

RE: IE form to VBScript (ebgreen)

Mon, 28 Jan 2008 11:17:39 GMT

The document object does not have a .Script property.

RE: IE form to VBScript (jeh332)

Mon, 28 Jan 2008 10:57:12 GMT

Why doesn't it like this line of code in my do while loop:

oIE.Document.script.CheckVal=false

RE: IE form to VBScript (jeh332)

Mon, 28 Jan 2008 09:38:49 GMT

I'm new to VBS so a bit more direction would help. Where am I going wrong with my code?

RE: IE form to VBScript (dm_4ever)

Fri, 25 Jan 2008 10:34:32 GMT

Look at this example from Tom Lavedas

http://members.cox.net/tglbatch/wsh/PasswordBox.vbs.txt

 ' Just an example of how to use the function
 '
 wsh.echo "You entered: ", _
          Join(PasswordBox("Enter UID and password", _
               "Testing"), ", ")
 
 ' A function to present a Password dialog in a VBS (WSF) 
 ' script
 ' Requires WScript version 5.1+
 ' Tom Lavedas <tlavedas@hotmail.com>
 ' with help from and thanks to Joe Ernest and 
 ' Michael Harris
 '
 ' modified 1/2008 to handle IE7
 '
 Function PasswordBox(sPrompt, sDefault)
   set oIE = CreateObject("InternetExplorer.Application")
   With oIE
 ' Configure the IE window
     .RegisterAsDropTarget = False
     .statusbar = false : .toolbar    = false
     .menubar   = false : .addressbar = false
     .Resizable = False 
     .Navigate "about:blank"
     Do Until .ReadyState = 4 : WScript.Sleep 50 : Loop
 ' Test for IE 7 - cannot remove 'chrome' in that version
     sVersion  = .document.parentWindow.navigator.appVersion  
     if instr(sVersion, "MSIE 7.0") = 0 Then .FullScreen = True 
     .width = 400       : .height = 270
 ' Create the password box document
     With .document
       oIE.left = .parentWindow.screen.width \ 2 - 200
       oIE.top  = .parentWindow.screen.height\ 2 - 100
       .open
       .write "<html><head><" & "script>bboxwait=true;</" _
            & "script><title>Password _</title></head>"_
            & "<body bgColor=silver scroll=no " _
            & "language=vbs style='border-" _ 
            & "style:outset;border-Width:3px'" _
            & " onHelp='window.event.returnvalue=false" _
            & ":window.event.cancelbubble=true'" _
            & " oncontextmenu=" _ 
            & "'window.event.returnvalue=false" _
            & ":window.event.cancelbubble=true'" _
            & " onkeydown='if ((window.event.keycode>111)"_
            & " and  (window.event.keycode<117)) or" _
            & " window.event.ctrlkey then" _
            & " window.event.keycode=0" _
            & ":window.event.cancelbubble=true" _
            & ":window.event.returnvalue=false'" _
            & " onkeypress='if window.event.keycode=13" _
            & " then bboxwait=false'><center>" _
            & "<div style='padding:10px;background-color:lightblue'>" _
            & "<b>&nbsp" & sPrompt & "<b>&nbsp</div><p>" _
            & "<table bgcolor=cornsilk cellspacing=10><tr><td>" _
            & " <b>User:</b></td><td>" _
            & "<input type=text size=10 id=user value='" _
            & sDefault & "'>" _
            & "</td><tr><td> <b>Password:</b></td><td>" _
            & "<input type=password size=12 id=pass>" _ 
            & "</td></tr></table><br>" _
            & "<button onclick='bboxwait=false;'>" _
            & "&nbsp;Okay&nbsp;" _
            & "</button> &nbsp; <button onclick=" _
            & "'document.all.user.value=""CANCELLED"";" _
            & "document.all.pass.value="""";" _
            & "bboxwait=false;'>Cancel" _
            & "</button></center></body></html>"
       .close
       Do Until .ReadyState = "complete" : WScript.Sleep 100 : Loop
       .all.user.focus
       .all.user.select ' Optional
       oIE.Visible = True
       CreateObject("Wscript.Shell")_
         .Appactivate "Password _"
       PasswordBox = Array("CANCELLED")
       On Error Resume Next
       Do While .parentWindow.bBoxWait
         if Err Then Exit Function
         WScript.Sleep 100
       Loop
       oIE.Visible = False
       PasswordBox = Array(.all.user.value, _
                           .all.pass.value)
     End With ' document
   End With   ' IE
 End Function

IE form to VBScript (jeh332)

Fri, 25 Jan 2008 10:04:03 GMT

So I have a script created that loads a html form in IE. User should then be able to complete the form and hit the submit button to close IE and pass values back to the script. At this point the script runs but does not wait for a button click. The script loads the IE form and closes it before a button click. Here is my code.

HTML Form code:

  <html>
 <head>
 <body>
 <script language="VBScript">
 <!--
 Dim ready = false
 Public TheForm
  Sub Button1_onClick
   ready = true
  End Sub
  Sub window_onLoad ()
   ready = false
  End Sub
  Public Function CheckVal ()
   CheckVal = ready
  End Function
 </script>
 <form name="ValidForm">
  <p>
  <input type="checkbox" name="serviceArea" value="1" CHECKED>Service Area &nbsp;<br>
  <input type="checkbox" name="actors" value="1" CHECKED>Actors &nbsp;<br>
  <input type="checkbox" name="tools" value="1" CHECKED>Tools &nbsp;<br>
  <input type="checkbox" name="preActivities" value="1" CHECKED>Pre-Activities &nbsp;<br>
  <input type="checkbox" name="postActivities" value="1" CHECKED>Post-Activies &nbsp;<br>
  <input type="checkbox" name="goal" value="1" CHECKED>Goal &nbsp;<br>
  <input type="checkbox" name="description" value="1" CHECKED>Description &nbsp;<br>
  <input type="button" name="Button1" value="OK">
  </p>
 </form>
 </body>
 </html>

VBScript code:

 
   Dim oIE
   Dim Title 
   Dim checkServiceArea, checkActors, checkTools, checkGoal, checkDescription, checkPreActivities, checkPostActivities
   
   
   'Launch Internet Explorer
   Set oIE = CreateObject("InternetExplorer.Application")
     oIE.left=50             ' window position
     oIE.top = 100           ' and other properties
     oIE.height = 380
     oIE.width = 450
     oIE.menubar = 0         ' no menu
     oIE.toolbar = 0
     oIE.statusbar = 0
     oIE.navigate path + "C:\Program Files\Metis\Metis6.0\xml\http\xml.bah.com\xml\scripting\esartoword.htm"  ' Form
     oIE.visible = 1
   
   ' Wait till MSIE is ready
     Do While (oIE.Busy)      
     Loop
      
   ' Wait till the user clicks the OK button
    On Error Resume Next  
    Do  ' Wait till OK button is clicked
    Loop While (oIE.Document.script.CheckVal=false)
    
   ' User has clicked the OK button, retrieve the values
    checkServiceArea = oIE.Document.ValidForm.serviceArea.Value
    checkActors = oIE.Document.ValidForm.actors.Value
    checkTools = oIE.Document.ValidForm.tools.Value
    checkGoal = oIE.Document.ValidForm.goal.Value
    checkDescription = oIE.Document.ValidForm.description.Value
    checkPreActivities = oIE.Document.ValidForm.preActivities.Value
    checkPostActivities = oIE.Document.ValidForm.postActivities.Value
    
    oIE.Quit()             ' close Internet Explorer
    Set oIE = Nothing      ' reset object variable 
   'End