Question

恳求易语言指定坐标截图程序源码

给出指定坐标，如（627，211）；（627，211），按下快捷键，如F1，就把指定坐标截取为JPG并保存在指定文件夹
我的QQ1422872599

Answer 1

.版本 2
.支持库 eImgConverter

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 图片, 字节集
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型

画板1.底图 ＝ 快照 (, , )
画板1.复制 (0, 0, 526, 395, 画板2, 0, 0, ) ' 宽度自己定，高度也自己定。
图片 ＝ 画板2.取图片 (, )
.判断开始 (读配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, ) ＝ “”)
文件号 ＝ 1
.判断 (读配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, ) ≠ “”)
文件号 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, )) ＋ 1
.默认

.判断结束
文件名 ＝ “jietu” ＋ 到文本 (文件号) ＋ “.jpg”
写到文件 (取运行目录 () ＋ “\” ＋ 文件名, 图片)
转换到JPG (取运行目录 () ＋ “\” ＋ 文件名, 取运行目录 () ＋ “\” ＋ 文件名, 假, 100, 真, 0)
写配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, 到文本 (文件号))
销毁 ()

前面的写配置项是为了记录截图次数，防止文件名重复。
文件存放的路径可以自己定。
记得启动窗口中要放两个足够大的画板，画板2的宽度和高度要和截图的高、宽度相同，两个画板都要 自动重画=真 ，启动窗口要 可视=假 画面才流畅。
还有要记得添加支持库：图像格式转换支持库。

追问

不怕文件名重复，我希望每次都把之前的覆盖掉
能把源码发给我吗？1422872599@qq.com

追答

等等，我只能发给你易语言的代码。
你不是要用易语言编程吗？

Answer 2

如果你会调用dll的话

原型：
int WINAPI icePub_saveSubScreenJpg(char * jpgFile,int startX,int startY,int endX,int endY))
输入：jpgFile 屏幕图像文件名
startX 左上角x坐标
startY 左上角y坐标
endX 右下角x坐标
endY 右下角y坐标
输出：

VB sample 代码：
Private Declare Function icePub_saveSubScreenJpg Lib "icePubDll.dll" (ByVal jpgFile As String, ByVal startX As Integer,ByVal startY As Integer,ByVal endX As Integer,ByVal endY As Integer) As Integer

Dim str1 As String
Dim a2 As Integer

str1 = App.Path + "\1.jpg"
a2 = icePub_saveScreenJpg(str1,627,211,700,300)