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