[VB] webbrowser control en frames... - Softwareontwikkeling

dinsdag 27 mei 2003 21:03

Acties:

Verwijderd

Topicstarter

he hallo,

Wie kan mij helpen met het volgende probleem:

Ik roep een pagina op in mijn webbrowser control, deze pagina bestaat uit 3 frames.
Pagina:

code:

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
    <FRAMESET>
        <FRAME NAME="frame1" SRC="frame1.html">
        <FRAME NAME="frame2" SRC="frame2.html">
        <FRAME NAME="frame3" SRC="frame3.html">
    </FRAMESET>
</HTML>

VB source:

code:

Private Sub Form_Load()
    Dim myDoc As HTMLDocument
    
    WebBrowser.Navigate ("http://www.3-framed-page.nl")
    
    Do While WebBrowser.Busy
       DoEvents
    Loop
    
    Set myDoc = WebBrowser.Document
    Login myDoc
End Sub

Op 1 van deze frames staan een aantal invoervakken, om in te kunnen loggen.
Frame:

code:

<HTML>
<HEAD></HEAD>
<BODY>
<FORM NAME="login" ACTION="http:/www.3-paged-frame.nl/member.html" METHOD="post">
    Loginnaam<BR>
    <INPUT TYPE="text" NAME="loginnaam"><BR>
    Passwoord<BR>
    <INPUT TYPE="password" NAME="paswoord"><BR>
</FORM>
</BODY>
</HTML>

Snappen jullie het nog? mooi....

In deze frame wil ik automatisch mijn inloggegevens zetten...
VB source:

code:

Sub Login(myDocument As HTMLDocument)
For i = 0 To myDocument.frames.length - 1
    If myDocument.frames(i).Name = "frame2" Then
        myDocument.frames(i).Document.All("loginnaam").Value = "FOP"
        myDocument.frames(i).Document.All("paswoord").Value = "YEAHRIGHT!"
    Exit Sub
   End If
Next
End Sub

Dit werkt dus niet

Als ik alleen de frame opvraag in de webbrowser, dan werkt de volgende code wel..
VB source:

code:

Sub Login(myDocument As HTMLDocument)
    myDocument.All("loginnaam").Value = "FOP"
    myDocument.All("paswoord").Value = "YEAHRIGHT!"
End Sub

Maar dat wil ik dus niet, ik wil heel de pagina en niet alleen de frame...

Het verhaal is een beetje lang geworden maar ik wil alleen maar duidelijk zijn...
Ik ben al 3 dagen bezig met dit...ik word er echt gek van....

Alvast bedankt,
FOP

woensdag 28 mei 2003 08:47

Acties:

OZ-Gump

terug van weggeweest

Hmm.... als ik het zo bekijk zou ik denken dat hij dus niet door de if heenkomt wat betreft de naam van het frame. Heb je al eens geprobeerd om in je loop een msgbox te zetten met de namen van de frames zoals ze binnen jou app bekend zijn? Op die manier weet je pas zeker of je wel de juiste frame naam hebt en of hij die if wel netjes uitvoert.
Je kunt dit natuurlijk ook met een breakje doen...

My personal website

woensdag 28 mei 2003 09:20

Acties:

Verwijderd

Topicstarter

Hij komt wel door de If heen, als ik een messagebox met de naam van het frame geef na de afvanging, krijg ik netjes het frame naam te zien...het lijkt erop dat ik het frame niet kan benaderen...ook innerhtml kan niet getoond worden...

woensdag 28 mei 2003 10:08

Acties:

Theguide

Ik neem aan dat die inlogveldjes in een form staan. Kun je niet eens proberen om frames(i).Document.All te vervangen door frames(i).formName.loginnaam?

Fuck me if I'm wrong, but isn't your name Gretchen?

woensdag 28 mei 2003 15:13

Acties:

Verwijderd

Topicstarter

Ik zit op m'n werk, zal het vanavond ff proberen...

woensdag 28 mei 2003 17:23

Acties:

curry684

left part of the evil twins

Volgens mij geeft de Busy flag alleen aan dat het webbrowser component zelf zijn pagina ingeladen heeft. Je hebt op dat moment geen garantie dat de frames ook al geladen zijn, het zal zelfs hoogst onwaarschijnlijk zijn. Met de readyState property van de frames kun je echter wel wachten totdat deze complete zijn. Zie ook hier.

Professionele website nodig?

donderdag 29 mei 2003 12:18

Acties:

Verwijderd

Topicstarter

curry684 schreef op 28 mei 2003 @ 17:23:
Volgens mij geeft de Busy flag alleen aan dat het webbrowser component zelf zijn pagina ingeladen heeft. Je hebt op dat moment geen garantie dat de frames ook al geladen zijn, het zal zelfs hoogst onwaarschijnlijk zijn. Met de readyState property van de frames kun je echter wel wachten totdat deze complete zijn. Zie ook hier.

That's it! de frame was nog niet geladen....
Thnx!