Public Function HtmlStr$(URL$) '提取网页源码函数
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", URL, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.Responsebody, vbUnicode)
End Function
2.函数调用：
Dim strweb1 As String
strweb1=HtmlStr("http://www.baidu.com")
二、获取 WebBrowser 控件中网页源代码
1.函数代码：
Public Function WebDaima(WebBrowser, BuFen) '获取 WebBrowser 控件中网页源代码
Select Case BuFen
Case "Body" '只获取<body>与</body>之间的代码
WebDaima = WebBrowser.Document.body.innerhtml
Case "All" '获取整个网页源代码
WebDaima = WebBrowser.Document.documentelement.outerhtml
Case Else
WebDaima = WebBrowser.Document.documentelement.outerhtml
End Select
End Function
2.调用
Dim strweb As String
strweb=WebDaima(frmIndex.WebBrowser1,"All") '获取整个网页源代码
strweb=WebDaima(frmIndex.WebBrowser1,"Body") '只获取 body 中源代码
三、提取字符串或网页源代码中指定的资源（可利用这一函数做文章采集器）
1.函数代码：
Public Function FindStrMulti$(Strall$, FirstStr$, EndStr$, SplitStr$) '提取字符串或网页源代码中所有指定
代码
'参数
'总文本,起始字符串,终止字符串,分隔符
Dim i&, j&
j = 1
Do
i = InStr(j, Strall, FirstStr)
If i = 0 Then
Exit Do
End If
i = i + Len(FirstStr)
剩余15页未读，继续阅读
资源评论
智慧安全方案
- 粉丝: 3851
- 资源: 59万+
下载权益
C知道特权
VIP文章
课程特权
VIP享7折，此内容立减4.47元 开通VIP
最新资源
- 基于工控行业的拖拽式运动控制画板：可定制可视化编程框架与多页签布局功能,拖拽式流程运动控制画板：工控行业可视化编程框架,拖拽流程式运动控制画板 工控行业，图形化，可视化控件编程框架，可进行二次开发，多
- 基于AIUKF算法的锂离子电池SOC估计与参数辨识技术：鲁棒性强，快速收敛的解决方案,基于AIUKF算法的锂离子电池SOC估计技术研究：高鲁棒性参数辨识与快速收敛实践,自适应迭代无迹卡尔曼滤波算法AI
- 中文3DMAX办公楼写字楼生成插件OfficeBuildings下载
- 光伏PV三相并网逆变器MATLAB仿真研究：三相桥式逆变、LCL滤波及高效功率输出特性分析,光伏PV三相并网逆变器MATLAB仿真模型：多算法结合的高效功率控制及其性能验证,光伏PV三相并网逆变器MA
- 基于Matlab Simulink与Carsim的模块化电动汽车横向稳定性控制力矩分配联合仿真研究,模块化建模方法下的横向稳定性控制最优力矩分配联合仿真研究-基于Matlab Simulink与Ca
- 基于麻雀追随与柯西变异的优化算法MDBO：多维度问题求解策略及其效能分析,融合麻雀追随与柯西变异的蜣螂优化算法MDBO：详解其超新改进与在cec2005测试中的性能表现,超新的改进优化算法：融合麻雀追
- 基于Vue框架的AgricultureUniapp农业应用设计源码
- 永磁同步电机矢量控制C代码详解：S-function仿真实践与应用移植指南,永磁同步电机矢量控制C代码详解：S-function仿真实践与应用移植指南,永磁同步电机矢量控制C代码 全部从项目中总结得到
- 基于Python的湖南科技大学信息门户模拟登录设计源码
- 基于Kotlin语言的AndroidStudio开发学习教程源码
- 基于轮毂电机的车辆稳定性与能量优化协调控制策略：分层策略下的横摆力矩与能耗管理,基于轮毂电机的车辆稳定性与能量优化协调控制策略：滑模与PID双层控制研究 ,四轮轮毂电机驱动车辆电机附加能量损耗、电机能
- 西门子SMART 200 PLC与三菱E700变频器通讯实践指南：RTU方式快速控制及监控,西门子Smart 200 PLC与三菱E700变频器Modbus RTU通讯：全方位控制、监控与拓展方案,西
- 线控转向车辆的路感反馈控制策略：力矩拟合与理想反馈力矩研究，采用滑模等控制方法，Simulink与CarSim联合仿真验证,线控转向车辆路感反馈控制策略：路感电机力矩拟合与滑模控制等跟随理想反馈力矩的
- 基于Java核心技术的川职学生项目练习设计源码
- 基于MPC预测模型与自抗扰ADRC控制的车速控制算法：实现燃油汽车加速度与节气门开度、制动压力的精确控制，支持代码生成与实车实验验证，可扩展至多种车速需求控制场景（如ACC、轨迹跟踪等）,基于MPC模
- 基于UDS协议的BootLoader开发：涵盖诊断协议栈与网络协议栈，利用瑞萨底层驱动和周立功CAN盒通信，实现高效程序更新功能，适用于主机厂与供应商参考学习 ,基于UDS的BootLoader开发：
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
