TPYI123
2021-07-27 10:11
采纳率: 75%
浏览 176
已结题

求 vb同时爬取网页数据的代码！！

多个timer 同时进行网页数据爬取应该怎么弄呢？

url4 = "https://query1.finance.yahoo.com/v8/finance/chart/CLNN?symbol=CLNN&period1=1626960600&period2=1627047000&useYfid=true&interval=1m&includePrePost=true&events=div%7Csplit%7Cearn&lang=en-US&region=US&crumb=buQ55SZKDGy&corsDomain=finance.yahoo.com"
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", url4, True
.Send
While .ReadyState <> 4
DoEvents
Wend
shuju = (.responsetext)
End With

  • 点赞
  • 收藏

2条回答 默认 最新

  • soar3033 2021-07-27 10:20
    已采纳 
    Class spd'定义爬虫类
Public url as String'定义url
Sub sp()'定义方法
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", url4, True
.Send
While .ReadyState <> 4
DoEvents
Wend
shuju = (.responsetext)
End With
End Sub
End Class
Dim Tasks1 As New spd()'实例化爬虫类
Dim Tasks2 As New spd()'实例化爬虫类
Dim Tasks3 As New spd()'实例化爬虫类
'更改每个爬虫类内要爬取的url地址
Tasks1.url="https://query1.finance.yahoo.com/v8/finance/chart/CLNN?symbol=CLNN&period1=1626960600&period2=1627047000&useYfid=true&interval=1m&includePrePost=true&events=div%7Csplit%7Cearn&lang=en-US&region=US&crumb=buQ55SZKDGy&corsDomain=finance.yahoo.com"
Tasks2.url="https://query1.finance.yahoo.com/v8/finance/chart/CLNN?symbol=CLNN&period1=1626960600&period2=1627047000&useYfid=true&interval=1m&includePrePost=true&events=div%7Csplit%7Cearn&lang=en-US&region=US&crumb=buQ55SZKDGy&corsDomain=finance.yahoo.com"
Tasks3.url="https://query1.finance.yahoo.com/v8/finance/chart/CLNN?symbol=CLNN&period1=1626960600&period2=1627047000&useYfid=true&interval=1m&includePrePost=true&events=div%7Csplit%7Cearn&lang=en-US&region=US&crumb=buQ55SZKDGy&corsDomain=finance.yahoo.com"
'创建线程
Dim Thread1 As New System.Threading.Thread( _
       AddressOf Tasks1.sp)
Dim Thread2 As New System.Threading.Thread( _
       AddressOf Tasks2.sp)
Dim Thread3 As New System.Threading.Thread( _
       AddressOf Tasks3.sp)
'运行线程
Thread1.Start() ' 启动新线程。
   Thread1.Join() ' 等待线程 1 运行结束。
Thread2.Start() ' 启动新线程。
   Thread2.Join() ' 等待线程 1 运行结束。
Thread3.Start() ' 启动新线程。
   Thread3.Join() ' 等待线程 1 运行结束。
    点赞 打赏 评论
  • weixin_52754092 2021-07-30 15:49

    你们为什么还在学vb，这不是很久以前的知识了

    点赞 打赏 评论

报告相同问题？

提交

相关推荐 更多相似问题

  • 求 vb同时爬取网页数据的代码！！ .net
    2021-07-27 10:11
    回答 2 已采纳 Class spd'定义爬虫类 Public url as String'定义url Sub sp()'定义方法 With CreateObject("Microsoft.XMLHTTP") .Ope
  • 求vb代码！！！！！！ 其他
    2021-06-28 14:38
    回答 1 已采纳 Private Sub Command1_Click()     Cls     Print "第一种方法："     Dim a As Integer, b As Integer, c As Int
  • 求vb代码！！！！！！！ 其他
    2021-06-28 14:47
    回答 1 已采纳 Dim i As Integer Private Sub Command1_Click() i = Val(Label2) i = InputBox("请输入一个整数：", "VB") If i Mo
  • 如何轻松爬取网页数据？
    2017-06-14 10:37
    为中的博客 在实际工作中，难免会遇到从网页爬取数据信息的需求，如：从微软官网上爬取最新发布的系统版本。很明显这是个网页爬虫的工作，所谓网页爬虫，就是需要模拟浏览器，向网络服务器发送请求以便将网络资源从网络流中读取...
  • 基于vs2013的vb.net网络爬虫
    2018-08-01 07:51
    在VS2013环境下，分别做了C++(CURL)和VB.NET(WebClient)的网络爬虫，个人感觉，VB.NET(WebClient)无论从代码繁简、爬取速度、正则筛选效率等都比C++(CURL)好。可分别抓取网页的所有有用的链接和标题。
  • vb.net抓取需要post 数据的网页
    2019-01-20 22:35
    qq_24499417的博客 以csdn问答里面的一个例子吧。...这是一个需要post查询数据的API. 我这里会隐藏一下别人提供的token。 新建一个控制台。代码如下： Imports System.Net Imports System.Text Module Module1 Sub Main() ...
  • 刚开始学爬虫 爬取分页数据 python
    2019-01-24 14:47
    回答 3 已采纳 ←如果以下回答对你有帮助，请点击右边的向上箭头及采纳下答案 ``` for a in range(1,10): url=r'https://xxxxxx?page='+str(a) p
  • 跪求VB大佬帮忙解一下，感谢！ 其他开发语言
    2021-06-02 18:54
    回答 2 已采纳 Command1_Click表示按钮按下开始执行了，首先For循环中引用GetValue 参数为变量，GetValue中S为静态变量表明，每次引用GetValue函数，S不清零能够保持上一次的值参与本
  • 如何用VB编程实时刷写数据？ 数据仓库
    2018-10-09 03:08
    回答 2 已采纳 若采集的过程不会太长，可考虑先在内存做完，再一次写入txt文件。 用Queue可以简单达成你的需求，下面是sample code，请参考。 ``` Private Sub Lo
  • VB中WebBrowser控件运用 自动获取网页表格数据 网页表格内容自动提取 VB源码
    2011-08-10 21:34
    '此代码发布后，可随意改哈，欢迎光临我的网址导航网站 http://www.97tt.org Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As ...
  • 使用Requests爬取网页图片并保存
    2021-01-02 17:56
    露葵025的博客 使用的是requests爬虫，在使用requests库爬取网页中有介绍。 import requests r = requests.get('https://www.qiushibaike.com/imgrank/')#获取网页链接 rtext = r.text #rtext #打开用来查看是否获取成功 二、...
  • 网络爬虫：Python如何从网上爬取数据？
    2020-06-26 19:57
    冰山_的博客 在整个的Python爬虫架构里，从基础到深入我分为了10个部分：HTTP、网页、基本原理、静态网页爬取、动态网页爬取、APP爬取、多协程、爬虫框架、分布式爬虫以及反爬虫机制与应对方法。 1.HTTP 使用Python网络爬虫...
  • 求登陆界面代码，vb实现
    2016-04-01 02:54
    回答 1 已采纳 VB的form里面加几个编辑框、几个按钮的事情 代码则需要加一个访问access的实现 随便百度一下都一堆
  • VB怎样获取数据库多条数据
    2016-09-01 14:53
    回答 1 已采纳 ``` Set conn = New ADODB.Connection Set rs = new ADODB.RecordSet conn.Open 你的连接字符串 sql = "s
  • Vb中如何编码撤销功能，也就是返回上一步的操作！求代码
    2016-05-11 06:09
    回答 1 已采纳 ``` 直接往你的文本框发送 wm_undo 消息 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByV
  • Scrapy之迭代爬取网页中失效问题分析
    2018-05-06 17:37
    bladestone的博客 在Scrapy中，在很多种情况下，需要一层层地进行爬取网页数据，就是基于url爬取网页，然后在从网页中提取url，继续爬取，循环往复。 本文将讲述一个在迭代爬取中，只能爬取第一层网页的问题。 问题的提出 scrapy ...
  • C#与vb网络爬虫源代码
    2013-02-20 15:50
    详细介绍c#开发的网络爬虫代码的源文件.入门级学者可下载学习
  • 爬虫爬取网站全部网页
    2019-01-01 11:41
    腰果大妖怪的博客 话不多说直接上代码： # 获取目标网站的大量相关网页链接 if __name__ == '__main__': import ClimbHealthSkyCom ClimbHealthSkyCom.main() # 对链接进行进一步处理，去重 def LinkDeduplication(): print('...
  • 请问下vb.net怎么才能获得当前网页的源代码
    2016-02-10 07:31
    回答 2 已采纳 如果使用的是IE，最简单的是使用BHO或者用Shell库。 参考： http://www.cnblogs.com/kissdodog/p/3725774.html
  • selenium 爬取动态加载数据
    2019-11-08 10:50
    yechangfeng47的博客 由于项目需要爬取某网站动态加载的数据，尝试几种办法最终选定号称万能爬虫的selenium。 windows环境下： 一、下载谷歌浏览器，查看chrome版本号 二、下载对应版本的的chromedriver，地址：...
  • 没有解决我的问题, 去提问