亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

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

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

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

發布時間: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

宁阳县| 台北市| 江永县| 哈巴河县| 苍溪县| 南岸区| 大同市| 方山县| 绵竹市| 吉林省| 洪雅县| 平乡县| 东莞市| 慈溪市| 孝昌县| 台中县| 湖南省| 禄丰县| 汨罗市| 楚雄市| 张家界市| 密云县| 阳泉市| 旅游| 理塘县| 会同县| 丹凤县| 盘山县| 尼勒克县| 十堰市| 内乡县| 永宁县| 崇礼县| 大余县| 多伦县| 定南县| 普兰县| 迁西县| 浙江省| 武城县| 南岸区|