Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Гиперссылка на страницу веб с паролем
 
#1
05.04.2010 22:49:12
Создаю гиперссылку на главную веб страницу, а на вкладки чтобы зайти стоит пароль пользователя.    
Подскажите пожалуйста как создать гиперссылку(макрос) с дополнительным окном в котором прописывать пароль пользователя, чтобы была возможность далее создавать гиперссылки для входа на все вкладки сайта.  
Спасибо.
 
 
 
#2
06.04.2010 06:16:28
Так не выйдет.  
(можно, конечно, извратиться, и реализовать всё это средствами макросов, но это долго и сложно)  
 
В гиперссылку пароль никак не добавить.  
 
Решение одно - пароль надо вводить на открываемой веб-странице.  
Установите себе браузер Opera - там есть возможность авторизоваться на любом сайте нажатием одной кнопки (браузер сам находит поля для логина с паролем, вводит туда заранее сохранённые значения, и нажимает кнопку ВХОД)
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
06.04.2010 09:57:50
Для каждого сайта нужно парсить исходный код страницы, например на сайте PlanetaExcel.ru можно программно логинится примерно так: <BR>Dim Логин As String, Пароль As String <BR>Логин = InputBox("Введи логин"): Проль= InputBox("Введи пароль") <BR>WebBrowser1.Navigate "http://www.planetaexcel.ru/forum.php?forum_id=129" <BR>With WebBrowser1.Document <BR>    .All("bsu_main_login").Value = Логин <BR>    .All("pass1").Value = Пароль <BR>    .All.Item(32).SetActive <BR>    .activeElement.Click <BR>End With <BR>В файле пример перехода по гиперссылке для встроенного браузера-контрола. Если надо запускать IE – тогда наверно лучше написать скрипт VBS<BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
 
 
 
#4
07.04.2010 23:11:45
Спасибо за ответы.
 
 
 
#5
07.04.2010 23:38:37
Dim Логин As String, Пароль As String  
Логин = InputBox("Введи логин"): Проль= InputBox("Введи пароль")  
WebBrowser1.Navigate "http://www.planetaexcel.ru/forum.php?forum_id=129"  
With WebBrowser1.Document  
   .All("bsu_main_login").Value = Логин  
   .All("pass1").Value = Пароль  
   .All.Item(32).SetActive  
   .activeElement.Click  
End With    
 
Помогите разобраться, макрос не работает!?
 
 
 
#6
09.04.2010 01:12:21
Браузер после ввода Login и Password обновляется. Попробуйте так:  
With WebBrowser1.Document  
   .All("bsu_main_login").Value = Логин  
   .All("pass1").Value = Пароль  
   .All.Item(32).SetActive  
   WebBrowser1.Stop  
   .activeElement.Click  
End With
At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host
 
 
 
#7
12.04.2010 11:57:08
Спасибо за ответ, попробую.
 
 
 
Страницы: 1
Читают тему
Наверх