Ошибка при использовании Microsoft Internet Transfer Control 6.0 - PullRequest
Новая
       14

Ошибка при использовании Microsoft Internet Transfer Control 6.0

0 голосов
/ 25 марта 2011

Кажется, я столкнулся с проблемой в Windows 7 (32-разрядная версия) при использовании вышеуказанного в моем приложении доступа.

Я получаю ошибку «438», «Объект не поддерживает это свойство или метод"в последней строке приведенного ниже кода. 

strURL = "https://www.google.com/accounts/ClientLogin"
strFormData = "Email=" & myEmail & "&Passwd=" & myPassword & "&source=" & mySource &    "&service=cl&accountType=HOSTED_OR_GOOGLE"
strHeaders = "Content-Type:application/x-www-form-urlencoded"
Inet1.Execute strURL, "POST", strFormData, strHeaders

Я успешно (я считаю) добавил MSINET.OCX с использованием командной строки и regsvr32 msinet.ocx, и я ссылался на Microsoft InternetTransfer Control

Очевидно, я не уверен, что здесь делать и что мне нужно делать, чтобы исправить эту проблему, которая проявилась в Windows 7

Если кто-то может помочь, это будетпризнателен.

Приветствия

Ноэль

Редактировать: Первоначально я думал, что эта ошибка произошла только на Win 7, в отличие от XP, однако я вернулся к машине XP и этоповторяет ту же проблему.Не знаю, почему, поскольку этого раньше не было, что-то где-то не работает правильно.

Решено: Понятия не имею, почему у меня возникли проблемы выше.Удалось откатиться на более старую версию и она начала работать.Хотя, насколько я могу судить, нет никакой разницы в кодировании обеих форм.Я не могу объяснить, в чем проблема была для меня жизни!

1 Ответ

1 голос
/ 28 марта 2011

Обычный способ сделать это - использовать объект MS XMLHTTP, а не нативный элемент управления ActiveX.Код будет выглядеть примерно так: 

  Dim oHTTP as Object

  strURL = "https://www.google.com/accounts/ClientLogin"
  strFormData = "Email=" & myEmail & "&Passwd=" & myPassword & "&source=" & mySource & "&service=cl&accountType=HOSTED_OR_GOOGLE"
  strHeaders = "Content-Type:application/x-www-form-urlencoded"
  Set oHttp = CreateObject("MSXML2.XMLHTTP")
  oHTTP.Open "POST", strURL & strFormData, True
  oHTTP.setRequestHeader "Content-Type", strHeaders
  oHTTP.send vbNullString

У меня такой код работал на Win2000, WinXP и Win7 64-bit без проблемПоскольку он использует позднюю привязку, в случае возникновения проблем с установкой / регистрацией библиотеки XMLHTTP, это можно отследить, но я никогда не встречал ее.

...