作者：绿色风
分类：
时间：2022-08-17
浏览：64
楼主
xmyjk |
Q:如何使用xmlhttp的onreadystatechange属性
A:参考http://msdn.microsoft.com/en-gb/library/ms757030.aspx
标准模块- Sub test()
- Dim XmlHttp As MSXML2.XmlHttp
- Set XmlHttp = New MSXML2.XmlHttp
- Dim 事件加载 As 类1
- Set 事件加载 = New 类1
- 事件加载.Initialize XmlHttp '将XMLHTTP对象进行初始化，初始化其事件
- With XmlHttp
- .OnReadyStateChange = 事件加载 '将事件赋予其端口
- .Open "get", "http://www.baidu.com", True '异步访问网站
- .send
- End With
- End Sub
类模块- Option Explicit
- Dim XmlHttp As MSXML2.XmlHttp
- Public Sub Initialize(ByVal outxmlhttp As MSXML2.XmlHttp) '设置初始化程序
- Set XmlHttp = outxmlhttp
- End Sub
- Sub OnReadyStateChange() '回调函数
- If XmlHttp.readyState = 4 And XmlHttp.Status = 200 Then '当readystate为4和状态为200，输入网页内码
- Debug.Print XmlHttp.responseText
- End If
- End Sub
注意，需要将onreadystatechange设置为类模块的默认过程。
要讲类模块导出，然后用记事本打开，然后在过程名：Sub OnReadyStateChange() 下面加入一行
Attribute Value.VB_UserMemId = 0
然后保存，删除类模块，并导入。
 1231.zip
|
2楼
绿篱 |
 好好学习 天天向上 |
3楼
老糊涂 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一