Страницы: 1
RSS
Проблема со скачиванием файла на 64-bit'ной системе
 
Sub info()  
Dim oIE As Object  
Set oIE = CreateObject("InternetExplorer.Application")  
oIE.Visible = 0 ' не отображать окно Интернет Эксплорера 0/1 отображать  
oIE.Navigate ("www") 'сайт  
Do While oIE.busy Or (oIE.readyState <> 4): DoEvents: Loop 'ждем пока браузер загрузится  
Application.Wait Now + 1.5 / 86400  
oIE.document.forms("pform").elements("camusername").Value = "login" 'вводим логин  
oIE.document.forms("pform").elements("campassword").Value = "1234" 'вводим пароль  
oIE.document.forms("pform").elements("cmdok").Click 'нажимаем ОК  
oIE.quit  
set oIE=nothing  
End Sub  
 
Проблема в том, что данный код работает на XP 32битном, но не работает на 64-битной 7ке. Ругается на oIE.document.forms("pform").elements("camusername").Value = "login". Говорит, что непонятный ему интерфейс. Пробовал подключать те же библиотеки - безуспешно. Также игнорирует oIE.Visible = 0, и всё равно показывает IE. Понимаю, что ошибка скорее всего из-за битности, но пока информации не нашёл. Заранее благодарен.
 
Друзья, подскажите хотя бы куда копать.
Страницы: 1
Наверх