cGebruikersnaam = "abracadabra" cPassword = "hocuspocus" cUrl = "https://securesitefiction.nl" THISFORM.oWebBrowser.Navigate(cUrl) dc =THISFORM.oWebBrowser.document DO WHILE dc.readystate <> "complete" ENDDO **** INVULLEN EN INLOGGEN dc.Forms(0).item("strUserID").Value = cGebruikersnaam dc.Forms(0).item("strPassword").Value = cPassword dc.Forms(0).item("Inloggen").Click() ***Login DO WHILE (dc.readystate <> "complete") ENDDO MESSAGEBOX(dc.readystate) && gives "complete" MESSAGEBOX(thisform.owebbrowser.readystate) && gives 4 dc.links(1).click() && error member "links" does not evaluate to an object *just testing: loLinks = dc.getElementsByTagName("A") MESSAGEBOX(lolinks.length) FOR EACH lnk IN lolinks MESSAGEBOX(lnk.innerhtml) IF LOWER(lnk.innerhtml) = "overschrijven" lnk.click() ENDIF ENDFORZakaria al Azhar