Lỗi AutoIT , các bác giúp e vs nó khong chay code

[lutuhu]

Lỗi AutoIT , các bác giúp e vs nó khong chay code
1. chả là e dang thử auto click trên web , nhưng không hiểu sao nó ko hoạt động , nếu mà tìm ảnh trên màn hình máy tính thi vẫn chay ok

2. còn 1 cái nữa là , em có 2 câu lệnh , Câu a chay ok . e tắt, mở câu lệnh khác là B,chay B xong , e chậy lại con A thi nó ko hoật đọng , vây
có phải do e chỉnh thiếu gi ko a ( cây lệnh ở dưới lun)



Local $x=0,$y=0

$search=_imageSearch(@ScriptDir&'\vang.bmp',1,$x,$y,0)
If $search=1 Then MouseMove($x,$y)
MouseClick ("left")

$search1=_imageSearch(@ScriptDir&'\xanhbien.bmp',1,$x,$y,0)
If $search1=1 Then MouseMove($x,$y)
MouseClick ("left")

$search2=_imageSearch(@ScriptDir&'\xanhla.bmp',1,$x,$y,0)
If $search2=1 Then MouseMove($x,$y)
MouseClick ("left")

$search3=_imageSearch(@ScriptDir&'\xanh.bmp',1,$x,$y,0)
If $search3=1 Then MouseMove($x,$y)
MouseClick ("left")


Mong các bác giúp đỡ !

 

[lutuhu]

:'(

 

[emyeusss7]

đổi thành If $search > 0
tạo 2 function bỏ 2 cái A và B vào
tạo 1 hàm while true, bỏ 2 cái function vào trong đó cho nó lập, vậy là đc

 

[lutuhu]

đổi thành If $search > 0
tạo 2 function bỏ 2 cái A và B vào
tạo 1 hàm while true, bỏ 2 cái function vào trong đó cho nó lập, vậy là đc

function la gi vay bac , e ms hoc dc 3 hom @@

 

[emyeusss7]

function la gi vay bac , e ms hoc dc 3 hom @@

While 1
_Function_A()
_Function_B()
Sleep(10)
WEnd
Func _Function_A()
if......
EndFunc
Func _Function_B()
if......
EndFunc

 

[lutuhu]

While 1
_Function_A()
_Function_B()
Sleep(10)
WEnd
Func _Function_A()
if......
EndFunc
Func _Function_B()
if......
EndFunc

em cảm ơn bác

 

[tuan6956]

function la gi vay bac , e ms hoc dc 3 hom @@

function là hàm @@

 

[lutuhu]

đổi thành If $search > 0
tạo 2 function bỏ 2 cái A và B vào
tạo 1 hàm while true, bỏ 2 cái function vào trong đó cho nó lập, vậy là đc

Local $x=0 , $y=0
$a=_ImageSearch(@ScriptDir&'\test.bmp',1,$x,$y,0)
$a0=_ImageSearch(@ScriptDir&'\test1.bmp',1,$x,$y,0)
$a1=_ImageSearch(@ScriptDir&'\test2.bmp',1,$x,$y,0)
While 1
_Function_A($a0)
Sleep(10000)
_Function_B($a1)
Sleep(10000)
_FUnction_C($a)
Sleep(10)
WEnd
Func _Function_A($a0)
if $a0 = 1 then MouseMove($x,$y)
Sleep(5000)
EndFunc
Func _Function_B($a1)
if $a1 = 1 Then MouseMove($x,$y)
EndFunc
Func _Function_C($a)
if $a = 1 Then MouseMove($x,$y)
EndFunc
bác giúp e với ạ
tại sao thang search ảnh của e nó chỉ chạy lệnh cuối cùng vậy a

 

[rongbay]

inbox full code mình xem thử cho

 

[lutuhu]

inbox full code mình xem thử cho

Local $x=0 , $y=0
$a=_ImageSearch(@ScriptDir&'\test.bmp',1,$x,$y,0)
$a0=_ImageSearch(@ScriptDir&'\test1.bmp',1,$x,$y,0)
$a1=_ImageSearch(@ScriptDir&'\test2.bmp',1,$x,$y,0)
While 1
_Function_A($a0)
Sleep(10000)
_Function_B($a1)
Sleep(10000)
_FUnction_C($a)
Sleep(10)
WEnd
Func _Function_A($a0)
if $a0 = 1 then MouseMove($x,$y)
Sleep(5000)
EndFunc
Func _Function_B($a1)
if $a1 = 1 Then MouseMove($x,$y)
EndFunc
Func _Function_C($a)
if $a = 1 Then MouseMove($x,$y)
EndFunc
code day bac oi @@

 

[rongbay]

$a=_ImageSearch(@ScriptDir&'\test.bmp',1,$x,$y,0)
$a0=_ImageSearch(@ScriptDir&'\test1.bmp',1,$x,$y,0)
$a1=_ImageSearch(@ScriptDir&'\test2.bmp',1,$x,$y,0)
chỗ ở tren bạn thử khai báo $x0,$y0 cho hình $a0
và $x1,$y1 cho hình $a1 thử xem sao
và thay luôn trong 2 func cuối

 

[emyeusss7]

Local $x=0 , $y=0
$a=_ImageSearch(@ScriptDir&'\test.bmp',1,$x,$y,0)
$a0=_ImageSearch(@ScriptDir&'\test1.bmp',1,$x,$y,0)
$a1=_ImageSearch(@ScriptDir&'\test2.bmp',1,$x,$y,0)
While 1
_Function_A($a0)
Sleep(10000)
_Function_B($a1)
Sleep(10000)
_FUnction_C($a)
Sleep(10)
WEnd
Func _Function_A($a0)
if $a0 = 1 then MouseMove($x,$y)
Sleep(5000)
EndFunc
Func _Function_B($a1)
if $a1 = 1 Then MouseMove($x,$y)
EndFunc
Func _Function_C($a)
if $a = 1 Then MouseMove($x,$y)
EndFunc
bác giúp e với ạ
tại sao thang search ảnh của e nó chỉ chạy lệnh cuối cùng vậy a

While 1
$x=0
$y=0
$a=_ImageSearch(@ScriptDir&'\test.bmp',1,$x,$y,0)
If($x <> 0 Or $y <> 0)Then
MouseMove($x,$y)
$x=0
$y=0
EndIf
$a0=_ImageSearch(@ScriptDir&'\test1.bmp',1,$x,$y,0)
If($x <> 0 Or $y <> 0)Then
MouseMove($x,$y)
$x=0
$y=0
EndIf
$a1=_ImageSearch(@ScriptDir&'\test2.bmp',1,$x,$y,0)
If($x <> 0 Or $y <> 0)Then
MouseMove($x,$y)
$x=0
$y=0
EndIf
Sleep(1000)
WEnd


Trong lập trình, thì có phân biệt chữ Hoa và chữ Thường
khi code thì nhớ chú ý thật kỹ từng ký tự
khi khai báo biến thì nên viết full chữ thường khi code chưa quen
vì chỉ cần sai 1 ký tự Hoa hay Thường thì cũng dẫn đến việc bị lỗi code mà đi tìm thì loài coan mắt ko có ra @@

 

[lutuhu]

hehehe em cảm ơn bác

 

[Steve2018]

While 1
$x=0
$y=0
$a=_ImageSearch(@ScriptDir&'\test.bmp',1,$x,$y,0)
If($x <> 0 Or $y <> 0)Then
MouseMove($x,$y)
$x=0
$y=0
EndIf
$a0=_ImageSearch(@ScriptDir&'\test1.bmp',1,$x,$y,0)
If($x <> 0 Or $y <> 0)Then
MouseMove($x,$y)
$x=0
$y=0
EndIf
$a1=_ImageSearch(@ScriptDir&'\test2.bmp',1,$x,$y,0)
If($x <> 0 Or $y <> 0)Then
MouseMove($x,$y)
$x=0
$y=0
EndIf
Sleep(1000)
WEnd


Trong lập trình, thì có phân biệt chữ Hoa và chữ Thường
khi code thì nhớ chú ý thật kỹ từng ký tự
khi khai báo biến thì nên viết full chữ thường khi code chưa quen
vì chỉ cần sai 1 ký tự Hoa hay Thường thì cũng dẫn đến việc bị lỗi code mà đi tìm thì loài coan mắt ko có ra @@

Bác có ghể chỉ e autoit click trên ứng dung k?

 

[soibac]

Bác có ghể chỉ e autoit click trên ứng dung k?

Click thì dùng hàm thôi, mở autoit help ra đầy đủ hàm hết.

 

[Steve2018]

Click thì dùng hàm thôi, mở autoit help ra đầy đủ hàm hết.

E dùng mouseclick() thì nó chạy trên web và click chuột dc. Nhưng trên ứng dụng nó chỉ move chứ không click chuột và send() kí tư dc bác. Bác có cách nào k? E dùng cả controlclick cũng k dc. Thanks bác!

 

[emyeusss7]

E dùng mouseclick() thì nó chạy trên web và click chuột dc. Nhưng trên ứng dụng nó chỉ move chứ không click chuột và send() kí tư dc bác. Bác có cách nào k? E dùng cả controlclick cũng k dc. Thanks bác!

do thằng ứng dụng nó chặn click thôi
sử dụng hàm _WinAPI_PostMessage or _WinAPI_Mouse_Event or _WinAPI_???? khác, có rất nhiều hàm API hổ trợ việc này
bạn search google từ khóa "winapi mouse click autoit" rồi test code nhé

 

[Steve2018]

do thằng ứng dụng nó chặn click thôi
sử dụng hàm _WinAPI_PostMessage or _WinAPI_Mouse_Event or _WinAPI_???? khác, có rất nhiều hàm API hổ trợ việc này
bạn search google từ khóa "winapi mouse click autoit" rồi test code nhé

Cám ơn bác nhiều... để e thử xem

 

[Steve2018]

em muốn click double chuột trái tại tọa độ (200,50) mà sao nó không chạy,,,, các cao nhân chỉ giáo giúp e với ((((


#include <WinAPI.au3>

#include <Windowsconstants.au3> ; Khai báo các hằng $WM_ ... bằng cách include thư viện



Const $MK_LBUTTON = 0x1

Const $MK_MBUTTON = 0x10

Const $MK_RBUTTON = 0x2 ; Khai báo các giá trị hằng



Global $Struct = DllStructCreate($tagPoint)

$hwnd = _WinAPI_WindowFromPoint($Struct) ; Lấy handle destop



pclick(200,50,'Left Double Click') ; Hàm click double chuột trái tại tọa độ (200,50)



Func pclick($x=0,$y=0,$button='Left Click')

$lParam = ($y * 65536) + ($x)

Switch $button

Case $button='Left Click'

_WinAPI_PostMessage($hwnd, $WM_LBUTTONDOWN, $MK_LBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_LBUTTONUP, 0,$lParam)

Case $button='Left Double Click'

_WinAPI_PostMessage($hwnd, $WM_LBUTTONDOWN, $MK_LBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_LBUTTONUP, 0,$lParam)

_WinAPI_PostMessage($hwnd, $WM_LBUTTONDBLCLK, $MK_LBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_LBUTTONUP, 0,$lParam)

Case $button='Middle Click'

_WinAPI_PostMessage($hwnd, $WM_MBUTTONDOWN, $MK_MBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_MBUTTONUP, 0,$lParam)

Case $button='Middle Double Click'

_WinAPI_PostMessage($hwnd, $WM_MBUTTONDOWN, $MK_MBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_MBUTTONUP, 0,$lParam)

_WinAPI_PostMessage($hwnd, $WM_MBUTTONDBLCLK, $MK_MBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_MBUTTONUP, 0,$lParam)

Case $button='Right Click'

_WinAPI_PostMessage($hwnd, $WM_RBUTTONDOWN, $MK_RBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_RBUTTONUP, 0,$lParam)

Case $button='Right Double Click'

_WinAPI_PostMessage($hwnd, $WM_RBUTTONDOWN, $MK_RBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_RBUTTONUP, 0,$lParam)

_WinAPI_PostMessage($hwnd, $WM_RBUTTONDBLCLK, $MK_RBUTTON,$lParam)

_WinAPI_PostMessage($hwnd, $WM_RBUTTONUP, 0,$lParam)

Case $button='Mouse Move'

_WinAPI_PostMessage($hwnd, $WM_MOUSEMOVE, 0,$lParam)

_WinAPI_PostMessage($hwnd, $WM_MOUSEMOVE, 0,$lParam)

EndSwitch

EndFunc

 

[HVDD]

Giờ mới biết diễn đàn cũng có share thông tin IT