.版本 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, 假) － ac ＝ 取文本中間 (被尋找的文本, a, b)返回 (c).子程序 __啟動窗口_創建完畢創建目錄 (取運行目錄 () ＋ “/data”)