如何提取 網頁 中的文字連接網址 (網址在js 中)

Question

有一個網頁,   例如www.temporaryinbox.com 
上面有google廣告,   我想提取廣告上的文字連接網址 網頁當中的代碼如下 <script type="text/javascript"><!--
google_ad_client = "pub-6888698757405433";
google_ad_width = 300;
google_ad_height = 250;
google_ad_format = "300x250_as";
google_ad_type = "text_image";
google_ad_channel = "7867219721";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "000000";
google_color_text = "000000";
google_color_url = "000000";
</script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

Answer 1

如果不牵涉到 HTMLDOM 对象直接用文本操作，如下
sub ListURL(byval js as string)
  dim i as long, j as long
  i = instr(1, js, "http://")
  while i>0
    j = instr(i+7, js, """")
    debug.print mid$(js, i, j-i)
    i = instr(j+1, js, "http://")
  wend
end sub

Answer 2

不同在哪里？
不以 http:// 开始？大小写不同？前面有空格？
给些例子

Answer 3

你看看
http://forum.csdn.net/SList/VB_Network/網頁最底的部分, 是否有google的廣告..你試試查看他們其中一個的連接網址..然後記錄下來
例如: 
http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=BstJwYiArR4nbF5vA6QPD2YTjC5jL-zu6gq-rAcCNtwGg_goQARgBILfIlAIoAzgAULKTmLQBYNkCoAGc0Lf_A6oBCjIxNjM0MzgyODmyAQ5mb3J1bS5jc2RuLm5ldLoBCTcyOHg5MF9hc8gBAdoBJ2h0dHA6Ly9mb3J1bS5jc2RuLm5ldC9TTGlzdC9WQl9OZXR3b3JrL4ACAcgC9Lq6AagDAcgDB-gDH-gDIPUDAAQAAA&num=1&ggladgrp=224222644&gglcreat=274274704&adurl=http://www.pctools.com/registry-mechanic/%3Fref%3DgoogleA&client=ca-pub-1076724771190722&nm=20
之後再refresh(重新整理) 該網頁一次, 
同樣位置的網址變為:
http://pagead2.googlesyndication.com/pagead/iclk?sa=l&ai=BWVno5iErR6vCDZnG6wP38OHiC7vUzjLfh8PxA8CNtwGg_goQARgBILfIlAIoAzgAUIqax9D8_____wFg2QKgAfzvwv8DqgEKMjE2MzQzODI4ObIBDmZvcnVtLmNzZG4ubmV0ugEJNzI4eDkwX2FzyAEB2gEnaHR0cDovL2ZvcnVtLmNzZG4ubmV0L1NMaXN0L1ZCX05ldHdvcmsvgAIBqAMByAMH6AMf6AMg9QMABAAA&num=1&adurl=http://www.pronexus.com/GoogleSpeechRec&client=ca-pub-1076724771190722&nm=5
是每次不同的
如何提取?

Answer 4

那就在 instr 中用 "http://pagead2.googlesyndication.com/pagead/iclk?" 做第三个参数。