Network Login Pop Up

**wolfess** · Oct 24th, 2005, 12:06 PM

I'm not sure I'm in the right forum, if there is a better forum, please let me know.

I have to devlop a VBscript pop up, that uses IE as the UI (because the pop up has to display four fields from a database), the displayed fields are verified as correct or corrected by the user and then a simple click on the 'submit' button ends the pop up session.

I have written some code:

VB Code:

'script to use InterNet Explorer as User Interface
Dim doc, page, strIETitle, oDB
' Instantiate database class
Set odb = New DataBaseFunctions
strIETitle="On Call Verification Thingie - Ver .60"
fn=WScript.scriptFullName
p=InStrRev(fn,"\")
appldir=Left(fn,p)
Set objShell = CreateObject("WScript.Shell")
Set objIE=WScript.CreateObject("internetexplorer.application","iexplore_")
 
With objIE
   .ToolBar = False
   .StatusBar = False
   .Resizable = False
   .Navigate("about:blank")
   Do Until .readyState = 4
     WScript.Sleep 100
   Loop
   With .document
     With .ParentWindow
       intWidth = .Screen.AvailWidth
       intHeight = .Screen.AvailHeight
       intWidthW = .Screen.AvailWidth * .50
       intHeightW = .Screen.AvailHeight * .38
                                                    ' Was .05
       .resizeto intWidthW, intHeightW
       .moveto (intWidth - intWidthW)/2, (intHeight - intHeightW)/2
     End With
     .Write "<body> " & strMsg & " </body></html>"
     With .ParentWindow.document.body
       .style.backgroundcolor = "LightBlue"
       .scroll="no"
       .style.Font = "10pt 'Courier New'"
       .style.borderStyle = "outset"
       .style.borderWidth = "4px"
     End With
     .Title = strIETitle
     objIE.Visible = True
     WScript.Sleep 100
     objShell.AppActivate strIETitle
   End With
 End With
 
 objIE.visible=True
' Test sleep below
 WScript.Sleep 6000
 html="oncall.htm"
 loadDocument(html)
 ieLoaded
 bReady=False
 Do
   WScript.sleep(100)
   If html<>"" Then
     loadDocument(html)
     ieLoaded
   End If
 Loop until bReady
 
 
 Set objIE=Nothing
 WScript.Quit
 
 Sub iexplore_onQuit()
   bReady=True
 End Sub
 
 Sub loadDocument(adoc)
   objIE.navigate(appldir & adoc)
   page=adoc
   html=""
   'wait till document loaded
   Do While objIE.readystate<>4
   Loop
    'doc is defined here
   Set doc=objIE.document
 End Sub
 
 Sub iesubmit()
   Select Case page
   Case "oncall.htm"
     ie_form
   Case Else
 
   End Select
   page=doc.forms(0).action
   html=page
 End Sub
 
 Sub ieLoaded()
   Select Case page
     Case "oncall.htm"
        ie_form_loaded
     Case Else
   End Select
 
 End Sub
 
 Sub ie_form()
   strName=doc.forms(0).elements("strName").value
   MsgBox(strName)
 End Sub
 
 Sub ie_form_loaded()
   objIE.document.forms(0).elements("submit").onclick=GetRef("iesubmit")
 End Sub
 
Class DataBaseFunctions
 
 ' This class is to be used client side.
 
 ' Declare variables to have public scope.
 
 Public rs
 Public cn
 
 'Method to initialize connection to database
 
 Private Sub Init
  
  If IsObject(cn) = False Then
  
   Set cn = CreateObject("ADODB.Connection")
   Set rs = CreateObject("ADODB.Recordset")
  
   cn.ConnectionString = Application("DB_CONN")
   cn.Open
  
  End If
 
 End Sub
 
 ' Method to destory objects created.
 
 Public Sub Destroy
  
  If IsObject(rs) = True Then
   rs.Close
   Set rs = Nothing
  End If
  
  If IsObject(cn) = True Then
   cn.Close
   Set cn = Nothing
  End If 
  
 End Sub
 
End Class

I haven't established a connection to the database yet, because, I have
a UI problem. If you run the above code, on line 134 I get an object required
error from WSH.

Anyone see why I'm getting the error?

v/r

Steve

**wolfess** · Oct 24th, 2005, 01:09 PM

I forgot to post the code to the form, here it is:

Code:

<html>
<head>
<title>On Call - User Data Verification</title>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub CheckInfo()
  Dim txtHphone, txtWPhone, txtCPhone, txtPager
  Password = Document.frmRegistration.txtPassword.Value
  'Not much here yet
End Sub
' I'm wondering if I shouldn't instantiate the dataclass here instead
' of in dialog02 ...?
-->
</SCRIPT>
</head>
<body>
<h1>On Call Data Verification</h1>
<p>Please verify the following information for correctness.</p>
<br>
<p>Make any changes that are necessary.</p>


<form name="frmRegistration">
  <table border="0" width="500" cellpadding="0" cellspacing="0">
    <tr>
      <td width="25%">Home Phone:</td>
      <td width="25%"><input type="text" name="txtHomePhone" size = "15"></td>
      <td width="25%">Work Phone:</td>
      <td width="25%"><input type="text" name="txtWorkPhone" size = "15"></td>
    </tr>
    <tr>
      <td width="25%">Cell Phone:</td>
      <td width="25%"><input type="text" name="txtCellPhone" size="15"></td>
      <td width="25%">Page:</td>
      <td width="25%"><input type="text" name="txtPager" size = "15"></td>
    </tr>
    <tr>
      <td width="25%">&nbsp;</td>
      <td width="75%" colspan="3"><input type="button" value="Send It" onClick="CheckInfo()"></td>
    </tr>
    <tr>
      <td width="25%">Result:</td>
      <td width="75%" colspan="3"><input type="text" name="txtResult" size="40"></td>
    </tr>
  </table>
</form>

</body>
</html>

Sorry 'bout that ...

Steve

**wolfess** · Oct 25th, 2005, 07:03 AM

No hints/help here?

Line 134 in dialog02 is the line after: Sub ie_form_loaded()

v/r

Steve

Thread: Network Login Pop Up

Thread Tools

Display

Network Login Pop Up

Re: Network Login Pop Up -- Oops the form

Re: Network Login Pop Up

Posting Permissions