主题：多线程问题， 哪位大神 可以释疑？？

UploadFile/2016-5/201652823363194780.png[/upload]
此主题相关图片如下：123.png

多线程问题， 哪位大神 可以释疑？？

mark 多线程委托

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

这样一来， 等于没用 多线程 ，  而且 使用内部函数 没有达到缩短 时间的效果

直接这样方法也不行，过快的获取，人家网站就把你给屏蔽了。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (3).table

 

 

Dim rw As Row = CurrentTable.Current
Dim url As String = "http://data.eastmoney.com/stockcomment/" & rw("股piao代码").SubString(rw("股piao代码").Length - 6)  & ".html"
output.show(url)
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm, EnCoding.Default)

Dim str As String = reader.ReadToEnd

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=>机构参与度为).+?(?=%)")
If mc.count > 0 Then
    rw("第七列") = mc(0).value
End If
rsps.Close
stm.Close
reader.close

 

 或者，你用单线程，或者是委托，结合5楼的方法去做，至少比webbrowser获取的速度会快很多。

用5楼的代码啊。

BaseMainForm.Invoke(New _Delegate(AddressOf _MyDelegateMethod), "获取数据", Nothing)

红色代码，就是传递参数

 

 BaseMainForm.Invoke(New _Delegate(AddressOf _MyDelegateMethod), "获取数据", new object(){"参数1", "参数2", 变量3})