免費(fèi)免登陸下載千圖網(wǎng)貼圖,不限下載次數(shù)。
此功能配合精易模塊5.6使用,需要加載模塊.
.版本 2.支持庫(kù) internet.程序集 窗口程序集_啟動(dòng)窗口.子程序 _按鈕1_被單擊.局部變量 文件序號(hào), 文本型.局部變量 網(wǎng)頁(yè)源碼, 文本型.局部變量 圖片地址, 文本型.局部變量 網(wǎng)址中間, 文本型.局部變量 圖片數(shù)據(jù), 字節(jié)集.局部變量 格式, 文本型網(wǎng)頁(yè)源碼 = 網(wǎng)頁(yè)_訪問(wèn)S (編輯框1.內(nèi)容)網(wǎng)址中間 = 取中間文本 (網(wǎng)頁(yè)源碼, “src=” + #引號(hào) + “http://”, “!/fw/1024/”).如果真 (網(wǎng)址中間 = “”) 信息框 (“查找失敗!請(qǐng)輸入正確免摳圖千圖網(wǎng)素材網(wǎng)址”, 0, , ) 返回 ().如果真結(jié)束圖片地址 = “http://” + 網(wǎng)址中間文件序號(hào) = 取中間文本 (編輯框1.內(nèi)容, “/newpic/”, “.html”)圖片數(shù)據(jù) = HTTP讀文件 (圖片地址).如果 (尋找文本 (網(wǎng)址中間, “.png”, , 假) ≠ -1) 格式 = “.png”.否則 格式 = “.jpg”.如果結(jié)束.如果 (寫到文件 (取運(yùn)行目錄 () + “/data/” + 文件序號(hào) + 格式, 圖片數(shù)據(jù))) 信息框 (“下載成功”, 0, , ).否則 信息框 (“下載失敗”, 0, , ).如果結(jié)束.子程序 取中間文本, 文本型.參數(shù) 被尋找的文本, 文本型.參數(shù) 前面的文本, 文本型.參數(shù) 后面的文本, 文本型.局部變量 a, 整數(shù)型.局部變量 b, 整數(shù)型.局部變量 c, 文本型a = 尋找文本 (被尋找的文本, 前面的文本, , 假) + 取文本長(zhǎng)度 (前面的文本)b = 尋找文本 (被尋找的文本, 后面的文本, a, 假) - ac = 取文本中間 (被尋找的文本, a, b)返回 (c).子程序 __啟動(dòng)窗口_創(chuàng)建完畢創(chuàng)建目錄 (取運(yùn)行目錄 () + “/data”)
運(yùn)行結(jié)果:
總結(jié)
以上就是這篇文章的全部?jī)?nèi)容了,希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,謝謝大家對(duì)VeVb武林網(wǎng)的支持。
新聞熱點(diǎn)
疑難解答
圖片精選