Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

Como Logar-se a sua Medias Sociais através do MS Excel - Login to Facebook, Twitter, Google+ in IE from Excel


Entrar automaticamente em nossas Mídias Sociais, usando o IE, através do MS Excel, pode ser muito útil em nosso dia a dia. Você gostaria de fazer isso, logando-se rapidamente em redes tais como Facebook, Twitter e|ou Google+.

Às vezes ficamos ​​mentalmente cansados por digitar essas identificações de login e senhas ou por serem demasiadamente longas ou por ser necessário efetuar loginlogout muitas vezes. Sim, podemos ignorar esse pequena momento, de re-digitar nossas credenciais de login, automatizando-o com a ajuda do Excel.

Login nos Formulário e Campos comuns

Quando digitamos a URL do FB, Twitter ou qualquer tipo de página que tenha um formulário de logon, este conterá os campos:

ID de login ou ID E-mail ou número de celular

Senha

Botão de envio

NotaPor vezes haverá um CAPTCHA ou uma caixa de texto pedindo resposta a uma pergunta de segurança. Este é usado filtrar spams. Se houver qualquer forma de login com essa opção de segurança ativada, então não será capaz de usar a técnica explicada neste artigo.


Digitaremos os valores em cada um dos campos manualmente e clicaremos no botão enviar. Uma vez que o submetemos, as credenciais são transferidas para o servidor correspondente para validação.

Auto Preenchimento de formulário e clique botão Enviar

Com o código abaixo será capaz de preencher um formulário de login no Facebook. O mesmo código pode ser usado para preencher o Twitter, Google+ ou qualquer forma HTML. Tudo que precisará fazer é analisar o código fonte HTML antes de automatizar o processo de login.


Private Sub Facebook_Login_Automate()
    'Declare Variables used in Code
    Dim InetApp As Object
    Dim TagsArray As Object
    Dim TagField As Object

    'Create InternetExplorer Object and Launch App
    Set InetApp = CreateObject("InternetExplorer.Application")
    Let InetApp.Visible = True

    'Navigate to Facebook
    InetApp.Navigate "http://www.facebook.com/"

    'Internet Explorer Load Time Wait
    Do While InetApp.Busy
        Let Application.StatusBar = "Carregando Applicação. Por favor aguarde..."
        Application.Wait DateAdd("s", 1, Now)
    Loop
    Let Application.StatusBar = ""
    
    'HTML code is obtained from URL.
    'Search for tag <input> and store it details in a object.
    Set TagsArray = InetApp.document.getElementsByTagName("input")
    idx = 0
    
    'Search Fields Corresponding to 'Login id', 'Password' and 'Submit' button.
    While idx < TagsArray.Length
        If TagsArray(idx).Name = "email" Then
            Let TagsArray(idx).Value = "FB_Login_Mail_ID@mail.com"
        Else
            If TagsArray(idx).Name = "pass" Then
                Let TagsArray(idx).Value = "FB_Login_Password"
            End If
            If TagsArray(idx).Type = "submit" And _
               TagsArray(idx).Name = "" Then
                    Set TagField = TagsArray(idx)
            End If
        End If
        Let idx = idx + 1
    Wend
    
    'Click Submit Button
    TagField.Click
    
    'Login Wait Time
    Do While InetApp.Busy
        Let Application.StatusBar = "Login em Progesso. Por favor aguarde..."
        Application.Wait DateAdd("s", 1, Now)
    Loop
    Let Application.StatusBar = ""
    Let InetApp.Visible = True

    'Clear Object Data
    Set InetApp = Nothing
    Set TagField = Nothing
    Set TagsArray = Nothing

End Sub

⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 


⬛◼◾▪ CONTATO ▪

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine