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

liucqa

浮华、缠绕指尖 发表于 2015-6-7 08:59
可能大家对第二种方式很感兴趣，速度在那儿放着的，但往往是这一点，需要特别注意的是，如果一次性并发过大 ...

如果有可能的话，看看能否将代码修改完整。

采用winhttp异步并发采集网页，需要处理许多问题，所以一个简单的类是无法达成异步期望的效果的。

大概你给出的异步代码依赖func.xla，而且没怎么测试吧，运行起来频频报错，那个窗体进度条是无效的。把m改成2000或者10000测试看看...反正我的Excel是报错停止工作了

一个完整的异步代码，至少应该提供启动异步、回调结束的进度提示，以便使用者能够判断是不是程序执行结束了，这需要类模块与主模块之间做交互，在异步回调结束之前，主模块是不能结束运行的。

需要注意的是，在Excel运行的时候，vba同时操作两个cells会导致Excel报错，而大量做异步并发的时候，这种情况发生的概率挺大，需要对代码做优化以降低概率，或者提供错误处理的代码。当然，最好的办法是别用vba搞并发操作Excel，呵呵！

最后，还是要对你的学习精神表示支持，论坛像你这样的会员越来越少了

...

浮华、缠绕指尖

liucqa 发表于 2015-6-7 11:31
如果有可能的话，看看能否将代码修改完整。

采用winhttp异步并发采集网页，需要处理许多问题，所以一 ...

老师也看出来了，其实我一般不会去操作excel，输出只是在最后一步，我这样演示只是为了让大家更方便的看出异步的效果而已，兼顾看顺序和速度而已。

我的代码和func.xla是无任何关系的，那里面只是存放了一些我常用的代码以及为了引用某些dll方便点。

至于启动异步、回调结束的进度提示，这个其实是一件很简单的事，顶多就相当于Interlocked.Increase的功能而已

引用老师的一句叫，指路而无暇爬山，当然我说过，老师也可以将自己比较成熟的案例共享一下供大家学习学习呗。。

浮华、缠绕指尖

1.       Do
   
2. BeginRequest
   
3. retryTimes = retryTimes + 1
   
4. Loop Until retryTimes < 10

复制代码

嗯，其实就在On_Error中加上这一句就好了，重试次数不一定非得过多，关键一点是需要控制他的并发量，这个也可以用代码来实现的，就比如是1W次的并发，这样的量就算以你的最大网速来下载也会需要不少时间吧，再说并发运行的时间，就相当是你的重复次数*默认的超时时间内需要完成，但以大家的网速，在这么短的时间根本达不到这样的下载量，所以还是会有不少数据会丢失的。
这种并发的后期处理就看大家怎么用了，用得好当然乐，没用好的话也无需悲观，大不了，待程序运行完了，再根据针对超时的页面再次并发就好了

liucqa

浮华、缠绕指尖 发表于 2015-6-7 13:31
老师也看出来了，其实我一般不会去操作excel，输出只是在最后一步，我这样演示只是为了让大家更方便的看 ...

我的意思是说，你得提供一个能够正确运行的代码，这样我才能放入知识树。

你目前的代码需要修改。

你把func.xla关掉，再把m调整到2000，看看你代码运行情况就知道了。
其他的交互、错误处理之类的功能，能提供当然更好，不能提供也不影响放入知识树。

最后，还是要对你这种乐意分享，无私奉献的精神表示感谢！

浮华、缠绕指尖

设置成1000的，动画效果如下，当然可以将数据放到数组也是可以

浮华、缠绕指尖

liucqa 发表于 2015-6-7 14:06
我的意思是说，你得提供一个能够正确运行的代码，这样我才能放入知识树。

你目前的代码需要修改。

老师也可以把你的代码共享一下呗。

liucqa

浮华、缠绕指尖 发表于 2015-6-7 14:21
设置成1000的，动画效果如下，当然可以将数据放到数组也是可以

我设成2000测试，Excel停止响应了。

codexq

vba 不是单线程吗，异步能实现多线程么？

浮华、缠绕指尖

liucqa 发表于 2015-6-7 14:57
我设成2000测试，Excel停止响应了。

哈哈，你的问题，我的设置成1W也是ＯＫ的，我再传一个数组输出的吧 winHttp异步之数组输出.rar (30.92 KB, 下载次数: 511)

2015-6-7 15:14 上传

点击文件名下载附件

浮华、缠绕指尖

codexq 发表于 2015-6-7 14:58
vba 不是单线程吗，异步能实现多线程么？

看效果看图就知道了