中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

如何使用易語言實現免費不限次數下載千圖網圖片

發布時間:2021-09-15 09:36:09 來源:億速云 閱讀:201 作者:小新 欄目:編程語言

這篇文章主要介紹如何使用易語言實現免費不限次數下載千圖網圖片,文中介紹的非常詳細,具有一定的參考價值,感興趣的小伙伴們一定要看完!

此功能配合精易模塊5.6使用,需要加載模塊.

.版本 2
.支持庫 internet
.程序集 窗口程序集_啟動窗口
.子程序 _按鈕1_被單擊
.局部變量 文件序號, 文本型
.局部變量 網頁源碼, 文本型
.局部變量 圖片地址, 文本型
.局部變量 網址中間, 文本型
.局部變量 圖片數據, 字節集
.局部變量 格式, 文本型
網頁源碼 = 網頁_訪問S (編輯框1.內容)
網址中間 = 取中間文本 (網頁源碼, “src=” + #引號 + “http://”, “!/fw/1024/”)
.如果真 (網址中間 = “”)
  信息框 (“查找失敗!請輸入正確免摳圖千圖網素材網址”, 0, , )
  返回 ()
.如果真結束
圖片地址 = “http://” + 網址中間
文件序號 = 取中間文本 (編輯框1.內容, “/newpic/”, “.html”)
圖片數據 = HTTP讀文件 (圖片地址)
.如果 (尋找文本 (網址中間, “.png”, , 假) ≠ -1)
  格式 = “.png”
.否則
  格式 = “.jpg”
.如果結束
.如果 (寫到文件 (取運行目錄 () + “\data\” + 文件序號 + 格式, 圖片數據))
  信息框 (“下載成功”, 0, , )
.否則
  信息框 (“下載失敗”, 0, , )
.如果結束
.子程序 取中間文本, 文本型
.參數 被尋找的文本, 文本型
.參數 前面的文本, 文本型
.參數 后面的文本, 文本型
.局部變量 a, 整數型
.局部變量 b, 整數型
.局部變量 c, 文本型
a = 尋找文本 (被尋找的文本, 前面的文本, , 假) + 取文本長度 (前面的文本)
b = 尋找文本 (被尋找的文本, 后面的文本, a, 假) - a
c = 取文本中間 (被尋找的文本, a, b)
返回 (c)
.子程序 __啟動窗口_創建完畢
創建目錄 (取運行目錄 () + “\data”)

運行結果:

如何使用易語言實現免費不限次數下載千圖網圖片

以上是“如何使用易語言實現免費不限次數下載千圖網圖片”這篇文章的所有內容,感謝各位的閱讀!希望分享的內容對大家有幫助,更多相關知識,歡迎關注億速云行業資訊頻道!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

浙江省| 武定县| 皋兰县| 乌拉特后旗| 随州市| 夏津县| 台东县| 宜良县| 巢湖市| 宜川县| 鱼台县| 洪洞县| 古丈县| 汶川县| 山东| 云林县| 柏乡县| 新干县| 蓝山县| 类乌齐县| 称多县| 宁夏| 保德县| 穆棱市| 望城县| 荣成市| 敦化市| 嵊州市| 崇文区| 云南省| 淳安县| 崇礼县| 宜阳县| 富宁县| 温州市| 望谟县| 宁波市| 林州市| 青神县| 大名县| 朔州市|