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

huynhlamid

huynhlamid

Hero
Verified
Joined
Jun 22, 2013
Messages
1,685
Reactions
1,216
MR
0.574
0.574
-
-
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

VNCo0L

Senior
Joined
Jan 19, 2012
Messages
457
Reactions
122
MR
0.000
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)
 
Sir.NamTuoc

Sir.NamTuoc

Hero
Joined
Aug 27, 2011
Messages
8,987
Reactions
4,342
MR
0.015
0.015
-
-
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

social_men

Junior
Joined
Feb 26, 2012
Messages
181
Reactions
106
MR
0.021
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
 
VNCo0L said:
Để 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)
Click to expand...
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

NgoCaTin

Banned
Joined
May 1, 2013
Messages
930
Reactions
447
MR
0.000
0.000
-
-
VNCo0L said:
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
Click to expand...

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

ThanhPhong90

Senior
Joined
Jun 27, 2013
Messages
666
Reactions
275
MR
0.000
0.000
-
-
Follow me on Facebook Chat with me via Skype
VNCo0L said:
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
Click to expand...
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.
 
VNCo0L said:
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.
Click to expand...
Chính xác, F1 + Google là ra hết :D
 

Similar threads

P
Mega Sicbo Pragmatic Play-Học cách chơi trên M88
Replies
0
Views
702
PragmaticPlay
P
PokerLab
Tutorial Nhận ngay 11$ từ WPT Global chỉ với 1 nút bấm share bài trên Facebook , nhanh chân thời gian có hạn 03/08
Replies
1
Views
391
Monmoon
Monmoon
HFMVietnam
"Trò chơi đã dạy tôi cách chơi. Và nó không tiếc gậy khi dạy tôi" - Bài Học Từ Jesse Livermore
Replies
1
Views
391
Monmoon
Monmoon
huymmo97
Warning Tut - App - Web Đăng Đa Kênh 999K- Mua 1 Lần Dùng Vĩnh Viễn
Replies
2
Views
713
huymmo97
huymmo97
voyennhi20
New SIÊU ƯU ĐÃI: 100 proxy quốc tế (SOCKS5, HTTP) - Chỉ 2,99$! Có cả proxy miễn phí
Replies
6
Views
2K
voyennhi20
voyennhi20

Announcements


Richest Users

Most MR

animax1991
animax1991
1,186.637 MR
WWproxy
WWproxy
1,000.748 MR
cuipap1984
cuipap1984
275.297 MR
niceday
niceday
141.016 MR
phuongnd
phuongnd
123.398 MR
charlescowen
charlescowen
100.593 MR
Q
qn310396
100.289 MR
offersvnn
offersvnn
100.038 MR
Shin
Shin
55.045 MR
creatlovex
creatlovex
53.402 MR

Today's birthdays

Forum statistics

Threads
425,021
Messages
7,149,943
Members
177,561
Latest member
phutbietli

Most discussed of week

Most viewed of week

Most discussed of week

About us

Cộng đồng chia sẻ kiến thức và các chương trình Kiếm Tiền Online lớn nhất Việt Nam. Tìm hiểu, giao lưu, hỗ trợ và bảo vệ an toàn các giao dịch mua bán.

Quick navigation

Kiếm tiền thụ động với MMO4ME.com
Hệ thống xác thực uy tín Online
Hiệp hội Trung gian và Dịch vụ MMO4ME
Hướng dẫn đóng bảo hiểm
Hướng dẫn đăng ký dịch vụ kinh doanh
Hướng dẫn đăng ký gửi Alert
Nhóm thành viên tại Forum
Quảng Cáo
Liên Hệ
Back
Top Bottom