vb6 errore oggetto

[marcello90]

Private Sub Command1_Click()
'per inserire username e password
Dim d As IHTMLDocument3
Dim el As IHTMLElement
    
Set d = wbs1.Document
    
'Set el = d.getElementsByName("nome").Item(0)    'ricava l'elemento 0 dalla collezione di elementi aventi name="LOGIN"
'el.setAttribute "value", "pippo"                    'imposta l'attributo html value="pippo"

'Set el = d.getElementsByName("pass")(0)
'el.setAttribute "value", "password"

'pulsante di invio
Set el = d.getElementsByName("HELP")(0)
el.Click

End Sub

Private Sub Command2_Click()
Dim stringa As String
stringa = wbs1.Document.body.innerText

MsgBox stringa
End Sub

mi da errore proprietà dell'oggetto non supportata come mai?

[morocarlo]

dove? e cosa dovrebbe fare il codice?

[marcello90]

deve inserire user e passwrod e leggere il codice html

[morocarlo]

http://www.vbforums.com/showthread.php?t=406671

http://msdn.microsoft.com/it-it/libr...8VS.80%29.aspx

[marcello90]

ho visto ma non ne trovo soluzione

[morocarlo]

posta tutto il codice, e di dove ti da errore

[marcello90]

il problema l'ho risolto in questo modo

Dim stringa, stringa2 As String
stringa = wbs1.Document.documentElement.innerHTML
'For i = 1 To Len(stringa)
'stringa2 = Mid(stringa, i, 5)
'If stringa2 = "Model" Then
'MsgBox "ciao"
'End If
'MsgBox stringa2
'Next i

MsgBox stringa

il Problema è che non mi legge realmente tutto il testo forse perché quello che mi interessa si trova in un frame?
Se si come faccio a leggere i dati di un frame?


grazie