Sendkey schickt kein Enter
15.06.2004 22:14:42
Uli
beim Versuch, ein ebay-Login zu automatisieren, konte ich zwar Name und Passwort eintragen, kann aber das Ganze nicht abschicken. Wenn ich den IE sichtbar schalte, muß ich nur noch händisch 'Enter' drücken und bin wunderbar angemeldet. Versucht habe ich sowohl ein sendkey {Enter} nach der Eingabe des Passwortes, wie auch einen Tab auf de Schaltfläche und anschließendem Enter.
Nichts davon geht.
Woran kann das liegen ?
Hier der Code:
Sub ebayLogin()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.Application")
appIE.Visible = True
appIE.Navigate <a href=""http://signin.ebay.de/aw-cgi/eBayISAPI.dll?SignIn"">"http://signin.ebay.de/aw-cgi/eBayISAPI.dll?SignIn"</a>
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
Application.Wait (Now + TimeValue("00:00:01"))
Application.SendKeys "username", True
Application.Wait (Now + TimeValue("00:00:01"))
Application.SendKeys "{tab}^a{del}passwort", True
Application.Wait (Now + TimeValue("00:00:01"))
Application.SendKeys "{tab}", True
Application.Wait (Now + TimeValue("00:00:01"))
Application.SendKeys "{enter}", True
Application.Wait (Now + TimeValue("00:00:10")) 'etwas beobachten
Do While True
'Einfach nur für einen Breakpoint
Loop
Set appIE = Nothing
End Sub
User und PW sind natürlich durch richtige Werte zu ersetzen. Die Waits habe ich sicherheitshalber eingebaut, sie helfen aber nicht. ^a{del} löscht ein im IE gespeichertes Passwort vor der neuen Eingabe.
Ich bin natürlich für jeden Rat dankbar !
Gruß
Uli