VB6 Dim http As New MSXML2.XMLHTTP 要引用什么

在VB6中使用`MSXML2.XMLHTTP`对象需要引用Microsoft XML库。您可以按照以下步骤添加对Microsoft XML库的引用：

1. 打开VB6项目或新建一个VB6项目。
2. 选择"工具"->"引用"菜单。
3. 在弹出的"引用"对话框中，找到并勾选"Microsoft XML, v6.0"。
4. 点击"确定"按钮，完成库的引用。

完成上述步骤后，就可以在VB6中使用`MSXML2.XMLHTTP`对象来发送HTTP请求了。需要注意的是，如果您的系统中没有安装Microsoft XML库，您可能需要先安装它才能正常使用`MSXML2.XMLHTTP`对象。

相关问题

Set objXMLHTTP=New MSXML2.XMLHTTP40 objXMLHTTP.Open“POST”,SPATH&"JIKKOU/NGJ020.ASP"，False objXMLHTTP.setRequestHeader "X-Numb"，"UPDATE" Set OBJXML=New MSXML2.FreeThreadedDOMDocument 40 objXMLHTTP.send OBJXML fncUpDateG010_SUB fncUpDateG010 Call subReGetRS

根据您提供的代码，假设您想要使用XMLHTTP对象发送POST请求并设置请求头来更新数据。以下是修正后的代码：

Dim objXMLHTTP
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP.4.0")

Dim url, data
url = SPATH & "JIKKOU/NGJ020.ASP" ' 请求的URL
data = ""
    
objXMLHTTP.Open "POST", url, False
objXMLHTTP.setRequestHeader "X-Numb", "UPDATE"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

Set objXML = CreateObject("MSXML2.FreeThreadedDOMDocument.4.0")
objXML.loadXML OBJXML

objXMLHTTP.send objXML

' 可以使用 objXMLHTTP.responseText 获取响应内容
' 可以使用 objXMLHTTP.Status 获取响应状态码

fncUpDateG010_SUB
fncUpDateG010
subReGetRS

Set objXMLHTTP = Nothing
Set objXML = Nothing

这个修正过的代码创建了一个`MSXML2.FreeThreadedDOMDocument`对象`objXML`，并使用`loadXML`方法将`OBJXML`加载到其中。然后，通过将`objXML`作为参数传递给`send`方法，将XML数据发送到服务器。

最后，根据您的需求，我假设您有一些自定义函数和子程序需要调用。在代码末尾，我添加了对这些函数和子程序的调用。

请注意，您可能需要根据实际情况进行进一步的修改。确保替换`SPATH`为您的请求路径，并根据需要设置请求的数据和其他请求头。

用vb6 写个用MSXML 6.0抓取网页的代码

以下是一个简单的VB6程序，用于使用MSXML 6.0抓取网页：

Option Explicit

Private Sub Command1_Click()

    Dim xmlhttp As MSXML2.XMLHTTP60
    Dim html As MSHTML.HTMLDocument
    
    Set xmlhttp = New MSXML2.XMLHTTP60
    Set html = New MSHTML.HTMLDocument
    
    '从指定URL获取数据'
    xmlhttp.Open "GET", "https://www.example.com", False
    xmlhttp.send
    
    '将响应数据加载到HTMLDocument对象中'
    html.body.innerHTML = xmlhttp.responseText
    
    '在调试窗口中显示网页内容'
    Debug.Print html.body.innerHTML
    
    '释放对象'
    Set xmlhttp = Nothing
    Set html = Nothing

End Sub

这个程序使用MSXML 6.0的XMLHTTP对象从指定的URL获取数据，并将响应数据加载到HTMLDocument对象中。然后，它显示网页内容在调试窗口中。你可以根据需要对代码进行修改以满足自己的需求。