vi prego aiutatemi!!
ho creato un codice in vb6 xk mi potesse cliccare un pulsante "ok" in una pagina html, ma dopo questa operazione di pagina se ne apre un'altra con un altre pulsante "ok" avendo questo le stesse istruzioni del precedente ho semplicemente reinserito le istruzione del primo pulsante, ma non funziona!!!
mi potreste aiutare??
questo è il codice che ho fatto.....
[ CODE]
Dim i As Integer
Dim d As IHTMLDocument3
Dim el As IHTMLElement
Private Sub Form_Load()
WebBrowser1.Navigate URL:=""
Timer1.Interval = 5000
i = 0
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 2 Then
WebBrowser1.Navigate URL:=""
'attende il caricamento della pagina
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
'variabile documento
Set d = WebBrowser1.Document
'
Set el = d.getElementsByName("t1").Item(0)
el.setAttribute "value", "2"
'
Set el = d.getElementsByName("c")(0)
el.setAttribute "value", "4"
'pulsante di invio
Set el = d.getElementsByName("s1")(0)
el.Click
While Not WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Wend
Set d = WebBrowser1.Document
'pulsante di invio
Set el = d.getElementsByName("s1")(0)
el.Click
i = 0
End If
End Sub
[/ CODE]