在winHttp中使用同步与异步。。。

scnjlwb

感谢分享，学习一下！

WebConNum

浮华、缠绕指尖 老师： 在你的 "winHttp异步之数组输出" 例子中, 当在标准模块中并发请求后,即:

For i = 1 To m
      With arr(i)
            .getP = i
            .BeginRequest
      End With
Next

然后,在类模块中输出:

Private Sub winHttp_OnResponseFinished()
     strt =  StrConv(winHttp.ResponseBody, vbUnicode, &H804)    '输出 m 页数据。问题：如何把这m个数据合并在一起，并赋值给变量 strt
End Sub

到这里,我虽然很多是看不懂，但测试了，是效果不错的。我现在的问题是： 如果我不在winHttp_OnResponseFinished()中输出结果，而是把取得的数据合并（即把m个数据合并在一起）后赋值给变量 strt ，然后在其他的模块中调用。（如在发生请求的模块，或其他的标准模块）。我试了，在其他的模块中调用strt是空值。

希望浮华、缠绕指尖老师以及其他有看到的老师们赐教，在此先谢谢了...

onlycxb

WebConNum 发表于 2016-1-9 22:25
浮华、缠绕指尖 老师： 在你的 "winHttp异步之数组输出" 例子中, 当在标准模块中并发请求后,即:

For i  ...

strt =  StrConv(winHttp.ResponseBody, vbUnicode, &H804)    代表采集一次网址数据,记录只有一条.如果你要将N个数据采集结果,合并,也只能在全部数据采集完毕后,另写代码

WebConNum

onlycxb 发表于 2016-1-10 09:55
strt =  StrConv(winHttp.ResponseBody, vbUnicode, &H804)    代表采集一次网址数据,记录只有一条.如果 ...

我这样试了, 这里先假设 m=10, 即请求10个网址, 这10个页面的数据都不一样,但结构一样.
Private Sub winHttp_OnResponseFinished()
     strt =  StrConv(winHttp.ResponseBody, vbUnicode, &H804)   
     msgbox strt
End Sub
运行结果是,弹窗10次,也是你对应页面上的数据.  我的意思是: 能不能将这10个数据合并在一起,重新赋值给一个新变量,比如 AAA. 就是说,不在OnResponseFinished()中处理数据,而只是将数据取出存入变量AAA中,然后在其他的模块中处理AAA数据.

onlycxb

WebConNum 发表于 2016-1-10 11:09
我这样试了, 这里先假设 m=10, 即请求10个网址, 这10个页面的数据都不一样,但结构一样.
Private Sub win ...

不明白你的意思.好像那样失去了利用类模块建立异步程序的意义了

浮华、缠绕指尖

WebConNum 发表于 2016-1-9 22:25
浮华、缠绕指尖 老师： 在你的 "winHttp异步之数组输出" 例子中, 当在标准模块中并发请求后,即:

For i  ...

噢，这个呀，比如你建立一个arr(1 to 10)的数组，那你异步10个网页的数据分别放在里面，这个arr不就是你想要的变量了吗？这时你再处理这个arr不就完事了

WebConNum

onlycxb 发表于 2016-1-10 11:44
不明白你的意思.好像那样失去了利用类模块建立异步程序的意义了

没有失去异步的意义，当winHttp.ResponseText输出成功时，我们利用异步的目的就已经达到了。接下来就是对输出结果进行分析/处理，取出我们需要的部分。而我的意思就是，这个分析/处理过程不在OnResponseFinished()中进行，而是在其他模块中进行。我这样想是因为：如果我们要抓取的网站（或页面结构）不一样，那么，是不是就得需要多个这样的类模块？比如说：第1次请求10页面，页面结构和数据结构都一样，那么，我们可以在OnResponseFinished()中循环分析/处理这10请求返回的结果，这时需要一些代码（这里假设为代码A）来完成这个处理过程；但是，如果我第2次请求的网页跟第1次的不同，网站或页面结构或数据结构等都不一样，那么代码A就不适合处理了，就必须重新写代码，那不就是要再建立一个新的类模块了，如果是N个，那就得有N个类模块了...所以我才想，在OnResponseFinished()中取得输出结果，即winHttp.ResponseText，然后赋值给一个变量，如AAA,然后在其他的模块中再分析处理这些数据，取出我们所需要的部分，这样，类模块一个就可以了。毕竟，我们用异步最主要的目的就是想提高采集速度，而且采集的页面一般都不会是少数（包括页面结构也是多样的），否则，就直接使用同步就好了。不知道这样说，能看明白吗？

WebConNum

浮华、缠绕指尖 发表于 2016-1-10 14:52
噢，这个呀，比如你建立一个arr(1 to 10)的数组，那你异步10个网页的数据分别放在里面，这个arr不就是你 ...

哦，老师来了，太好了... 我是有试过存入一变量，因为输出的结果是字符串，我把这变量定义为string（全局变量），但结果是这个变量在其他模块中读取时是空值。但没有想到过存入数组，我这就去试试... 谢谢老师指点。

WebConNum

浮华、缠绕指尖 发表于 2016-1-10 14:52
噢，这个呀，比如你建立一个arr(1 to 10)的数组，那你异步10个网页的数据分别放在里面，这个arr不就是你 ...

老师，还在吗? 我试了，还是不行：  '先全局声明了数组arrT()

ReDim arrT(1 To 10)
Private Sub winHttp_OnResponseFinished()
for i=1 to 10
     arrT(i) = winHttp.ResponseText  
next i
End Sub
然后我在标准模块中取值:
for ii=1 to 10
    msgbox arrT(ii)
next ii
结果是,有时候也是空值, 有值得时候,输出的都是同一个值(即只是其中一页面返回的值,而不是10个页面的值). 另外,我又试了只发送一个请求:  即m=1(只是请求一个页面),然后:
Private Sub winHttp_OnResponseFinished()
     strT = winHttp.ResponseText     ' strT (string), 也声明为全局变量
  ' msgbox strT  '在此使用msg提示框时,能正常显示请求页面返回的值. 先注释掉,然后在标准模块中调用strT
End Sub
在标准模块中使用msgbox strT, msg框显示空白(空值),说明取不了strT值.也不知道这到底是什么原因?希望老师有空再给看看,谢谢了.

592rmb

好东西，学习了，收藏