2017-02-22 6 views
0

Ich muss auf einer Website einloggen. Jedes Mal, wenn ich die Anmeldeinformationen mit VBA eingefügt habe, wird nach dem Klickereignis das Passwort als nicht korrekt angezeigt.Login auf eine Website mit VBA dh

Wenn ich die Anmeldeinformationen von VBA eingefügt und wenn ich einen Buchstaben des Benutzernamens manuell abbrechen und ich schreibe es neu und wenn ich einen Brief des Kennworts manuell abbrechen und ich es neu schreiben, nachdem ich das Click Event mit VBA es funktioniert.

was ist der Grund? Shound Ich füge die Anmeldeinformationen mit einem Tastendruck Ereignis ein? Welches ist die richtige Syntax dafür?

dank

bitte unter HTML-Code sehen und was habe ich in VBA

Set ie = CreateObject("InternetExplorer.Application") 
    With ie 
     .Visible = True 
     .navigate "sss.html" 

    Do Until .ReadyState = 4 
     DoEvents 
    Loop 
    .Document.all.Item("login").Value = "username" 
    .Document.all.Item("password").Value = "password" 
Set elems = ie.Document.getElementsByTagName("button") 
For Each e In elems 
    If (e.innerHTML = "Confirm") Then 
     e.Click 
     Exit For 
    End If 
Next e 

<input type="text" ng-model="login" class="form-control ng-pristine ng-valid ng-touched" id="login" placeholder="Enter login (email)"> 
<input type="password" ng-model="password" class="form-control ng-pristine ng-valid ng-touched" id="password" placeholder="Password"> 
<button class="btn btn-default" ng-click="authenticate()" notranslate="">Confirm</button> 
+0

Ich denke, es gibt einige Event-Handler an die Eingänge, die dieses Problem verursacht - es erwartet, dass Benutzer eingeben, und Sie tippen nicht ... Ohne eine URL obwohl es schwierig ist, nützliche Vorschläge zu machen. –

+0

versucht. Funktioniert nicht. geben Sie mir eine Fehlermeldung, dass diese Methode oder Eigenschaft nicht vom Objekt unterstützt wird – nwtn

+0

URL ist hier http://my.nuvap.com/home.html#/login – nwtn

Antwort

0

diese Website möchte Sie eigentlich Ihren Benutzername/Passwort eingeben und tatsächlich die Schaltfläche „Bestätigen“ drücken, können Sie imitieren es mit SendKeys

so stattdessen die value der Einstellung und für die Schaltfläche Element Looping, verwenden sie diesen Code:

.Document.all.Item("login").focus 
SendKeys "username", True 
.Document.all.Item("password").focus 
SendKeys "password", True 
SendKeys "{TAB}", True 
SendKeys "~", True 

hoffe das hilft.