.支持庫 eImgConverter
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
.局部變量 圖片, 字節集
.局部變量 文件名, 文本型
.局部變量 文件號, 整數型
畫板1.底圖 = 快照 (, , )
畫板1.復制 (0, 0, 526, 395, 畫板2, 0, 0, ) ' 寬度自己定,高度也自己定。
圖片 = 畫板2.取圖片 (, )
.判斷開始 (讀配置項 (取運行目錄 () + “\截圖配置.ini”, “保存時”, “文件號”, ) = “”)
文件號 = 1
.判斷 (讀配置項 (取運行目錄 () + “\截圖配置.ini”, “保存時”, “文件號”, ) ≠ “”)
文件號 = 到整數 (讀配置項 (取運行目錄 () + “\截圖配置.ini”, “保存時”, “文件號”, )) + 1
.默認
.判斷結束
文件名 = “jietu” + 到文本 (文件號) + “.jpg”
寫到文件 (取運行目錄 () + “\” + 文件名, 圖片)
轉換到JPG (取運行目錄 () + “\” + 文件名, 取運行目錄 () + “\” + 文件名, 假, 100, 真, 0)
寫配置項 (取運行目錄 () + “\截圖配置.ini”, “保存時”, “文件號”, 到文本 (文件號))
銷毀 ()
前面的寫配置項是為了記錄截圖次數,防止文件名重復。
文件存放的路徑可以自己定。
記得啟動窗口中要放兩個足夠大的畫板,畫板2的寬度和高度要和截圖的高、寬度相同,兩個畫板都要 自動重畫=真 ,啟動窗口要 可視=假 畫面才流暢。
還有要記得添加支持庫:圖像格式轉換支持庫。