trên rum có ai học autoit không chỉ dạy em với

huynhlamid

Hero
Verified
Joined
Jun 22, 2013
Messages
1,685
Reactions
1,216
MR
0.567
Follow me on Facebook
tình hình là em mới hoc autoit tính viết một code auto em muốn auto thực hiện ẩn không chiếm chuột.bữa có làm cái auto trên firefox nhưng chiếm chuột hơi bất tiện.ae nào biết cmt bên dưới nha. thank !
 

VNCo0L

Senior
Joined
Jan 19, 2012
Messages
457
Reactions
122
MR
0.000
Để tạo autoclick bằng Autoit không chiếm chuột thì cơ bản nhất là dùng hàm ControlClick (Bạn có thể tham khảo trong Help -> F1)
Để xác định điểm cần click trong hàm ControlClick thì dùng Autoit Window Info -> tab Control -> Dòng ControlClick Coords nhé!
Lưu ý: Ít có tác dụng trên Flash (Nếu ko muốn nói là vô dụng :P)
 
Joined
Aug 27, 2011
Messages
8,988
Reactions
4,342
MR
0.014
Follow me on Facebook Chat with me via Skype X.com
Chào bạn huynhlamid
Topic này bạn muốn giúp đỡ về Code IT nên mình sẽ move qua Box IT cho phù hợp nhé.
Lần sau nhớ post đúng Box nhé.
 

social_men

Junior
Joined
Feb 26, 2012
Messages
181
Reactions
106
MR
0.021
nếu cậu muốn auto cho firefox thì tốt nhất là dùng imacro, hoặc là dùng thư viện tương tác với firefox của autoit-hoàn toàn không chiếm chuột, nhưng mình cũng không dùng cách này mấy vì phức tạp và ko tiện lợi, cái này cậu lên forum của imacro search là ra nhưng theo mình hay nhất vẫn là imacro
 
Để tạo autoclick bằng Autoit không chiếm chuột thì cơ bản nhất là dùng hàm ControlClick (Bạn có thể tham khảo trong Help -> F1)
Để xác định điểm cần click trong hàm ControlClick thì dùng Autoit Window Info -> tab Control -> Dòng ControlClick Coords nhé!
Lưu ý: Ít có tác dụng trên Flash (Nếu ko muốn nói là vô dụng :p)
em muốn ẩn trên firefox hay IE thì có hàm nào không anh.mà y/h anh là gì em pm học hỏi dc không
 
Nếu muốn ẩn thì tất nhiên là có :) tùy thuộc vào bạn gọi thư viện FF.au3 hay là IE.au3 thôi!
Vì mỗi cái đều có hàm ẩn riêng
Vi dụ IE là: _IECreate([$s_Url = "about:blank" [, $f_tryAttach = 0 [, $f_visible = 1 [, $f_wait = 1 [, $f_takeFocus = 1]]]]])
Cái $f_visible = 1 thì hiện 0 thì ẩn :D

Mình it onl YH lắm + +! Với lại mình biết sơ sơ à! Nên không biết chỉ bạn dc bao nhiêu


Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#include <Inet.au3>
#include <Excel.au3>
#include <String.au3>
#include <Crypt.au3>
 
Local Const $key = "vnmoney"
Local $mh, $co, $mahoa, $check, $ip, $a
$username = InputBox("PTV","Vui lòng điền tên đăng nhập của bạn vào đây"&@CRLF&"Vui lòng điền thật chính xác!","")
IF $username = "" Then
MsgBox(0,"PTV - ViroolVN","Tên đăng nhập không đúng")
Exit
EndIf
Func load()
Local $hDownload = InetGet("http://viroolvn.us.to/data/data.ptv", "data.ptv", 1, 1)
Do
Sleep(250)
Until InetGetInfo($hDownload, 2) ; Check if the download is complete.
InetClose($hDownload) ; Close the handle to release resources.
EndFunc
load()
_IEErrorHandlerRegister()
Local $oIE = _IECreateEmbedded()

#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("PTV", 335, 256, 690, 485, $WS_POPUP)
GUISetFont(10, 800, 0, "MS Sans Serif")
GUISetBkColor(0x800000)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlCreateObj($oIE, 0, 25, 345, 245)
$timer = GUICtrlCreateLabel("Đang dò tìm clip", 10, 3, 300, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$file = FileOpen("data.ptv",0)
_IENavigate($oIE,"http://www.surfactif.fr/promote.php?id=vnmoney",0)
For $time = 0 to 5 Step + 1
GUICtrlSetData($timer,"Còn "&$time&" giây nữa để chuyển qua xem clip.")
sleep(1000)
Next
Func mahoa()
FileClose(@ScriptDir & "\data.ptv")
FileDelete(@ScriptDir & "\data.ptv")
$mh = $a&"|"&$ip&"|"&$username
$mahoa = _Crypt_EncryptData($mh, $key, $CALG_RC4)
InputBox("PTV - ViroolVN","Vui lòng copy đoạn mã này và gửi lên ViroolVN để xác thực.",$mahoa)
Exit
EndFunc
Local $ip = @IPAddress1
Local $t = 1
Local $a = 0
While 1
$data = FileReadLine($file,$t)
If $data <> "" Then
If StringRight($data,2) > @HOUR Then
_IENavigate($oIE,"http://api.virool.com/widgets/13319/"&StringLeft($data,4)&"?width=300&height=200width=300",1)
sleep(5000)
$hand = ControlGetHandle("PTV","","[CLASS:MacromediaFlashPlayerActiveX; INSTANCE:1]")
While 1
PixelSearch(0 ,0 ,157, 67,0x56000000,$hand)
If Not @error Then
ControlClick("PTV","",$hand,"left",1,148, 75)
$a+=1
For $time = 0 to 30 Step + 1
GUICtrlSetData($timer,"Còn "&$time&" giây nữa sẽ chuyển clip")
sleep(1000)
Next
GUICtrlSetData($timer,"Đã view xong... Đang chuyển qua clip mới")
ExitLoop 1
EndIf
WEnd
EndIf
$t+=1
Else
mahoa()
EndIf
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
 

NgoCaTin

Banned
Joined
May 1, 2013
Messages
930
Reactions
447
MR
0.000
Nếu muốn ẩn thì tất nhiên là có :) tùy thuộc vào bạn gọi thư viện FF.au3 hay là IE.au3 thôi!
Vì mỗi cái đều có hàm ẩn riêng
Vi dụ IE là: _IECreate([$s_Url = "about:blank" [, $f_tryAttach = 0 [, $f_visible = 1 [, $f_wait = 1 [, $f_takeFocus = 1]]]]])
Cái $f_visible = 1 thì hiện 0 thì ẩn :D

Mình it onl YH lắm + +! Với lại mình biết sơ sơ à! Nên không biết chỉ bạn dc bao nhiêu


Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#include <Inet.au3>
#include <Excel.au3>
#include <String.au3>
#include <Crypt.au3>
 
Local Const $key = "vnmoney"
Local $mh, $co, $mahoa, $check, $ip, $a
$username = InputBox("PTV","Vui lòng điền tên đăng nhập của bạn vào đây"&@CRLF&"Vui lòng điền thật chính xác!","")
IF $username = "" Then
MsgBox(0,"PTV - ViroolVN","Tên đăng nhập không đúng")
Exit
EndIf
Func load()
Local $hDownload = InetGet("http://viroolvn.us.to/data/data.ptv", "data.ptv", 1, 1)
Do
Sleep(250)
Until InetGetInfo($hDownload, 2) ; Check if the download is complete.
InetClose($hDownload) ; Close the handle to release resources.
EndFunc
load()
_IEErrorHandlerRegister()
Local $oIE = _IECreateEmbedded()
 
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("PTV", 335, 256, 690, 485, $WS_POPUP)
GUISetFont(10, 800, 0, "MS Sans Serif")
GUISetBkColor(0x800000)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUICtrlCreateObj($oIE, 0, 25, 345, 245)
$timer = GUICtrlCreateLabel("Đang dò tìm clip", 10, 3, 300, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$file = FileOpen("data.ptv",0)
_IENavigate($oIE,"http://www.surfactif.fr/promote.php?id=vnmoney",0)
For $time = 0 to 5 Step + 1
GUICtrlSetData($timer,"Còn "&$time&" giây nữa để chuyển qua xem clip.")
sleep(1000)
Next
Func mahoa()
FileClose(@ScriptDir & "\data.ptv")
FileDelete(@ScriptDir & "\data.ptv")
$mh = $a&"|"&$ip&"|"&$username
$mahoa = _Crypt_EncryptData($mh, $key, $CALG_RC4)
InputBox("PTV - ViroolVN","Vui lòng copy đoạn mã này và gửi lên ViroolVN để xác thực.",$mahoa)
Exit
EndFunc
Local $ip = @IPAddress1
Local $t = 1
Local $a = 0
While 1
$data = FileReadLine($file,$t)
If $data <> "" Then
If StringRight($data,2) > @HOUR Then
_IENavigate($oIE,"http://api.virool.com/widgets/13319/"&StringLeft($data,4)&"?width=300&height=200width=300",1)
sleep(5000)
$hand = ControlGetHandle("PTV","","[CLASS:MacromediaFlashPlayerActiveX; INSTANCE:1]")
While 1
PixelSearch(0 ,0 ,157, 67,0x56000000,$hand)
If Not @error Then
ControlClick("PTV","",$hand,"left",1,148, 75)
$a+=1
For $time = 0 to 30 Step + 1
GUICtrlSetData($timer,"Còn "&$time&" giây nữa sẽ chuyển clip")
sleep(1000)
Next
GUICtrlSetData($timer,"Đã view xong... Đang chuyển qua clip mới")
ExitLoop 1
EndIf
WEnd
EndIf
$t+=1
Else
mahoa()
EndIf
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Ko biết gì về mấy thể loại này , nhưng rất thích bạn tinh thần chia sẽ , nhiệt tình :P
 

ThanhPhong90

Senior
Joined
Jun 27, 2013
Messages
666
Reactions
275
MR
0.000
Follow me on Facebook Chat with me via Skype
Biết thì chia sẽ nhau cùng biết thôi mà! Giấu diếm cũng đâu có làm mình giỏi hơn dc :p
thấy bạn nhiệt tình quá nên chắc mình cũng chuyển qua học cách viết auto quá :D:D, không biết bạn có thể cho mình yahoo để có gì hỏi bạn cho dễ được không. yahoo mình là thanhphong0509
 
Thật ra Autoit rất dễ học (ko muốn nói là đơn giản hơn cả c++ và C#) vì tất cả các hàm, hướng dẫn đều đã có trong file Help (F1) của autoit rồi (Trong đó bao gồm cả code mẫu để bạn tham khảo lun. Ngoài ra, trên mạng cũng share rất nhiều code viết trên nền Autoit, vì thế việc đi kiếm code mình đang cần để ngâm cứu là không khó!

Khổ 1 chổ là Autoit thì dễ bị decompile thôi + +!
Để thành thục Autoit các bạn nên tham khảo thật nhiều trong File Help của Autoit là sẽ hiểu gần như toàn bộ cấu trúc lập trình cơ bản của Autoit rồi! Còn về mấy cái nâng cao như GUI, HTTPrequest, ... thì phải cần tìm hiểu thêm trên mạng.
 
Thật ra Autoit rất dễ học (ko muốn nói là đơn giản hơn cả c++ và C#) vì tất cả các hàm, hướng dẫn đều đã có trong file Help (F1) của autoit rồi (Trong đó bao gồm cả code mẫu để bạn tham khảo lun. Ngoài ra, trên mạng cũng share rất nhiều code viết trên nền Autoit, vì thế việc đi kiếm code mình đang cần để ngâm cứu là không khó!

Khổ 1 chổ là Autoit thì dễ bị decompile thôi + +!
Để thành thục Autoit các bạn nên tham khảo thật nhiều trong File Help của Autoit là sẽ hiểu gần như toàn bộ cấu trúc lập trình cơ bản của Autoit rồi! Còn về mấy cái nâng cao như GUI, HTTPrequest, ... thì phải cần tìm hiểu thêm trên mạng.
Chính xác, F1 + Google là ra hết :D
 

Announcements

Forum statistics

Threads
423,759
Messages
7,132,915
Members
176,214
Latest member
benguyzn

Most viewed of week

Most discussed of week

Most viewed of week

Most discussed of week

Back
Top Bottom