เซฟคลิปบอร์ดไฟล์ยังไงครับ เซฟภาพหน้าจอลงไฟล์

ช่วยสอนใช้คำสั่งfilesavedialog หน่อยครับต้องการเซฟไฟล์จากclipbroad

เซฟคลิปบอร์ดลงไฟล์ ใช้ filewrite ไปเลยก็ได้ครับ

Code:

filewrite ("savetext.txt",clipget())

ถ้าต้องการเซฟเป็น .jpg ไฟล์รูปภาพได้หรือเปล่าครับ
คือต้องการทำโปรแกรมจับภาพหน้าจอ
ทำฟอมร์มีปุ่มกด2ปุ่ม กดปุ่ดแรก
จะส่งคีย์ Send("{PRINTSCREEN}")
แล้วก็จะSaveรูปออกมาจาก clipbroad
ติดตรงคำสั่งเซฟรูปออกมาจาก คลิปบอร์ด
น่าจะใช้filesavedialogได้แต่ยังใช่คำสั่งนี้ไม่เป็น
ลองแก้ไปมาก็ยังไม่ได้
แต่เห็นในautoitมีคำสั่งเกี่ยวกับclipbroad
เยอะแต่ไม่เห็นมีอันไหนเกี่ยวกับการเซฟไฟล์รูปภาพ
ช่วยแนะนำทีครับ

ดูคำสั่ง _ScreenCapture_Capture กับ _ScreenCapture_SaveImage

สนใจ case นี้มากเลยครับเลยลองเขียนโปรแกรมดู
ท่าน Admin ช่วยแก้ไขให้หน่อยครับ

Code:

#Include <ScreenCapture.au3>

HotKeySet("{PRINTSCREEN}", "_SavePic")
HotKeySet("!{PRINTSCREEN}", "_SavePic2")

While 1
   Sleep(10)
WEnd

Func _SavePic()
   _ScreenCapture_Capture(FileSaveDialog("SavePic", @DesktopDir, "Image (*.JPG)") & ".JPG")
EndFunc

Func _SavePic2()
   _ScreenCapture_Capture(FileSaveDialog("SavePic", @DesktopDir, "Image (*.JPG)") & ".JPG", 0, 0, -1, -1)
EndFunc


ปล.อยากให้เวลากด Alt+PrintScr มันจับเฉพาะหน้าต่างที่กำลังทำงานอยู่ครับ
แล้วก็กด PrintScr จับทั้งหน้าจอน่ะครับ

ขอบคุณครับผมลองดัดแปลงดูแบบสั้นๆ
เฉพาะที่ Active
#Include <ScreenCapture.au3>
$x = @MIN&@MSEC
$Active = WinActive("")
_ScreenCapture_CaptureWnd(@Desktop&"\test"&$x&".jpg", $Active)


ทั้งหน้าจอ
#Include <ScreenCapture.au3>
$x = @MIN&@MSEC
$hBmp = _ScreenCapture_Capture("")
_ScreenCapture_SaveImage(DesktopDir&"\test"&$x&".jpg", $hBmp)

#include <ScreenCapture.au3>

HotKeySet("{PRINTSCREEN}","Save_1")

HotKeySet("!{PRINTSCREEN}","Save_2")

HotKeySet("{ESC}", "STOP")


While 1
Sleep(10)
Wend


Func Save_1()
Local $Active
$Active = WinActive("")
_ScreenCapture_CaptureWnd(@DesktopDir&"\test_Image"&@MIN&@MSEC&".jpg", $Active)
EndFunc

Func Save_2()
Local $Save1
$Save1 = _ScreenCapture_Capture("")
_ScreenCapture_SaveImage(@DesktopDir&"\test_Imaqe"&@MIN&@MSEC&".jpg", $Save1)
EndFunc

Func STOP()
Exit
EndFunc

ok

แก้ตรง Func stop()

Code:

Func stop()
   If MsgBox(262180,"EXIT?","คุณต้องการออกจากโปรแกรมหรือไม่?") = 6  Then Exit
EndFunc

อยากได้เซฟภาพบางโปรแกรมเปิดวินโดวโปรแกรมก็เปิดเองเลย เอาไว้เซฟตอนคนแอบมาเล่นเอม

Fast พิมพ์ว่า:อยากได้เซฟภาพบางโปรแกรมเปิดวินโดวโปรแกรมก็เปิดเองเลย เอาไว้เซฟตอนคนแอบมาเล่นเอม

ประมาณนี้ได้มั้ยครับ

Code:

RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "SavePic", "REG_SZ", @ScriptFullPath)
While 1
   Sleep(5000)
   $Name = @MDAY & @MON & @HOUR & @MIN & @MIN
   Local $Active
   $Active = WinActive("")
   _ScreenCapture_CaptureWnd(@MyDocumentsDir & "\SavePic\" & $Name, $Active)
WEnd

ปล.ยังไม่ได้ Test เลย

เพิ่ม if ตรวจสอบเงื่อนไขเข้าไปด้วยนะครับไม่อย่างนั้นรูปเต็มเครื่องแน่



While 1
sleep(5000)
if ProcessExists("iexplore.exe") Then ;ถ้าเปิดโปรแกรม IE
Save_2()
EndIf
WEnd

Func Save_2()
Local $Save1
$Save1 = _ScreenCapture_Capture("")
_ScreenCapture_SaveImage(@DesktopDir&"\test_Imaqe"&@MIN&@MSEC&".jpg", $Save1)
EndFunc
ถ้าเปิด IE โปรแกรมจะจับภาพทุก5วินาทีจนกว่าจะปิดโปรแกรม IE
หรือจะใช้ WinExists("ข้อความบนหน้าต่าง")
ก็ได้นะครับลองดัดแปลงดู

ok ครับ

โหขนาดไม่เก่งนะเนี้ย Armสอบทุกตัวแปลได้เลยนะเนี้ย

ทำได้ละขอบคุรครับ

loveapple244 พิมพ์ว่า:โหขนาดไม่เก่งนะเนี้ย Armสอบทุกตัวแปลได้เลยนะเนี้ย

พวกคำสั่ง PixelGetColor กับ PixelSearch หรือที่ยากกว่านี้ก็ยังไม่ค่อยจะเป็นเลยครับ
คงต้องเรียนรู้กันต่อไป ^^

เซฟสองโปรแกรม



#include <ScreenCapture.au3>

While 1
sleep(5000)
if ProcessExists("iexplore.exe") Then ;ถ้าเปิดโปรแกรม IE
Save_2()
EndIf
if ProcessExists("msnmsgr.exe") Then
Save_2()
EndIf

WEnd

Func Save_2()
Local $Save1
$Save1 = _ScreenCapture_Capture("")
_ScreenCapture_SaveImage("c:\save\test_Imaqe"&@MIN&@MSEC&".jpg", $Save1)
EndFunc

ถ้าใช้บราวเซอร์ กูเกิลโครม หรือ ไฟร์ฟอกร์ เล่นmsn
โปรแกรมน่าจะจับภาพไม่ได้นะครับ
ผมว่าใช้ WinExists ดีกว่านะครับ

Code:

#include <ScreenCapture.au3>

While 1
sleep(5000)
if WinExists("iexplore.exe") Then
Save_2()
EndIf
if WinExists("msnmsgr.exe") Then
Save_2()
EndIf
WEnd

Func Save_2()
Local $Save1
$Save1 = _ScreenCapture_Capture("")
_ScreenCapture_SaveImage("c:\save\test_Imaqe"&@MIN&@MSEC&".jpg", $Save1)
EndFunc

#include <ScreenCapture.au3>
While 1
sleep(5000)

If Not FileExists("C:\save") Then
DirCreate("C:\save")
EndIf

If WinExists("Google") Then
Save_2()
MsgBox(0,"Test","welcome to google")
EndIf

If ProcessExists("msnmsgr.exe") Then
Save_2()
EndIf

WEnd

Func Save_2()
Local $Save1
$Save1 = _ScreenCapture_Capture("")
_ScreenCapture_SaveImage("c:\save\test_Imaqe"&@MIN&@MSEC&".jpg", $Save1)
EndFunc
ลองเข้า google ดูนะครับ ลองเอาไปแก้ไขดู

While 1
sleep(3000)
If WinExists("pantip") Then
MsgBox(0,"Test","เราไม่อนุญาตให้เข้าเว็บ pantip")
Do
ProcessClose("iexplore.exe")
Until ProcessExists("iexplore.exe") = 0

EndIf

ขอบคุณท่านแอดมินที่ให้คำแนะนำ ถ้าเราจะพัฒนาโปรแกรมจับภาพหน้าจอให้สามารถจับภาพเคลื่อนไหวบนหน้าจอแล้วบันทึกเป็นวีดีโอโดยใช้autoit ขอคำแนะนำหน่อยครับ

นี่ครับ [You must be registered and logged in to see this link.]

ต้องติดตั้ง FFMPEG เพื่อบีบอัดภาพด้วย (อยู่ในลิงก์ด้านบนแล้ว)

ขอบคุณครับ