Как я могу войти в gmail через интернет-проводник с помощью iwebbrowser 2

Question

можно ли подключаться к сайтам, таким как facebook, gmail, используя iwebbrowser2?

в коде ниже, что я могу добавить, чтобы он мог войти в gmail (с помощью ie8 в качестве браузера), используя имя пользователя и пароль, которые я ввел в переменную?

MyBrowser := CreateOleObject('InternetExplorer.Application') as IWebBrowser2; 
MyBrowser.Navigate('http://mysite.com'..........???); 

примечание: я новичок.

извините за мой английский :)

и заранее спасибо

Answer 1

Вы можете использовать JavaScript «инъекции», чтобы контролировать свой сайт. Под «инъекции» Я имею в виду, что после загрузки вашей страницы Gmail вы затем построить URL в виде

javascript:var Email = document.getElementById('Email');Email.value='User.Name'; 

javascript:var Password = document.getElementById('Passwd');Password.value='YourPassword'; 

javascript:var SignIn = document.getElementById('signIn');SignIn.click(); 

или вы можете бросить все это на один URL

javascript:var Email = document.getElementById('Email');Email.value='User.Name';var Password = document.getElementById('Passwd');Password.value='YourPassword';var SignIn = document.getElementById('signIn');SignIn.click(); 

Ваш код будет выглядеть примерно например:

MyBrowser := CreateOleObject('InternetExplorer.Application') as IWebBrowser2; 
MyBrowser.Navigate('http://www.gmail.com'); 

myUserName := 'User.Name'; 
myPassword := 'password'; 
loginURL:='javascript:var Email = document.getElementById(''Email'');Email.value=''' + myUserName + ''';var Password = document.getElementById(''Passwd'');Password.value=''' + myPassword + ''';var SignIn = document.getElementById(''signIn'');SignIn.click();'; 

MyBrowser.Navigate(loginURL); 

Answer 2

Попробуйте вместо этого использовать TWebBrowser. TWebBrowser инкапсулирует интерфейс IWebBrowser2.

Вот ссылка на пример, показывающий, как сделать POST with TWebBrowser.

Если вы используете компоненты Indy HTTP и SSL, у вас будет больше гибкости.

Answer 3

Отправить данные по адр

MyBrowser.Navigate('http://mysite.com', Flags, EmptyParam, PostData, Headers); 

и вам необходимо заполнить PostData и Headers как в ссылке ниже http://forums.devshed.com/showpost.php?p=2408145&postcount=2

Я уже ответил на этот вопрос здесь: open default browser with a post in Delphi