学tc一个月了 发个自动截图的源码吧

tutoulaoli

没事写了个自动截图的小软件，主要功能：
1 自动设置保存路径，自动起文件名。
2 可以选择截图的图片格式
3 可以自定义热键并自动保存配置
4 按照设定的时间自动截图并保存
5 可以选择是否开启声音。
本人只是个初学的新手，发这个源码主要希望能帮助到跟我一样的新人，主要看点是如何保存和读取配置文件以及如何自定义保存热键。同时感谢给予我帮助的 老油条 等网友们，向你们的热心致敬！
#include"详细配置.t"
#include"说明.t"
空间 截图

dm=com("dm.dmsoft")
zd
a,du,线程1,线程2,线程3

功能 开始_点击()
    dm=com("dm.dmsoft")
   
    du=复选框.获得状态("复选框0")
    辅助.等待(10)
    序号=列表框.得到选项("列表框0")
    如果(序号==0)
        线程1=线程.开启("截图.方式二","")
    否则
        线程2=线程.开启("截图.方式一","")
    如果结束
功能结束

功能 方式一()  
    文件句柄=文件.打开("d:\\截图\\bmp截图\\1.txt")
    辅助.等待(10)
    a=文件.读出(文件句柄,10)
    辅助.等待(10)
    文件.关闭(文件句柄)
   
    dm_ret = dm.setpath("d:\\截图\\bmp截图")
    dm_ret = dm.Capture(0,0,2000,2000,a&".bmp")
    辅助.等待(20)
    如果(du==真)
        辅助.蜂鸣(1000,200)
    如果结束
    a=类型.转整型(a)+1
    文件句柄=文件.打开("d:\\截图\\bmp截图\\1.txt")
    辅助.等待(10)
    文件.写入(文件句柄,a)
    辅助.等待(10)
    文件.关闭(文件句柄)
    辅助.等待(10)
功能结束

功能 方式二()
    文件句柄=文件.打开("d:\\截图\\JPG截图\\1.txt")
    辅助.等待(10)
    a=文件.读出(文件句柄,10)
    辅助.等待(10)
    文件.关闭(文件句柄)
   
    dm_ret = dm.setpath("d:\\截图\\JPG截图")
    dm_ret = dm.Capturejpg(0,0,2000,2000,a&".jpg",100)
    辅助.等待(20)
    如果(du==真)
        辅助.蜂鸣(1000,200)
    如果结束
    a=类型.转整型(a)+1
    文件句柄=文件.打开("d:\\截图\\JPG截图\\1.txt")
    辅助.等待(10)
    文件.写入(文件句柄,a)
    辅助.等待(10)
    文件.关闭(文件句柄)
    辅助.等待(10)
功能结束

功能 退出_点击()
    线程.关闭(线程1)
    线程.关闭(线程2)
    线程.关闭(线程3)
    辅助.退出()
功能结束

功能 初始化()
    复选框.选中("复选框0",真)
    列表框.设置选项("列表框0",0)
   
    如果(文件.是否存在("d:\\截图")==假)
        文件.创建文件夹("d:\\截图")
        辅助.等待(10)
    如果结束
   
    如果(文件.是否存在("d:\\截图\\bmp截图")==假)
        文件.创建文件夹("d:\\截图\\bmp截图")
        辅助.等待(10)
    如果结束
   
    如果(文件.是否存在("d:\\截图\\JPG截图")==假)
        文件.创建文件夹("d:\\截图\\JPG截图")
        辅助.等待(10)
    如果结束
   
    如果(文件.是否存在("d:\\截图\\bmp截图\\1.txt")==假)
        文件句柄=文件.创建("d:\\截图\\bmp截图\\1.txt","读写|隐藏")
        辅助.等待(10)
        文件.关闭(文件句柄)
    如果结束
   
    如果(文件.是否存在("d:\\截图\\JPG截图\\1.txt")==假)
        文件句柄=文件.创建("d:\\截图\\JPG截图\\1.txt","读写|隐藏")
        辅助.等待(10)
        文件.关闭(文件句柄)
    如果结束
    如果(文件.是否存在("d:\\截图\\jietu.ini")==真)
        
        是否成功=热键.设置("热键0",辅助.读配置("热键设置","热键0","d:\\截图\\jietu.ini"),辅助.读配置("热键设置","热键0功能键","d:\\截图\\jietu.ini"))
        是否成功1=热键.设置("热键1",辅助.读配置("热键设置","热键1","d:\\截图\\jietu.ini"),辅助.读配置("热键设置","热键1功能键","d:\\截图\\jietu.ini"))
   
    如果结束
功能结束


功能 热键1_热键()
    截图.退出_点击()
功能结束


功能 热键0_热键()
    截图.开始_点击()
功能结束


功能 按钮0_点击()
    返回键码,返回功能键
    是否成功1=热键.获得("热键0",返回键码,返回功能键)
    是否成功2=热键.设置("热键0",返回键码,返回功能键)
    辅助.写配置("热键设置","热键0",返回键码,"d:\\截图\\jietu.ini")
    辅助.写配置("热键设置","热键0功能键",返回键码,"d:\\截图\\jietu.ini")
   
    是否成功1=热键.获得("热键1",返回键码,返回功能键)
    是否成功2=热键.设置("热键1",返回键码,返回功能键)
    辅助.写配置("热键设置","热键1",返回键码,"d:\\截图\\jietu.ini")
     辅助.写配置("热键设置","热键1功能键",返回键码,"d:\\截图\\jietu.ini")
功能结束

功能 按钮1_点击()
    子界面句柄=控件.打开窗口("说明")
功能结束



功能 按钮2_点击()
    值=编辑框.获得文本("编辑框0")
    如果(类型.转整型(值)>0)
        线程3=线程.开启("截图.自动截图","")
    否则
        辅助.消息框("请设置间隔时间!")
    如果结束
功能结束
功能 自动截图()
    dm=com("dm.dmsoft")
   
    间隔=编辑框.获得文本("编辑框0")
    间隔=间隔*1000
   
    循环(真)
        辅助.等待(类型.转整型(间隔))
        线程2=线程.开启("截图.方式二","")
    循环结束  
   
   
功能结束


功能 按钮3_点击()
    线程.关闭(线程2)
    线程.关闭(线程3)
功能结束

空间结束   

幼园留级老油条

我不要

187144831

恩 确实是一个月

Sky_Pro

路过，学习了，顶你！！

Sky_Pro

撸主不错哦，有码的果然比无码的好！！

冷月无痕

顶!支持分享!