Transferring from IE 10 to IE 11 in excel VBA -
i have code go website , log in. worked fine until yesterday, when got error
'run time error '429': activex object can't create object
i checked, , somehow internet explorer gone programs. code:
dim ie object dim strurl string dim objelement object sub login() ' add reference microsoft internet controls ' add reference microsoft html object library set ie = new shdocvw.internetexplorer ie.visible = true ie.navigate "https://minecraft.net/profile" while ie.busy doevents wend until not ie.busy , ie.readystate = 4 doevents loop ie.document.getelementbyid("username").value = "bobbybobwob" ie.document.getelementbyid("password").value = "ceylon878" dim htmlform htmlformelement set htmlform = ie.document.getelementbyid("loginform") htmlform.submit ' ********************************************************************** 'ie.document.getelementbyid("username").value = "ddddd" ' ie.document.getelementbyid("password").value = "dddddd" ' ie.document.getelementbyid("signin").click '********************************************************************** 'pause while page loads application.wait (now + #12:00:03 am#) ie.navigate "https://minecraft.net/profile/password" until not ie.busy , ie.readystate = 4 doevents loop ie.document.getelementbyid("oldpassword").value = "dsfsdf" ie.document.getelementbyid("password").value = "sdafsadfsdfsdafsdfsfsdf" ie.document.getelementbyid("passwordconfirmation").value = "sdafsadfsdfsdafsdfsfsdf" ie.document.getelementbyid("submit").click end sub
Comments
Post a Comment