0

我有一个可以提取链接的工作 php 代码，但我的问题是我不知道如何将其转换为 VB.net 代码，因为 VB.net 不使用 CURL。有什么办法可以转换这个吗？提前致谢。

我的代码：

$npages=100;
$gg_url = 'http://www.google.com/search?hl=en&q=' . urlencode(test) . '&filter=0&start=';
$i=1;
$size=0;

$options = array(
CURLOPT_RETURNTRANSFER => true, // return web page
CURLOPT_HEADER => false, // don't return headers
CURLOPT_FOLLOWLOCATION => true, // follow redirects
CURLOPT_ENCODING => "", // handle all encodings
CURLOPT_AUTOREFERER => true, // set referer on redirect
CURLOPT_CONNECTTIMEOUT => 120, // timeout on connect
CURLOPT_TIMEOUT => 120, // timeout on response
CURLOPT_MAXREDIRS => 10, // stop after 10 redirects
CURLOPT_COOKIEFILE => "cookie.txt",
CURLOPT_COOKIEJAR => "cookie.txt",
CURLOPT_USERAGENT => "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3",
CURLOPT_REFERER => "http://www.google.com/",
);

    for ($page = $start; $page < $npages; $page++)
    {
        $ch = curl_init($gg_url.$page.'0');
        curl_setopt_array($ch,$options);
        $scraped="";
        $scraped.=curl_exec($ch);
        curl_close( $ch );
        $results = array();
        preg_match_all('/a href="([^"]+)" class=l.+?>.+?<\/a>/',$scraped,$results);
        foreach ($results[1] as $url)
        {
        echo "<a href='$url'>$url</a> <br>";
        $i++;
        }
        $size+=strlen($scraped);
    }

echo "Number of results: $i Total KB read: ".($size/1024.0);
4

1 回答 1

1

使用一个WebClient对象。你应该可以对那个人做同样的事情：http: //msdn.microsoft.com/en-us/library/system.net.webclient.aspx

于 2013-08-28T20:28:42.007 回答