Guest User

Untitled

a guest
Jan 2nd, 2019
215
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Clickaboton()
  2. Dim IE As Object
  3. Set IE = CreateObject("InternetExplorer.Application")
  4. IE.navigate "http://www.databook-premium.com.ec/macvasquez-premium/index.php/welcome"
  5. Do Until IE.readyState = 4
  6. DoEvents
  7. Loop
  8. Application.Wait (Now + TimeValue("0:00:01"))
  9. With IE
  10. .Document.getElementById("create-user").Click
  11. .document.getElementById("name").Value = "ERIKORTEGA"
  12. .document.getElementById("password").Value = "COBR2CHIC"
  13. .document.getelementsbytagname("button")(1).Click
  14.  
  15. .Visible = True
  16. End With
  17. Set IE = Nothing
  18. End Sub
RAW Paste Data