Tự học AutoIT

(Chương trình này để tự động đăng nhập – giúp thoát khỏi những cặp mắttò mò , bạn có tài khoản nào thì tạo tài khoản đấy, không nhất thiếtphải 6 tài khoản như của tui )Nếu bạn không muốn (hoặc không biết sử dụng Koda thế nào) thì hãycopy code sau vào chương trình soạn thảo :
Nội dung trích xuất từ tài liệu:
Tự học AutoIT Version 1.3NGÔN NGỮ LẬP TRÌNH DÀNH CHO MỌI NGƯỜI !-designed by Lý Thế Minh – nick : autoboy195 – Y!m : unluckystar_195borned : 20-2-1995 ^^!-Time : 10:25PM 5-02-10 (( tut có 34 trang)Tui sẽ cố trình bày 1 cách dễ hiểu nhất !TUTORIAL 2 :VIẾT CHƯƠNG TRÌNH SỬ DỤNG GUI & TRUY XUẤTREGISTRY Viết chương trình sử dụng GUI I.Đầu tiên, bạn hãy dùng Koda để tạo 1 form như sau (đã hướng dẫn sửdụng GUI trong Tut 1)(Chương trình này để tự động đăng nhập – giúp thoát khỏi những cặp mắttò mò , bạn có tài khoản nào thì tạo tài khoản đấy, không nhất thiếtphải 6 tài khoản như của tui )Nếu bạn không muốn (hoặc không biết sử dụng Koda thế nào) thì hãycopy code sau vào chương trình soạn thảo :#NoTrayIcon ; Không hiển thị trong thanh System Tray (thanh đồng hồ); ~ Tạo GUI#include ; thư viện giao diện$Main = GUICreate(Auto Tools - by autoboy195, 282, 136, 252, 168) ;tạo form$Label1 = GUICtrlCreateLabel(Chọn các nơi cần Auto đăng nhập, 8, 8,260, 18)$Gunnybtton = GUICtrlCreateButton(Logon Gunny, 8, 40, 113, 25, 0) ;tạo button$Yahoobutton = GUICtrlCreateButton(Logon Yahoo, 160, 40, 105, 25, 0)$VnZoom = GUICtrlCreateButton(Logon Vn-zoom, 8, 72, 113, 25, 0)$72ls = GUICtrlCreateButton(Logon 72ls, 160, 72, 105, 25, 0)$hm = GUICtrlCreateButton(Logon Hocmai, 8, 104, 113, 25, 0)$vina = GUICtrlCreateButton(Logon Vinaphone, 160, 104, 105, 25, 0)GUISetState() ; hiện GUICác cách tạo gui đã học ở Tut 1, tui không nhắc lại nữaCác biến đều tạo mà không cần khai báoĐó là bước 1 – tạo giao diện. Bây giờ ta sẽ gắn thêm “thịt” cho nó – viếtcodeCó giao diện (thui gọi là GUI cho nó nhàn) rùi, bây giờ bạn chạy chươngtrình, xem có lỗi gì không, nếu không thì làm tiếp.Vì phần này có vẻ “hơi” khó nên tui sẽ chia ra làm nhiều mảng:(*) Viết code cho nút “Logon Gunny” – hihi, tui cũng chơi gunny mà.+ Tạo nút ấn :$Gunnybtton = GUICtrlCreateButton(Logon Gunny, 8, 40, 113, 25, 0)Chú thích :-Cái chỗ $Gunnybtton là biến tạo ra bằng cách không cần khai báo trướcBiến này sẽ có nhiệm vụ là “chứa” nút Loggon Gunny+ Tạo dữ liệu để nạp : Phần này sẽ lưu dữ liệu của bạn như ID và Pass,vì nếu không có dữ liệu sẵn thì chương trình sẽ không thể logon đượcCode:; ~ Khai bao cho Gunny$gunny_id = tên đăng nhập của bạn$gunny_pwd = pass của bạnNhư đã nói ở trên, hai biến trên đều tạo ra mà không cần khai báo+ Lệnh thực hiện trong nút Logon Gunny : Lệnh này sẽ dc chạy khi nút đódc ấn , thực chất là tạo chương trình con – function – hàmCode:Func Gunny_logon($gunny_id,$gunny_pwd) WinActivate(Gunny - Login -,) send($gunny_id) ; Gõ ID send({TAB}) ; Chuyển qua Pass send($gunny_pwd) ; Gõ Pass send({TAB}) ; Chuyển qua nút đăng nhập send({ENTER}) ; Đăng nhập !EndFunc* Lưu ý trong Func, bạn dùng đến biến nào thì phải khai báo biến đó trongdấu() . Vd bạn dùng 2 biến $a và $b trong hàm test. Viết như sauFunc test($a,$b)Đừng quên lưu ý này nhé* Chú thích chữ màu da cam trong code : (phần này khó giải thích quá)Trong Tut 1, bạn đã biết WinWaitActive(“tiêu đề cửa sổ”,“”) là một lệnhđể chờ cửa sổ nào đó mở ra khi chạy chương trình. Lệnh đó chậm hơn sovới lệnh tui tô màu da cam – nghĩa là : Tiêu đề cửa sổ đang chạyNếu bạn đang mở word, internet explorer, yahoo, … . Khi run chươngtrình, chương trình chỉ tìm đến ứng dụng nào có tiêu đề chứa nội dungGunny – Login – mà thôi, còn các ứng dụng khác cũng đang chạy nhưngkhông có tiêu đề như trên thì cũng bó tay ! Bởi vậy bàn hoàn toàn yên tâmkhông sợ mất thông tin ^^ (Kể cả bạn mở word hay notepad rùi chạy thìcũng ko có tác dụng , yên tâm không lộ pass )Có vẻ như tôi giải thích quá khó hỉu ! Bạn hãy xem ví dụ sau là biết ngay Trình duyệt ExplorerNhư bạn thấy tui đang mở 2 chương trình : trình duyệt và explorer. Bạncó để ý thấy tiêu đề của trình duyệt không ? Có dòng Gunny – Login –đúng không nào. Bây giờ thu nhỏ cả 2 chương trình đó lại (nút dấu – trêntiêu đề cửa sổ ý), chạy chương trình thì ngay lập tức, trình duyệt dc bậtlên và auto logon !Kể cả khi bạn dùng FireFox hoặc Opera … đều được ! ^^Tui nói “chạy” chứ không phải bạn thực hành lun nhá ! Vì đã có code hoànchỉnh đâu mà chạy dc !??[?] Tại sao phải đề dấu - ở cuối chữ Login vậy ??? Đó là dấu gạch nối, sau dấu đó là tên trình duyệt , vì ta muốn chương trình chạy trên mọi trình duyệt nên phải làm như vậy ! Phù !! … Nếu đã hỉu thì hãy đọc tiếp Vậy là ta đã có 3 yếu tố : Dữ liệu cần nạp, nút ấn và lệnh thực hiện Bây giờ chỉ còn yếu tố thứ 4 : kiểm tra xem nút đó dc ấn hay không ? nếu ấn thì gọi lệnh thực hiện lên Bước đầu tiên là kiểm tra xem có sự kiện nào xảy ra trên GUI không (sự kiện : là những thao tác diễn ra trên GUI ) Có 2 cách : Cách 1 : Dùng vòng lặp while … wend (hẳn bạn còn nhớ cấu trúc này chứ)while 1 ; Cấu trúc form ko tự mất đi !$sukien = GUIGetMsg() ; Ghi nhận sự kiện xảy ra trên formSwitch $sukien ; Lựa chọn với các sự kiện case $GUI_EVENT_CLOSE ; Nếu ấn close button thì MsgBox(0,AutoSimple - v1.0.0,Cảm ơn bạn đã sử dụng chương trình ! - Thoát sau3s) ExitLoop ; Thoát vòng lặp Exit ; Thoát case $Gunnybtton ; Nếu sự kiện là khi user ấn nút Logon Gunny ( bằng với tham số trongbiến $Gunnybtton) Gunny_logon($gunny_id,$gunny_pwd);,$tieu_de) ; Thì gọi chương trình Logon Gunnylên case $Yahoobutton ; Nếu ấn Logon Yahoo Yahoo_logon($ym_id,$ym_pwd);,$tieu_de) ; Thì gọi Yahoo Logon lênEndSwitchWEnd • Chú thích code : while 1 : xem thêm trong Tut 1, có nghĩa là vòng lặp vô tận ! Nếu là số 0 thì là dừng hẳn vòng lặp $sukien = GUIGetMsg() ; Ghi nhận sự kiện xảy ra trên form, ở đây biến $sukien được tạo ko cần khai báo, GUIGetMsg() là một hàm để kiểm tra xem có sự kiện nào xảy ra trên GUI không. $GUI_EVENT_CLOSE : ...