屏幕截图的源代码(用按键机器人开发的)

2星(超过40%的资源)
所需积分/C币:46 2010-02-26 22:46:38 6KB TEXT/PLAIN
69
收藏 收藏
举报

用按键机器人开发的屏幕截图 {配置 '编译时不计算结果 NoShowCalc=1 '编译时不运行程序 CompileNoRun=1 '版本号 Ver=1.03 '1.01版解决了截图后多了一个白边的问题 '1.02版截图后自动最大化 '1.03版加上验证码识别功能 '在新的进程运行 RunInNewProcess=1 配置} {说明 屏幕截图(按F9键截屏,拖动鼠标可选择图象) Alt+F9 启动该软件 可通过“快捷键管理”来设置该功能的快捷键 说明} sDestopHwnd:=CallAPIs('user32.dll','GetDC','int','0'); {屏幕HDC} ScreenBottom:=tof( GetObj('','Screen.Height') ) -1; {屏幕下边位置} ScreenRight:= tof( GetObj('','Screen.Width' ) ) -1; {屏幕右边位置} ScreenWidth:= GetObj('','Screen.Width'); {屏幕宽度} ScreenHeight:= GetObj('','Screen.Height'); {屏幕高度} xDown:=-1;{按下x位置,-1表示未按下} yDown:=-1;{按下y位置} xUp:=0;yUp:=0;{鼠标放开的位置} sImageDes:='';{用于保存屏幕图象} sFile:='';{要保存的文件名} sAppTitle:='屏幕截图(按F9键截屏,拖动鼠标可选择图象 如果按住Ctrl键则是验证码识别)'; SetObj('','Title='+g.sAppTitle);{设置应用程序的标题} sForm:=SetObj('','CreateForm');{新建窗口} SetObj(sForm,'WindowState=Maximized');{窗口最大化} SetObj(sForm,'Text='+sAppTitle);{窗口标题} sPaintBox:=SetObj(sForm,'CreatePaintBox');{新建绘图控件} SetObj(sPaintBox,'Left=0 Top=0 Width='+ScreenWidth+' Height='+ScreenHeight );{屏幕宽度和高度} SetObj(sPaintBox,'OnMouseDown=按下鼠标 OnMouseUp=放开鼠标 OnMouseMove=鼠标移动 ');{鼠标事件} SetObj(sPaintBox,'OnPaint=重画');{重画事件} sImage:=SetObj(sForm,'CreateBitmap'); {新建位图,用于绑定屏幕图象} SetObj(sImage,'Width=' + ScreenWidth + ' Height='+ScreenHeight ); sImageDes:=SetObj(sForm,'CreateBitmap');{新建位图,用于保存屏幕图象} SetObj(sImageDes,'Width=' + ScreenWidth + ' Height='+ScreenHeight ); [放开鼠标; bOk:=g.xDown !=-1 and abs(g.xDown-GetVar(1))>4 ; iShift:=GetVar(4); IfCall( 打开保存对话框 , ( (iShift=4 or iShift=5)=0) and bOk );{已经按下时调用“保存图片”} IfCall( 验证码识别 , (iShift=4 or iShift=5) and bOk); {按下 Ctrl键 或 Ctrl+Shift键} g.xDown:=-1;{-1表示未按下} 重画; ]; [保存图片; sImageTemp:=SetObj(g.sForm,'CreateBitmap');{新建临时位图} sTempWidth:=tos( abs(g.xUp-g.xDown) ); {设置宽度} sTempHeight:=tos( abs(g.yUp-g.yDown) ); {设置高度} SetObj(sImageTemp,'Width='+sTempWidth+' Height='+sTempHeight ); {复制图象(从sImageDes复制到sImageTemp)} sRect:=to

...展开详情
立即下载
限时抽奖 低至0.43元/次
身份认证后 购VIP低至7折
一个资源只可评论一次,评论内容不能少于5个字
脚本之家 看不懂啊,怎么用?
2013-11-14
回复
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
上传资源赚钱or赚积分
最新推荐
屏幕截图的源代码(用按键机器人开发的) 46积分/C币 立即下载
1/0