PixelSearch - Quét (hay kiểm tra) điểm ảnh

PixelSearch

Quét (hay kiểm tra) tất cả các tọa độ trong một vùng, trả về các tọa độ tại điểm có mã màu trùng với mã màu cần kiểm tra .

PixelSearch ( left, top, right, bottom, color [, shade-variation [, step [, hwnd]]] )

Tham số

left: tọa độ X phía trên bên trái của vùng cần quét
top: tọa độ Y phía trên bên trái của vùng cần quét
right: tọa độ X phía dưới bên phải của vùng cần quét
bottom: tọa độ Y phía dưới bên phải của vùng cần quét
-> Vùng cần quét là hình chữ nhật tạo bởi điểm phía trên bên trái và điểm phía dưới bên phải
color: mã màu cần kiểm tra (mã thập phân hoặc thập lục)
shade-variation [optional] Một số từ 0 đến 255 chỉ định mức độ sai số màu của điểm với màu cần kiểm tra. Mặc định là 0 tức là phải y chang cái mã màu cần kiểm tra.
-> VD như màu đỏ , màu đỏ hơi nhạt, màu đỏ nhạt, có màu xét ở mã thập phân hơn kém nhau không nhiều . Nếu ta set tham số shade-variation là 5, tất cả những điểm mà có mã màu so khớp với mã màu cần kiểm tra không quá 5 đơn vị thì đều được chọn. Thực tế thì mã màu chỉ hơn kém nhau 5 đơn vị nhìn mắt thường khó nhận ra lắm.
step [optional]: Thay vì mỗi lần quét chỉ trả về một điểm trùng màu rồi dừng thì với lựa chọn này bạn có thế tăng số điểm trả về thỏa điều kiện trùng màu . Mặc định là 1 ( cái này xem ví dụ là hiểu liền không giải thích thêm nhé !)

hwnd [optional]: Dùng handle của Window. Hi hi, không dám giải thích chỗ này

Giá trị trả về:

Success: Trả về 2 thuộc tính của một tọa độ vào một mảng giả sử tên là Array . Khi đó, Array[0] = tọa độ x, Array[1] = tọa độ y ( sẽ có thêm Array[2], Array[3],... được gán giá trị nếu tham số step [optional] được set 2, 3,.... )
Failure: Gán @error là 1 nếu không tìm thấy điểm có màu trùng với màu cần kiểm tra

Ví dụ của chúng ta sẽ là scrip nho nhỏ , tự động chuột trái vào những điểm có mã màu 0xCC6600 trên màn hình

; Gán phím tắt cho các hàm
HotKeySet("{F9}","ShootOnOff")
HotKeySet("{F10}","ExitApp")

Tooltip("F9 = Shoot, F10 = Exit bot", 0, 0)
Dim $shoot = False


; Thay đổi trạng thái của biến $shoot
Func ShootOnOff()
If $shoot = False Then
$shoot = True
ToolTip("Shooting",0,0)
Else
$shoot = False
Tooltip("F9 = Shoot, F10 = Exit bot", 0, 0)
EndIf
EndFunc

; Thoát chương trình
Func ExitApp()
Exit
EndFunc

While True

If $shoot = True Then
; Khai báo biến mảng $cordinates.
; Với các tham số mà hàm PixelSearch trong ví dụ này nhận thì nó sẽ quét hết cả màn hình và trả về các tọa độ có mã màu 0xCC6600
; Hàm PixelSearch trả về tọa độ (x,y) sau đó truyền vào mảng $cordinates nên $cordinates[0] lưu tọa độ x, $cordinates[1] lưu tọa độ y
Dim $cordinates = PixelSearch( 0, 0, @DesktopWidth, @DesktopHeight, 0xCC6600)

If Not @error Then
MouseClick( "left", $cordinates[0], $cordinates[1], 1, 0)
EndIf
EndIf

Sleep(500)
WEnd

Em là em cám ơn bác quá trời ^_^

Em tìm cái code này cả tuần ròng rã mà không thấy ^_^

Thanks , thanks bác nhiều lắm :D

oooooooooooooooooooooooooooooooooooooooo

Em cũng muốn làm 1 tool tương tự có chức năng nhận diện màn hình
Khi 1 góc màn hình có 1 ảnh tương tự trong 1 folder lưu sẵn thì nó sẽ ấn 1 nút trên bàn phim
Tks!

Các bác cho em hỏi vẫn chương trình như này em muốn thêm seach nếu thấy đồng thời 2 điểm ảnh mới click vào tọa độ mình cần click (hàm and đấy các bác ) thì làm thế nào các bác. EM mới tìm hiểu còn gà. các bác thông cảm và giúp em vs ..:)
Với cả các bác nhân tiện bỏ dùm em phần phải nhấn f9 mới chạy, open cái là chạy lun đc ko ạ. Thank các bác nhiều lắm