Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Clickaboton()
- Dim IE As Object
- Set IE = CreateObject("InternetExplorer.Application")
- IE.navigate "http://www.databook-premium.com.ec/macvasquez-premium/index.php/welcome"
- Do Until IE.readyState = 4
- DoEvents
- Loop
- Application.Wait (Now + TimeValue("0:00:01"))
- With IE
- .Document.getElementById("create-user").Click
- .document.getElementById("name").Value = "ERIKORTEGA"
- .document.getElementById("password").Value = "COBR2CHIC"
- .document.getelementsbytagname("button")(1).Click
- .Visible = True
- End With
- Set IE = Nothing
- End Sub
Add Comment
Please, Sign In to add comment