0
링크를 추출하는 작동하는 PHP 코드가 있지만 VB.net에서 CURL을 사용하지 않아서 VB.net 코드로 변환하는 방법을 모르겠습니다. 이것을 변환 할 방법이 있습니까? 미리 감사드립니다.PHP CURL을 VB.net으로 변환
내 코드 :
$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);