PC 人體藝術圖片 批量采集 附易語言代碼


無意看到的一個網站,花了幾分鐘弄了一個小工具,資源還算可以吧!一鍵下載,直接就掛后臺了。一共就96頁,下面是代碼,懂的可以改改!


.版本 2

.子程序 采集圖片
.局部變量 源碼, 文本型
.局部變量 計次, 整數型
.局部變量 計次2, 整數型
.局部變量 正則, 正則表達式類
.局部變量 內容, 文本型
.局部變量 內容正則, 正則表達式類
.局部變量 圖片張數, 整數型
.局部變量 計次3, 整數型
.局部變量 圖片地址, 文本型
.局部變量 保存目錄, 文本型
.局部變量 下載地址, 文本型
.局部變量 文件名, 文本型

.計次循環首 (96, 計次)
    源碼 = 網頁_訪問S (“https://www.7160.com/rentiyishu/list_1_” + 到文本 (計次) + “.html”)
    正則.創建 (#常量1, 源碼)
    標簽3.標題 = “已處理:” + 到文本 (計次)
    .計次循環首 (正則.取匹配數量 (), 計次2)
        系統_處理事件 ()
        內容 = 網頁_訪問S (“https://www.7160.com” + 正則.取子匹配文本 (計次2, 1))
        圖片張數 = 到整數 (文本_取出中間文本 (內容, “<a>共”, “頁: </a>”))
        保存目錄 = 取運行目錄 () + “\人體\” + 正則.取子匹配文本 (計次2, 2)
        .如果真 (目錄_創建 (保存目錄))
            目錄數 = 目錄數 + 1
            標簽2.標題 = “目錄數:” + 到文本 (目錄數)
            .計次循環首 (圖片張數, 計次3)
                系統_處理事件 ()
                圖片地址 = 網頁_訪問S (“https://www.7160.com” + 正則.取子匹配文本 (計次2, 1) + “index_” + 到文本 (計次3) + “.html”)
                下載地址 = 文本_取出中間文本 (圖片地址, “.html'><img src='”, “' border='0' alt=”)
                .如果真 (下載地址 ≠ “”)
                    文件名 = 文本_取右邊 (下載地址, “/”, )
                    寫到文件 (保存目錄 + “\” + 文件名, 網頁_訪問 (下載地址))
                    張數 = 張數 + 1
                    標簽1.標題 = “已下載:” + 到文本 (張數) + “張”
                .如果真結束

            .計次循環尾 ()
        .如果真結束

    .計次循環尾 ()
.計次循環尾 ()


下載地址 
藍奏網盤 

 烏云君。
 簡介:優秀的資源整合網站,多平臺快速下載服務,拒絕和諧,綠色無廣告的資源站!

發表評論

游客 表情
歡迎評論

評論(0)