AutoIT获取图片并显示图片

原创 2013年11月03日 23:40:10
#cs ____________________________________


 Au3 版本: 3.3.6.1
 脚本作者: wozijisunfly 
 Email: 
 QQ/TM: 
 脚本版本: 获取图片
 脚本功能: 获取图片


#ce _______________脚本开始_________________


#include <ScreenCapture.au3>


$video = "Title"
WinWaitActive("[TITLE:" & $video & "]")
Sleep(2000)
$x = WinGetPos("[TITLE:" & $video & "]")
$width = $x[0]+$x[2]
$height = $x[1]+$x[3]
$path = "E:\AutoA\"
$videoname = "mei-"

While 1
WinWaitActive("[TITLE:" & $video & "]")
Sleep(100)
If FileExists($path) Then
_ScreenCapture_Capture($path & $videoname & _getPicName() & ".jpg", $x[0], $x[1], $width, $height)
Else
DirCreate($path)
; 捕捉全屏
;_ScreenCapture_Capture($path & _getPicName() & ".jpg")
;Sleep(1000)
; 捕捉区域
_ScreenCapture_Capture($path & _getPicName() & ".jpg", $x[0], $x[1], $width, $height)
EndIf
WEnd
Func _getPicName()
$year = @YEAR
$month = @MON
$day = @MDAY
$hour = @HOUR
$min = @MIN
$sec = @SEC
$msec = @MSEC
$name = $year & $month & $day & "_" & $hour & $min & $sec & $msec
Return $name

EndFunc



#cs ____________________________________


 Au3 版本: 3.3.6.1
 脚本作者: wozijisunfly 
 Email: 
 QQ/TM: 
 脚本版本: 显示图片
 脚本功能: 显示图片


#ce _______________脚本开始_________________




#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Opt("GUICoordMode", 2)
Opt("GUIResizeMode", 1)
Opt("GUIOnEventMode", 1)


Local $Form,$addr_input,$addr_label,$pic,$second_label1,$second_label2,$second_text
Local $OK_Btn


$Form = GUICreate("PicForYou", 700, 550, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_CAPTION,$WS_POPUP,$WS_SYSMENU))


$addr_label = GUICtrlCreateLabel("目录地址:", 20, 16, 90, 25)
GUICtrlSetFont(-1,15)
$addr_input = GUICtrlCreateInput("",0, -25, 300, 25)
GUICtrlSetFont(-1,15)
$second_label1 = GUICtrlCreateLabel("每",0,-25,20)
GUICtrlSetFont(-1,15)
$second_text = GUICtrlCreateInput("",0,-25,40)
GUICtrlSetLimit(-1,3)
GUICtrlSetFont(-1,15)
$second_label2 = GUICtrlCreateLabel("秒/次",0,-25,60)
GUICtrlSetFont(-1,15)
$OK_Btn = GUICtrlCreateButton(" 确定 ", 5, -26, 70, 25)
GUICtrlSetOnEvent($OK_Btn, "clickOK")


$pic = GUICtrlCreatePic("C:\Control_PC\source.jpg", -605, 12, 700, 495)


GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents", $Form)
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents", $Form)
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents", $Form)
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "SpecialEvents", $Form)


GUISetState(@SW_SHOW)


While 1
Sleep(10)
WEnd


Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE

Case @GUI_CtrlId = $GUI_EVENT_RESTORE

;Case @GUI_CtrlId = $GUI_EVENT_MAXIMIZE

    EndSelect
EndFunc


Func clickOK()
$dir = GUICtrlRead($addr_input)
$time = GUICtrlRead($second_text)
$dir = $dir & "\"
While True
If FileExists($dir) Or StringLen($dir) <> 0 Then
ExitLoop
Else
MsgBox(0,"PicMeg","无此路径,请确认后输入." & @CRLF & @CRLF & $dir)
;$dir = GUICtrlRead($addr_input)
Return
EndIf
WEnd
While True
If Not StringRegExp($time, '[0-9]|.{3}', 0) Then
MsgBox(0,"PicMeg","整点儿数字让我来读一下啊!")
Return
Else
ExitLoop
EndIf
WEnd
; 显示当前目录中所有文件的文件名
$search = FileFindFirstFile($dir & "*.*")  
; 检查搜索是否成功
If $search = -1 Then
MsgBox(0, "错误", "没有文件/目录 匹配搜索")
Exit
Else
While 1
$file = FileFindNextFile($search) 
If @error Then 
MsgBox(0,"PicMeg","已无图片显示。")
GUICtrlSetImage($pic,"C:\Control_PC\source.jpg")
ExitLoop
EndIf
If StringCompare(StringUpper(StringRight($file,4)),".JPG") == 0 Then
GUICtrlSetImage($pic,$dir & $file)
EndIf
Sleep(1000 * $time)
;$att = FileGetAttrib($dir & $file)
;If StringInStr($att, "D") Then
; MsgBox(0,"showme",$file,3)
;EndIf
;MsgBox(0, "文件:", $dir & $file,2)
WEnd
EndIf
; 关闭搜索句柄
FileClose($search)
EndFunc








PS软件教程及技巧 Photoshop 工具(上)

-
  • 1970年01月01日 08:00

python+selenium+autoit实现文件上传

百度搜索:小强测试品牌 转发+点赞=支持 QQ群:229390571 问题 在做web端ui层自动化的时候会碰到文件上传的操作,经常有朋友问到,这里总结一下 解决方案 第一种:type...
  • xqtesting
  • xqtesting
  • 2017-08-22 19:29:31
  • 286

selenium结合sikuli实现百度的图片搜索功能

本文是一个简单的maven项目,实现场景为:访问百度(https://www.baidu.com)--点击搜索框中的“camera”图标--点击“本地上传图片”--输入文件名--点击“打开”按钮。 首...
  • fgwvip123
  • fgwvip123
  • 2016-04-19 11:24:54
  • 557

AutoIT模拟实现一个简单的供销存的程序

#cs ____________________________________  Au3 版本:  脚本作者:     Email:     QQ/TM:  脚本版本:  脚本功能: ...
  • wozijisunfly
  • wozijisunfly
  • 2014-11-24 02:59:28
  • 1332

au3自动识图脚本au3自动识图脚本

; 函数: _FindPic ; 功能: 用于在屏幕范围内<em>查找图片</em> ; 描述: 允许您在...<em>AutoIt</em>自动安装脚本制作入门AU3教程 立即下载 上传者: klsm168 时间: 2011-10...
  • 2018年04月14日 00:00

Selenium-Webdriver(python) (十一) --- 文件上传

文件上传: 1.    下载该工具:  http://www.autoitscript.com/site/autoit/downloads/ 编写AutoHotkey/AutoIt脚本来实现自动化操作...
  • lilinfangf
  • lilinfangf
  • 2014-03-19 11:57:16
  • 1438

AUTOIT IE.au3的介绍以及应用

第一讲,介绍一下基本的东西如何打开一个网页,太简单,加点要求1,打开百度,http://www.baidu.com , 在百度搜索里面输入”与 autoit3 亲密接触”,偶的blog;2,窗口我要”...
  • Christ_sam
  • Christ_sam
  • 2010-08-07 22:19:00
  • 4440

autoit3 ie.au3 介绍

2011-05-15 14:10 2961人阅读 评论(1) 收藏 举报 文档ieinput百度buttondreamweaver 第一讲,介绍一下基本的东西 如何打开一个网页,太简单,...
  • ijustcalledtosay
  • ijustcalledtosay
  • 2014-09-22 18:49:38
  • 821

opencv 图像轮廓

图片解析: 原图: code: #include #include #include #include #include int main(int argc, char* ...
  • a771948524
  • a771948524
  • 2013-08-17 13:01:57
  • 1797

如何在大型MDF文件中找到自己想要的数据

MDF,查找
  • Testingba
  • Testingba
  • 2014-01-09 14:15:29
  • 1665
收藏助手
不良信息举报
您举报文章:AutoIT获取图片并显示图片
举报原因:
原因补充:

(最多只允许输入30个字)