VB XmlHttp 数组应用 求高手帮忙

 本来PSP影视区有上万条地址 这个只能找到378条 选取的是每一页的第一条
 现在就是弄个数组 然后把匹配单个的逻辑改成匹配所有
 再对数组进行处理  来获取上万条地址

 Dim html 
 i=1
 For 377
     url = "http://bbs.duowan.com/forum-222-" & i & ".html"
     Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
     XmlHttp.Open "get", url, False
     XmlHttp.setRequestHeader "Content-Type", "text/XML"
     XmlHttp.Send(null)
     html = XmlHttp.responseText
     start = Instr(1, html, "</em> <span id=", 0) + 15
     over = Instr(start, html, "><a href=", 0)
     okurl = Mid(html, start, over - start)
     okurl = Replace(okurl,"_","-")
     okurl = "http://bbs.duowan.com/" & okurl & "-1-1.html"
     okurl = Replace(okurl, """", "")
     Call Plugin.File.WriteFileEx("D:\url.txt",okurl)
     i=i+1
 Next  --------------------编程问答--------------------  For 377
这是什么写法？ --------------------编程问答--------------------

引用 1 楼 vbload 的回复:

For 377
这是什么写法？

按键精灵9.5里面的写法
循环377次 因为一共有377页
请问你能帮我解决这个需要用到数组的问题吗
--------------------编程问答-------------------- 并不复杂，遍历各网页，正则提取，定义一个动态数组存放，就好了啊。你哪里不会？ --------------------编程问答--------------------

引用 3 楼 vbload 的回复:

并不复杂，遍历各网页，正则提取，定义一个动态数组存放，就好了啊。你哪里不会？

【定义一个动态数组存放】这个不会 能帮帮我修改一下吗 --------------------编程问答-------------------- 原来楼主问的是按键精灵脚本啊 --------------------编程问答--------------------

引用 5 楼 bcrun 的回复:

原来楼主问的是按键精灵脚本啊

怎样从 html变量中提取多个类似thread-29324992的字符串呢

补充：VB ,  网络编程