用VB编写异步多线程下载程序

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　'取得下一块。
　　vtData = inet1.GetChunk(1024, icString)
　　If Len(vtData) = 0 Then
　　bDone = True
　　End If
　　Loop
　　'获取文档中的链接并置于数组中。
　　Dim i As Variant
　　Dim po1 As Variant
　　Dim po2 As Variant
　　Dim oril As String
　　Dim newl As String
　　Dim lmtime, ctime
　　po1 = InStr(1, strData, "href=", vbTextCompare) + 5
　　po2 = 1
　　Dim newstr As String: newstr = ""
　　Dim whostr As String: whostr = ""
　　i = 0
　　Do While po1 > 0
　　newstr = Mid(strData, po2, po1)
　　whostr = whostr + newstr
　　po2 = InStr(po1, strData, ">", vbTextCompare)

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。