Gru?

Ralf

Gru?

Ralf

Option Explicit
Private bGo As Boolean
Private Sub Command1_Click()
bGo = True
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://wohinduwillst.de"
End Sub
 
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
  Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As _
  Variant, Cancel As Boolean)
Dim eleInput As IHTMLInputElement
Dim eleAll As IHTMLElementCollection
Dim eleForm As IHTMLFormElement
Dim eleInputForm As IHTMLElement
 
If bGo Then
Set eleAll = WebBrowser1.Document.getElementsByTagName("INPUT")
 
For Each eleInput In eleAll
    If LCase(eleInput.Type) = "password" Then
        Set eleForm = eleInput.Form
        For Each eleInputForm In eleForm.elements
            If LCase(eleInputForm.Type) = "text" Or LCase(eleInputForm.Type) = _
              "password" Then
                Debug.Print eleInputForm.Name & " " & eleInputForm.Value
            End If
        Next
 
    End If
Next
 Debug.Print eleForm.Name
 
End If
 
End Sub

Gru?

Ralf

dim oShellWindows as new SHDocVw.ShellWindows
dim oShellWindow as object 
 
private sub findIE() 
   on error resume next 
   for each oShellWindow in oShellWindows
       if TypeOf oShellWindow.document is HTMLDocument then 
          debug.print oShellWindow.document.title

Gru?

Ralf

   end if 
next 
end sub

Gru?

Ralf

Gru?

Ralf

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.