" , True Application.Wait 900
SendKeys
" ~ " , True
End
sub
Dit programma stelt je browser tot invoer van het toetsenbord te ontvangen met behulp van de AppActivate statement . De instructie SendKeys stuurt de aanslagen van uw wachtwoord om de browser , en de Application.Wait verklaring pauzes om uw browser tijd om de toetsaanslagen te verwerken . Het " ~ " teken staat voor de "Enter " .
Type 4 over de tag ( dwz " < > " ) tekst in het programma in stap 3 met de browser en de naam wachtwoord nodig is om inloggen op de webpagina .
5
Klik op een verklaring in de automateLogin programma u hebt getypt in stap 3 , klik op " uitvoeren sub" punt van de menu 's " Run " om uw programma uit te voeren . Excel zal de browser in uw code te activeren , vervolgens stuurt toetsaanslagen naar de browser . Deze toetsaanslagen spellen het wachtwoord dat u hebt getypt in stap 3 . Excel zal dan uitvoeren " ToetsenVerzenden ' ~ ' , True ' verklaring van het programma , waarin de toetsaanslag zal sturen voor de " Enter " -toets om de webpagina . Deze actie zal voorleggen het login formulier voor verwerking , net alsof u handmatig op de "Enter " drukt.
Type 6 in de bovenste , meest linkse cel van de eerste werkblad in Excel 's de naam van de browser waarop je gewoon diende een wachtwoord . Deze stap begint een herziening van het programma login . Het herziene programma wordt informatie opgeslagen in een werkblad te gebruiken , in plaats van de informatie in het programma source code , in te loggen op de website. Deze aanpak maakt het gemakkelijker om de login-gegevens wijzigen .
Type 7 in de cel onder de een met de naam van de browser het wachtwoord dat je hard-coded in stap 3 .
8
Druk op ' Alt - F11 "om de VBA coderingsomgeving opnieuw in te voeren . Plak de volgende herziene programma code onder de automateLogin programma .
Public Sub automateLoginWithStoredPassword
( )
Dim wachtwoord
, browsername
browsername
= ActiveSheet.Cells ( 1 , 1 ) . waarde
wachtwoord
= ActiveSheet.Cells ( 2 , 1 ) . value
AppActivate browsername , True
SendKeys wachtwoord
, True
Application.Wait 900 < br
SendKeys > " ~ " , True
End Sub
9
Breng uw browser naar de Inloggen pagina en voer het herziene programma met Stap 5 's instructies. Excel zal het wachtwoord opgeslagen in het werkblad naar de login pagina .