使用Microsoft Internet Transfer Control 6.0时出错

Question

当我在我的access应用程序中使用上面的程序时，我似乎在windows7(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

我已经成功地(我相信)使用命令行提示符和'regsvr32 msinet.ocx‘添加了MSINET.OCX，并且我引用了Microsoft Internet Transfer Control

显然，我不确定要在这里做什么，以及我需要做什么来解决这个在Windows 7中已经显现出来的问题

如果有人能帮上忙，我将不胜感激。

干杯

诺埃尔

编辑:最初我认为这个错误只发生在Win7上，而不是XP上，但是我回到了XP机器上，它重复了同样的问题。不知道为什么，因为它以前不存在，有什么地方不对劲。

解决:不知道我为什么会有上面的问题。设法回滚到一个较旧的版本，它开始工作。尽管据我所知，这两种形式背后的编码没有区别。对于我的生活，我无法解释是什么问题！

Answer 1

通常的方法是使用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位上运行过这种类型的代码，没有出现任何问题。因为它使用后期绑定，所以如果XMLHTTP库的安装/注册出现问题，它是可以捕获的，但我从来没有遇到过这样的问题。