Code tự động chụp ảnh màn hình máy tính

by **Admin** Mon Dec 17, 2012 1:57 am

Code này tự động chụp ảnh màn hình máy tính của bạn
- Có thể chọn trước tên file và thư mục lưu trữ
- Báo phím tắt rõ ràng

Code tự động chụp ảnh màn hình máy tính 2793768491

Code tự động chụp ảnh màn hình máy tính 2793768491

Code:: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.0.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include #Include Global $Var, $Dir, $Name $var = 0 $Name=InputBox("File Name","Tên Ảnh Của Bạn") $Dir=FileSelectFolder("Chọn Folder Để Save","",1+2+4) While $dir = "My Computer" or $dir = "Recycle Bin" MsgBox(0,"error","Không Thể Chọn") Sleep(100) $Dir=FileSelectFolder("Chon Folder","",1+2+4) WEnd TrayTip("Hướng Dẫn","F5 Để Chọn Lại Tên File"&@CRLF&"F6 Để Chọn Lại Folder"&@CRLF&"F7 Để Chụp Hình" &@CRLF & "F8 Để Exit"&@CRLF&"Bạn Đang Chọn Floder "&$Dir, 5, 1) while 1 and $dir <> "My Computer" and $dir <>"" and $dir <> "Recycle Bin" Sleep(100) Select Case _IsPressed(76) $var = $Var +1 _ScreenCapture_Capture($Dir & "" & $Name&" "&$Var& ".jpg") Case _IsPressed(77) ProcessClose(@ScriptName) Case _IsPressed(75) $Dir=FileSelectFolder("Chọn Folder Để Save","",1+2+4) While $dir = "My Computer" or $dir = "Recycle Bin" MsgBox(0,"error","Không Thể Chọn") Sleep(100) $Dir=FileSelectFolder("Chon Folder","",1+2+4) TrayTip("Hướng Dẫn", "F5 Để Chọn Lại Tên File"&@CRLF&"F6 Để Chọn Lại Folder"&@CRLF&"F7 Để Chụp Hình" &@CRLF & "F8 Để Exit"&@CRLF&"Bạn Đang Chọn Floder "&$Dir, 5, 1) WEnd Case _IsPressed(74) $Name=InputBox("File Name","Tên Ảnh Của Bạn") TrayTip("Hướng Dẫn", "F5 Để Chọn Lại Tên File"&@CRLF&"F6 Để Chọn Lại Folder"&@CRLF&"F7 Để Chụp Hình" &@CRLF & "F8 Để Exit"&@CRLF&"Bạn Đang Chọn Floder "&$Dir, 5, 1) EndSelect WEnd