Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvoriť v Exceli , potom zobrazí kódovanie okno VBA stlačením " Alt - F11 . "
2
Dvakrát kliknite na položku , ktorá zobrazuje " Tento zošit " v V table navigácia na obrazovke vľavo . Tým sa otvorí okno pre zadanie kódu pre aktuálny zošit .
3
Zadajte alebo prilepte nasledujúci program do okna , ktoré sa objavia . Tento program volá príkaz VBA " AppActivate " na priamy vstup z aktuálnej aplikácie , Excel , do vášho prehliadača . " SendKeys " vyhlásenie pošle stlačenia klávesov , informácie o log- in a heslo , na aktivovaný prehliadači . Text " { TAB } " a " ~ " predstavujú " Tab " a " Enter " kľúča . Vyhlásenie Aplikácia hovorí , Excel krátko pozastaviť , aby Windows a váš čas prehliadača spracovať úhozy ktoré jej boli zaslané .
Public Sub sendPassword ( )
AppActivate " BROWSER_NAME " , pravda
SendKeys " YOUR_LOGIN_ID " , pravda
Application.Wait 1000
SendKeys " { TAB } " , pravda
SendKeys " vaše_heslo " , true
Application.Wait 1000
SendKeys " ~ " , true
End Sub
4
Nahradiť text " BROWSER_NAME " s názvom prehliadača ( napríklad , " Firefox " , " Internet Explorer " a " Google Chrome " ) , budete používať na prihlásenie do webovej stránky . Nahradiť text " YOUR_LOGIN_ID " a " vaše_heslo " s informáciami log - in žiadostí webových stránok .
5
Otvorte webovú stránku , ktorú by som kód pre prihlásenie do .
6
Kliknite na jednu z výkazov " sendPassword " podprogram , potom stlačte " F5 " spustiť tento podprogram . Windows obnoví zameranie na prehliadači váš program aktivovaný . Váš program bude písať a odosielať informácie o log - in si je v nej zakódované .
7
vložte nasledujúci revíziu prvého programu nižšie uvedeného programu v okne vývoj VBA . Táto verzia " sendPassword " vstúpi do log - in informácie , ktoré nie sú z kódu , ale z hodnôt na liste v aktuálnom zošite . Hlavnou výhodou tohto prístupu je pohodlie meniace sa informácie o prihlásenie . Dáta uložené v liste je výhodnejšie zmeniť , než je programový kód .
Public Sub sendPasswordStoredInWorksheet ( )
Dim prihlásenie , pword , app
app = ActiveSheet . cells ( 1 , 1 ) . hodnota
login = ActiveSheet.Cells ( 2 , 1 ) . hodnota celým
pword = ActiveSheet.Cells ( 3 , 1 ) . hodnota celým
AppActivate app , pravda
SendKeys prihlásenie , pravda
Application.Wait 1000
SendKeys " { TAB } " , pravda
SendKeys pword , pravda
Application.Wait 1000
SendKeys " ~ " , true
End Sub
8
Zadajte názov prehliadača a prihlasovacie informácie , zakódované do prvá verzia programu v prvých troch bunkách zošita programu Excel v prvom liste .
9
Odhlásiť , vo Vašom prehliadači , na internetových stránkach váš prvý program prihlásený, potom sa vráťte do denníka webe - v strane . Spustite novú verziu programu , pomocou pokynov od kroku 6. . Log - in začne rovnako ako v kroku 6.
Copyright © počítačové znalosti Všetky práva vyhradené