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 login e logout 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
Nota: Por 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
⬛◼◾▪ CONTATO ▪◾◼⬛
