Option Explicit
 
Sub airdroid()
 
Dim Страницаairdroid As String
Страницаairdroid = "http://web.airdroid.com/"
 
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True 'открывает, делает видимым Микрософт Интернет Эксплоер
IE.navigate (Страницаairdroid) 'открывает указанную страницу
'ввести логин [email]q0@gmail.com[/email] и пароль s1, это пароль airdroid
SendKeys "{DELETE 50}" 'имитация нажатия на кнопку DELETE для обнуления строки
SendKeys String:="q0@gmail.com"
SendKeys "{TAB}"
SendKeys "{DELETE 50}" 'имитация нажатия на кнопку DELETE для обнуления строки
SendKeys String:="s1"
SendKeys "{ENTER}" 'имитация нажатия на кнопку ENTER
 
End Sub
 
Private Sub CommandButton1_Click()
Call airdroid
End Sub