百度貼吧大家都經常逛,去逛百度貼吧的時候,經常會看到樓主分享一些資源,要求留下郵箱,樓主才給發。
對於一個熱門的文章,留下的郵箱數量是非常多的,樓主需要一個一個的去複製那些回複的郵箱,然後再粘貼發送郵件,不是被折磨死就是被累死。無聊至極寫了一個抓取百度貼吧郵箱資料的程式,需要的拿走。
程式實現了一鍵抓取文章全部郵箱和分頁抓取郵箱兩個功能,介面懶得做了,效果如下:
老規矩,直接貼源碼
<?php$url2="";$page="";if($_GET['url2']==""){$url2="http://tieba.baidu.com/p/2314539885?pn=1";}else{$url2=$_GET['url2'];}if($_GET['page']==""){$page="1";}else{$page=$_GET['page'];}?><?phpif($_GET['type']!=""){$counts=0;if($_GET['type']=="getAll"){$pages=$_GET['page'];$url = $_GET['url'];for($i=0;$i<$pages;$i++){$ch2 = curl_init();curl_setopt($ch2, CURLOPT_URL, $url);curl_setopt($ch2, CURLOPT_FOLLOWLOCATION, TRUE);curl_setopt($ch2, CURLOPT_SSL_VERIFYHOST, FALSE);curl_setopt($ch2, CURLOPT_SSL_VERIFYPEER, false);curl_setopt($ch2, CURLOPT_RETURNTRANSFER, TRUE);$texts = curl_exec($ch2);curl_close($ch2);$dat=getEmail($texts);for($j=0;$j";$counts++;}}}else if($_GET['type']=="getNow"){$url = $_GET['url2'];$ch2 = curl_init();curl_setopt($ch2, CURLOPT_URL, $url);curl_setopt($ch2, CURLOPT_FOLLOWLOCATION, TRUE);curl_setopt($ch2, CURLOPT_SSL_VERIFYHOST, FALSE);curl_setopt($ch2, CURLOPT_SSL_VERIFYPEER, false);curl_setopt($ch2, CURLOPT_RETURNTRANSFER, TRUE);$texts = curl_exec($ch2);curl_close($ch2);$dat=getEmail($texts);for($i=0;$i";$counts++;}}echo '共採集到資料:'.$counts.'條
';}function getEmail($str){$pattern = "/([a-z0-9\-_\.]+@[a-z0-9]+\.[a-z0-9\-_\.]+)/"; preg_match_all($pattern,$str,$emailArr); return $emailArr[0]; }?>