性色欲网站人妻丰满中文久久不卡,99偷拍视频精品一区二区,小蜜被两老头吸奶头在线观看 ,老师好爽要尿了潮喷了视频高潮

每周一數(shù)|速領!28萬條手機號碼歸屬地大數(shù)據

2019-03-15 18:04:23 瀏覽:43712




第12期  28萬條手機號歸屬地大數(shù)據 900×500px (2).jpg


今天小雅問小采一個問題,怎樣批量查詢采集手機號碼歸屬地?


小采的第一想法是用火車采集器啊,無需復雜編程即可輕松采集。


然而小雅雞賊的加了個限制,不準用火車頭,emmm,這下有點麻煩了,除了火車頭還有什么別的辦法可以查詢呢?





1




今天小采就教大家一個簡單實用的小技巧。


timg.gif


?首先,我們用隨機函數(shù),生成一批手機號碼,在Excel中模擬,使用函數(shù)=RANDBETWEEN(13000000000,13999999999),生成了一批手機號碼,如下所示:


微信圖片_20190315170039.jpg


?如果我們一個個查詢,只能去網站上面輸入手機號,然后得到相應的結果。我們記住網站,然后后面用函數(shù)進行抓取。


微信圖片_20190315170149.jpg


?我們首先建議一個輔助列,得到查詢這個手機號的網頁鏈接地址,在B2輸入公式:="https://shouji.51240.com/"&A2&"__shouji/",批量得到鏈接地址,如下所示:


微信圖片_20190315170154.jpg


然后再使用函數(shù),從網頁中抓取數(shù)據,并剔除一些沒有用的字符串,大家可以看下面截圖中的公式使用,如下所示:


微信圖片_20190315170158.jpg


便可以得到是哪個運營商,以及該手機號碼對應的省份和城市。


如果不理解公式的話,就直接按照上面的步驟操作就好了。這個功能要聯(lián)網才能實現(xiàn),在Excel打開的時候,要點擊允許連接網絡。





2




或者還有一種方法,那就是自己來寫代碼。首先你要找好幾個webapi,然后就用vba寫自定義函數(shù),測試下運行還是很正常的。

 

微信截圖_20190315171330.png


使用方法具體如下:

1.在本表中直接在A1列輸入手機號即可

2.要在其他表中,alt+f11打開vbe編輯器,復制模塊中代碼,在你的新表中建立模塊,粘貼代碼即可

3.函數(shù)參數(shù)說明

GetPhoneInfo(號碼,參數(shù))

號碼—即單個手機號

參數(shù)(1,2,3,4):1-城市,2-省,3-運營商, 4-全部


timg (3).gif

部分代碼如下:


Dim ObjXML As Object


 Function GetPhoneInfo(number, Optional para As Byte = 1)

 '獲取手機號對應的基本信息 默認為城市

 'para:1-城市,2-省,3-運營商,4,全部

    Dim s As String

    s = GetBody("http://v.showji.com/Locating/showji.com2016234999234.aspx?

    output=json&callback=querycallback&m=" & number)

    Select Case para

    Case 1

        GetPhoneInfo = HtmlFilter(s, "City"":""", """")

    Case 2

        GetPhoneInfo = HtmlFilter(s, "Province"":""", """")

    Case 3

        GetPhoneInfo = HtmlFilter(s, "TO"":""", """")

    Case 4

        GetPhoneInfo = HtmlFilter(s, "City"":""", """") & "," & 

        HtmlFilter(s, "Province"":""", """") & "," & HtmlFilter(s, "TO"":""", """")

    End Select

    GetPhoneInfo = Replace(GetPhoneInfo, " ", "")

End Function


Private Sub Test()

    Dim i&, j&, k&, arr, brr

    url = "http://v.showji.com/Locating/showji.com2016234999234.aspx?

    output=json&callback=querycallback&m=15098051755"

    Debug.Print GetBody(url)

End Sub

'''如果出現(xiàn)亂碼,UTF-8可改為GB2312

Public Function GetBody(ByVal url$, Optional ByVal Coding$ = "utf-8")

    On Error Resume Next

    Set ObjXML = CreateObject("Microsoft.XMLHTTP")

    With ObjXML

        .Open "Get", url, False, "", ""

        '.setRequestHeader "If-Modified-Since", "0"

        '.setRequestHeader "User-Agent", _

            ".Mozilla/5.0 (Windows NT 6.1; WOW64; rv:47.0) Gecko/20100101 Firefox/47.0"

        .Send

        GetBody = .ResponseBody

    End With

    GetBody = BytesToBstr(GetBody, Coding)

    Set ObjXML = Nothing

End Function

Public Function BytesToBstr(strBody, CodeBase)

    Dim ObjStream

    Set ObjStream = CreateObject("Adodb.Stream")

    With ObjStream

        .Type = 1: .Mode = 3: .Open:

        .Write strBody: .Position = 0: .Type = 2: .Charset = CodeBase

        BytesToBstr = .ReadText: .Close

    End With

    Set ObjStream = Nothing

End Function

Public Function HtmlFilter(ByVal htmlText$, ByVal Label1$, ByVal label2$)

'返回html字符串lable1和最近的lable2標簽中的數(shù)據

    Dim pStart As Long, pStop As Long

    pStart = InStr(htmlText, Label1) + Len(Label1)

    If pStart <> 0 Then

        pStop = InStr(pStart, htmlText, label2)

        HtmlFilter = Mid(htmlText, pStart, pStop - pStart)

    End If

End Function









3




本周的每周一數(shù)小采為大家?guī)淼木褪?8萬手機號碼歸屬地數(shù)據。


第12期  28萬條手機號歸屬地大數(shù)據 900×500px.jpg


活動領取資格:火車采集器/火車瀏覽器商業(yè)版(服務年限內)用戶。領取時間:發(fā)文后5個工作日內(周末工作人員休息)。值得注意的一點是,如果不是服務年限內的商業(yè)版用戶就無法領取贈送數(shù)據哦!


贈送數(shù)據字段名:包含ID,手機號,區(qū)域,城市,移動運營商,區(qū)號,郵編共7個字段名。


贈送數(shù)據領取時間:2019年3月15日發(fā)文后5個工作日內。


贈送數(shù)據領取方式


第一步:掃碼添加火車運營微信,運營會第一時間拉你進福利分享群,趕快來和商業(yè)用戶的大神們一起暢聊吧。





第二步:進群后加數(shù)據咨詢客服.雅的微信號,驗證是否服務年限內商業(yè)用戶,通過驗證后即可領取今日頭條大數(shù)據。


如果你還知曉更多采集查詢手機號歸屬地的方法,也可以在公眾號下方留言分享哦。


掃碼關注微信
久久久综合香蕉尹人综合网| 久久久久人妻一区精品色欧美| 大白屁股缝里浓黑的毛| 天天搡天天狠天干天啪啪| 国产无遮挡又黄又大又爽| 精品无码国产一区二区三区51安| 狠狠色丁香婷婷第六色孕妇| 日韩精品无码一本二本三本色| 国产av无码专区亚洲精品| 久久久久亚洲av成人无码电影 | 小说区 图片区色 综合区| 久热这里只有精品视频6| 日本做爰高潮又黄又爽| 久久人人爽人人爽人人片| 果冻传媒在线观看九一制片厂| 小路あゆむちっち在线观看| 无码人妻精品一区二区蜜桃百度| 国产精品一区二区av| 久久久久亚洲AV成人人电影| 老司机午夜福利视频| 黑人巨茎大战欧美白妇| 色欲欲www成人网站| 亚洲色素色无码专区| 日产精品久久久久久久性色| 性色av蜜臀av人妻无码| 伊人色综合久久天天五月婷| 青青草97国产精品免费观看| 无码国产精品一区二区免费虚拟vr | 国产av日韩a∨亚洲av电影| 日本三级丰满邻居人妻视频| 精品国产粉嫩内射白浆内射双马尾| xxxx漂亮少妇xxxxhd| 天美传媒免费观看一二三在线| 一本大道熟女人妻中文字幕在线| 87福利电影网| 国产jk精品白丝av在线观看| 中文在线天堂中文| 姑娘视频在线观看免费完整版高清| 国产亚洲精品久久久999蜜臀| 亚洲精品国产一区二区精华液| 全免费a级毛片免费看|