Ngôn ngữ lập trình dành cho mọi người docx

NGÔN NG L P TRÌNH DÀNH CHO M I NG I !Ữ Ậ Ọ ƯỜ <Nhi u khi code c a tui có m t s l nh “m i l ”, nh ng r t hay ! ^^ >ề ủ ộ ố ệ ớ ạ ư ấ -designed by Lý Th Minh – nick : autoboy195 – Y!m : unluckystar_195ế borned : 20-2-1995 ^^! -Time : 10:25PM 18.2.10 (( tut có 32 trang) Tui s c trình bày 1 cách d hi u nh t ! ẽ ố ễ ể ấ <tui t s u t m và t biên t di n ^^ - có ch nào ko h u xin th l i!>ự ư ầ ự ự ễ ỗ ỉ ứ ỗ Menu nhanh [==================== Menu ============================] M t vài thao tác v i notepadộ ớ Cho phép user t t formắ GUI C u trúc r nhánhấ ẽ C u trúc l pấ ặ [=====================================================] Chương I : Lập trình cơ bản Bài 1 : làm quen ! 1. M ch ng trình AutoIT đ l p trìnhở ươ ể ậ Tên ch ng trình : SciTe Script Editorươ Giao di n nh sau :ệ ư 2. M t ch ng trình đ n gi n ộ ươ ơ ả Đ hi n th Ti ng Vi t có d u trong AutoIT, b n hãy làm nh sau :ể ể ị ế ệ ấ ạ ư File > Encoding > UTF – 8 with BOM ho c UCS-2 Big Endianặ L p trình nào ^^ậ ☺ L u ý : ư - B t c ch ng trình AutoIt (vi t t t là auto) nào đ u ph i l u l i (đ nh d ng *.au3), sau đó m i ch y đ c. Thaoấ ứ ươ ế ắ ề ả ư ạ ị ạ ớ ạ ượ tác l u :ư n vào icon Save >> Ch n n i l u >> Saveấ ọ ơ ư - Đ ch y th ch ng trình, n F5 ( gi ng vb6 nh ^^)ể ạ ử ươ ấ ố ỉ • Gõ vào dòng sau trong khu v c 3 :ự Msgbox (0,"Thông báo","Hi n th ti ng vi t 100% ^^")ể ị ế ệ Save nó l i, bây gi n F5 đ ch y, 1 ch ng trình nh c a b n đã hình thành !ạ ờ ấ ể ạ ươ ỏ ủ ạ Tuy t v i, ch ng trình hi n th Unicode r t chu n, không b l i nh vb6 ^^.ệ ờ ươ ể ị ấ ẩ ị ỗ ư • Chuy n thành File exe :ể Có r t nhi u cách, nh ng có m t cách r t đ n gi n là truy c p đ n th m c ch a file *.au3 , nháy ph i vào file này vàấ ề ư ộ ấ ơ ả ậ ế ư ụ ứ ả ch n Complite Script . N u ko có l i gì thì l p t c b n đã có 1 file *.exe hoàn ch nh rùi ! Ti n l i h n là ch có 1 file duyọ ế ỗ ậ ứ ạ ỉ ệ ợ ơ ỉ nh t !ấ Đây là file vidu.au3 Đây là file vidu.exe ☻ K t thúc :ế - L nh m thông báo đ n gi n:ệ ở ơ ả 1 – Thanh menu 2 – Thanh công cụ 3- Khu v c so nự ạ th oả 4 – Thanh tr ng tháiạ Msgbox ([ki u thông báo 0~6],“[Tiêu đ ]”,“[Text]”)ể ề Bài 2 : Ch y ch ng trình :ạ ươ B n hãy vào AutoIt script r i gõ dòng sau vào :ạ ồ Run (“notepad”) Câu này có nghĩa là Ch y notepad.exe trong máy c a b nạ ủ ạ R i gõ ti p :ồ ế WinWaitActive ( "Untitled - Notepad") ; không dc đ i tiêu đ !ổ ề Xem thêm (r t quan tr ng !)ấ ọ Có nghĩa là ch c a s notepadờ ử ổ Gõ ti p dòng này vào :ế Send("This is some text.") Có nghĩa là : G i dòng ch trên cho notepad đang m !ử ữ ở Và đây là dòng cu i cùngố WinClose ( "Untitled - Notepad") Dùng đ đóng Notepad.ể T ng h p, ta có code nh sau :ồ ợ ư run ("notepad") ; ch y notepadạ WinWaitActive ( "Untitled - Notepad") ;ch notepadờ Send("This is some text.") ; g i text đ n notepadử ế WinClose ( "Untitled - Notepad") ; đóng notepad ; Thao tác nhanh nh đi n x t v y ^^ư ệ ẹ ậ ; là chú thích ! Bây gi n F5, b n s th y các công vi c x y ra l n l t :ờ ấ ạ ẽ ấ ệ ả ầ ượ - M notepadở - M notepad có tiêu đ là Utitled – notepadở ể - Gõ dòng ch This is some text vào notepadữ - Thoát notepad, hi n ra b ng tùy ch n thoátệ ả ọ (Ch p, cái ch “Thí í some text” là do tui b t unikey ^^)ẹ ỗ ậ B n th y hay ch a ? Th m i là Auto !ạ ấ ư ế ớ ☺ Cách dùng hi u qu l nh WinwaitActive :ệ ả ệ Qu đúng nh tên g i ! AutoIT đã giúpả ư ọ chúng ta th c hi n Thao tác v iự ệ ớ notepad ch trong 1s mà ch v i vàiỉ ỉ ớ dòng code d hi u ! Đi u này r t khóễ ể ề ấ v i các ngôn ng nh vb6,…ớ ữ ư B n m ch ng trình đó lên trong windows, ví d notepad :ạ ở ươ ụ Chép dòng ch có khoanh tròn tiêu đ - ữ ề vào đâu đó. Dòng ch đó s dùng cho v trí này trong AutoIt:ữ ẽ ị -N u tiêu đ dài ho c b n “l i” chép ^^, hãy dùng công c Windows Info có s n c a AutoItế ề ặ ạ ườ ụ ẵ ủ B c 1 : ch y notepadướ ạ B c 2 : Ch y windows infoướ ạ ☻ K t thúc :ế • Câu l nh đ ch y ch ng trình : ệ ể ạ ươ run (“[tên ch ng trình]”)ươ * tên ch ng trình ho c đ ng d n ch ng trìnhươ ặ ườ ẫ ươ • Câu l nh đ ch ch ng trình đó : ệ ể ờ ươ WinWaitActive (“[tiêu đ ]”)ề • Câu l nh đ g i text đ n ch ng trình đó : ệ ể ử ế ươ send (“[text mu n g i]”)ố ử n u mu n g i kí t “#”, gõ l nh sau :ế ố ử ự ệ Send (“# d u thăng”,1) ấ  cho flag là 1 • Câu l nh đ đóng ch ng trình đó : ệ ể ươ winclose (“[tiêu đ ]”)ề [H c l p trình thì không th không n m v ng căn b n, mà mu n n m v ng căn b n thìọ ậ ể ắ ữ ả ố ắ ữ ả ph i n m v ng lí thuy t đã, r i ki n th c s đ c c ng c qua th c hành, h c t t ,ả ắ ữ ế ồ ế ứ ẽ ượ ủ ố ự ọ ừ ừ s vào ^^]ẽ Bài 3 : Khai báo - Tui s đi nhanh ph n này, nh ng ko b sót các ph n quan tr ng nh t !ẽ ầ ư ỏ ầ ọ ấ • Khai báo bi nế : Các bi n đ c khai báo và t o ra v i các t khóaế ượ ạ ớ ừ Dim, local và global: (ph m vi s d ng : global >ạ ử ụ local > dim) Dim $var1 Ho c b n cũng có th khai báo nhi u bi n cùng m t lúc: ặ ạ ể ề ế ộ Dim $var1, $myvariable Đ a con trư ỏ chu t vàoộ tiêu đề notepad, sau đó copy từ ch này !ỗ B n cũng có th ch đ nh m t bi n màạ ể ỉ ị ộ ế không c nầ khai báo (nh ngư Tui khuy n kíchế khai báo tr c). ướ $Var1 = "abc" • Khai báo h ngằ (constants) Constants đ c công b và t o ra b ng cách s d ng Const ượ ố ạ ằ ử ụ t khóa nh : ừ ư Const $const1 = 1, $const2 = 12 Constants có th đ c công b và s d ng Enumể ượ ố ử ụ nh sau: ư Enum $const1 = 1, $const2, $const3 ; 1, 2, 3 Enum STEP 2 $incr0, $incr2, $incr4 ; 0, 2, 4 Enum STEP *2 $mult1, $mult2, $mult4 ; 1, 2, 4 Arrays (m ng)ả Array là m t bi n có ch a m t lo t các d li u thành ph n c a cùng m t lo i và kích c . M i y u t trong bi n này cóộ ế ứ ộ ạ ữ ệ ầ ủ ộ ạ ỡ ỗ ế ố ế th đ c truy c p b i m t s ch m c. ể ượ ậ ở ộ ố ỉ ụ Ví d : ụ Hãy nói b n mu n l u tr nh ng lo t ký t : "A", "U", "T", "O", "I", "T" và "3". ạ ố ư ữ ữ ạ ự B n có th s d ng b y các bi n riêng bi t đ làm nh th , nh ng b ng cách s d ng m t Array là hi u qu h n: ạ ể ử ụ ả ế ệ ể ư ế ư ằ ử ụ ộ ệ ả ơ $Array [0] = "A" $Array [1] = "U" vv. $Array [6] = "3" Đ truy c p m t giá tr c th trong m t Array, b n ch c n bi t các ch m c s : ể ậ ộ ị ụ ể ộ ạ ỉ ầ ế ỉ ụ ố $MyChar = $Array [2] Các k t qu này trong $MyChar có ch a ch "T" ế ả ứ ữ Các ch m c s cũng có th đ c thay th b i m t bi n ho c m t bi u, do đó, b n có th xây d ng ph c t p cách đ chỉ ụ ố ể ượ ế ở ộ ế ặ ộ ể ạ ể ự ứ ạ ể ỉ đ nh ho c truy c p vào m t y u t trong m ng đó. ị ặ ậ ộ ế ố ả Arrays cũng có th đ c nhi u chi u, khi b n s d ng nhi u lo t các ch m c s , nh : ể ượ ề ề ạ ử ụ ề ạ ỉ ụ ố ư $Array[0][0]="Upper-Left" $Array[1][0]="Lower-Left" $Array[0][1]="Upper-Right" $Array[1][1]="Lower-Right" (Nh ng giá tr này ch là ví d ) ữ ị ỉ ụ B n có th s d ng đ n 64 trong m t kích th c Array. T ng s các m c có th không đ c l n h n 2 ^ 24 (16 777ạ ể ử ụ ế ộ ướ ổ ố ụ ể ượ ớ ơ 216). Tr c khi b n có th b t đ u s d ng Arrays trong t p l nh c a b n, b n ph i xác đ nh bounds c a h b ng cách sướ ạ ể ắ ầ ử ụ ậ ệ ủ ạ ạ ả ị ủ ọ ằ ử d ng ụ ' Dim ' t khóa. ừ Lo i d li u trong Arrays ạ ữ ệ Nó đã đ c cho r ng ch ch a m t Array ượ ằ ỉ ứ ộ m t ộ d li u c a cùng m t lo i. Tuy nhiên, k thu t nói, m t trong AutoItư ệ ủ ộ ạ ỹ ậ ộ Ngôn ng đ a ph ng có th ch a b t c th gì t m t s vào m t giá tr boolean. Vì v y, m t Array-AutoIt cũng có thữ ị ươ ể ứ ấ ứ ứ ừ ộ ố ộ ị ậ ộ ể ch a khác nhau lo i, th m chí khác Arrays: ứ ạ ậ $Array[0]=1 $Array[1]=true $Array[2]="Text" $Array[3]=$AnotherArray Đi u này đã b c m không đ c ch t ch trong AutoIt. Tuy nhiên, nó là ề ị ấ ượ ặ ẽ KHÔNG Khuy n khích ế đ k t h p khác nhauể ế ợ trong m t datatypes Array. Đ c bi t là vi c s d ng m t Bên trong m t m ng Array nghiêm s nh h ng đ n vi c th cộ ặ ệ ệ ử ụ ộ ộ ả ẽ ả ưở ế ệ ự hi n t c đ c a b n t p l nh. ệ ố ộ ủ ạ ậ ệ ☻ K t thúc ế - Khai báo bi n : ế Dim $tên_bi n_1,$tên_bi n_2ế ế - Khai báo h ng : ằ Const $tên_bi n_1 = [giá tr c a h ng]ế ị ủ ằ Ví d : Const $bien1 = 1, $bien2 = 2ụ - Khai báo m ng Array : ả + m t chi u : ộ ề $tên_m ng[s th t m ng]= [giá tr m ng]ả ố ứ ự ả ị ả Vidu : $mang1[0]=A $mang1[1]=u $mang1[2]=t $mang1[3]=o + nhi u chi u : (r t ph c t p!)ề ề ấ ứ ạ $mang1[0][0] = 1 $mang1[0][1] = 11 $mang1[1][0] = 111 $mang1[1][1] = 1111 Bài 4: Các toán t (r t nhanh thui !)ử ấ Toán tử Mô tả = Gán . vd : $var1 = “Hello” += C ng thêm : $var1 += 3 (tăng giá tr cho bi n var1 thêm 3 đ n v )ộ ị ế ơ ị - = Tr thêm : ừ *= Nhân thêm / = Chia thêm & = N i : dim $aố $a = “Auto” $a &= “ It” ; k t qu a = “Auto It”ế ả ^ Lũy th aừ == B ng (đ i v i chu i) : vd : ằ ố ớ ỗ dim $a $a = “hello” if $a == “hello” then exit end if <> Khác > L n h nớ ơ < Nh h nỏ ơ >= L n h n ho c b ngớ ơ ặ ằ <= Nh h n ho c b ngỏ ơ ặ ằ And Logic và: đúng n u 2 dk đúng, sai n u 1 trong 2 saiế ế Or Logic ho c : đúng n u 1 trong 2 đúng, sai n u c hai sai ặ ế ế ả Not Logic Không : vd : Không 1 (sai) Đ u tiên cao nh t >> th p nh t :ộ ư ấ ấ ấ ( ) Not ^ * / + & <> <=> = = <> == VÀ HO C Ặ Vd: 2+4*10 = 42 (2+4)*10 = 60 Bài 5 : C u trúc r nhánhấ ẽ • If …then … Else … End if if [dk TRUE] then [l nh th c hi n n u dk đúng]ệ ứ ệ ế else [l nh th c hi n n u dk FALSE]ệ ứ ệ ế Endif Đúng là TRUE, sai là FALSE Ví d :ụ dim $a ; Khai báo bi n aế $a = inputbox ("Nh p m t s ","Nh p 1 s b n nghĩ:") ậ ộ ố ậ ố ạ ; a = s b n gõố ạ if $a = "10" Then ; N u a = 10 thìế msgbox (0,"S b n gõ","B n đã nh p s 10") ố ạ ạ ậ ố ; Hi n thông báo nh p đúngệ ậ else ; Ng c l iượ ạ msgbox (0,"S b n gõ","B n đã nh p không ph i s 10ố ạ ạ ậ ả ố ") ; Hi n thông báo nh p saiệ ậ Endif ; K t thúc Ifế n F5 đ ch y, b n hãy t test !ấ ể ạ ạ ự • Switch … EndSwitch Th c ra trong AutoIt còn có c u trúc SELECT … CASE n a, nh ng c u trúc này đòi h i ph i vi t đi vi t l i nhi u l nự ấ ữ ư ấ ỏ ả ế ế ạ ề ầ bi n, nên Tui dùng c u trúc này, ng n g n h n r t nhi u.ế ấ ắ ọ ơ ấ ề Ví d :ụ dim $var ; Khai báo bi n varế $var = inputbox ("Nh p","Nh p 1 s ") ậ ậ ố ; Gán var = s b n ch nố ạ ọ Switch Int($var) Case 1 To 10 ; N u var t 1 đ n 10ế ừ ế MsgBox(0, "Ví d ", "S b n nh p l p h n 1")ụ ố ạ ậ ớ ơ Case 11 To 20 ; N u var t 11 đ n 20ế ừ ế MsgBox(0, "Ví d ", "S b n nh p l p h n 10")ụ ố ạ ậ ớ ơ Case 21 To 30 ; MsgBox(0, "Ví d ", "S b n nh p l p h n 20")ụ ố ạ ậ ớ ơ Case 31 To 40 ; MsgBox(0, "Ví d ", "S b n nh p l p h n 30")ụ ố ạ ậ ớ ơ Case Else ; N u var không n m trong kho ng trênế ằ ả MsgBox(0, "Ví d ", "S b n nh p l p h n 40 ho c nh h n 0")ụ ố ạ ậ ớ ơ ặ ỏ ơ EndSwitch Int đ l y ph n nguyên . Vidu : Int(7,36) -> s b ng 7ể ấ ầ ẽ ằ **Xu ng dòng :ố - Khi mu n xu ng dòng, dùng l nh @CrLf (khác v i vb6 là vbCrLf)ố ố ệ ớ Dim $a $a = “AutoIt !^^” msgbox (0,“Xu ng dòng – lytheminh”,“Chào m ng các b n đ n v i” & @CrLf & $a)ố ừ ạ ế ớ **Chu i ch a ngo c kép :ỗ ứ ặ - So sánh 2 code sau : dim $a $a = ' Chào m ng các b n đ n v i ừ ạ ế ớ "AutoIt" ^^ ' msgbox (0,"Thông báo",$a) Và dim $a $a = “Chào m ng các b n đ n v i ừ ạ ế ớ "AutoIt"^^ ” msgbox (0,"Thông báo",$a) Cùng 1 code, cùng 1 ch c năng là hi n th thông báo, nh ng code 1 ch y đ c, còn code 2 ko ch y dc !ứ ể ị ư ạ ượ ạ K t lu n : ta có công th c t ng quát sau :ế ậ ứ ổ ' văn b n bình th ng “ văn b n ch a d u ngo c kép” ả ườ ả ứ ấ ặ ' Ví d mu n hi n th câu : R ng là “lá ph i xanh” c a trái đ tụ ố ể ị ừ ổ ủ ấ MsgBox(0, "Ví d ", ụ ' R ng là "lá ph i xanh" c a trái đ t ừ ổ ủ ấ ') Hjz, thui thì c vi t c u trúc kia v y (đ n gi n thôi)ứ ế ấ ậ ơ ả • C u trúc Select … caseấ Select Case <đi u ki n 1>ề ệ <các câu l nh>ệ Case <đi u ki n 2>ề ệ <các câu l nh>ệ Case Else <các câu l nh>ệ EndSelect • C u trúc if l ng nhau – b c thang Ifấ ồ ậ C u trúc này r t hay s d ng trong AutoIt, vì v y b n hãy ấ ấ ử ụ ậ ạ đ c th t kĩọ ậ ! C u trúc chung , xét ví d sau :ấ ụ Quote : trích d nẫ #cs AutoIt Version: 3.3.0.0 Author: Autoboy195 Script Function: Template AutoIt script. #ce ; Script Start - Add your code below here ; M ch ng trìnhở ươ global $a,$b,$dl ; global dùng đ khai báo bi n, nh ng ph m vi r ng h n dimể ế ư ạ ộ ơ $a = "text : ch y notepad"ạ $b = "văn b n : ch y microsoft word"ả ạ msgbox (0,"Tiny Soft","B n hãy gõ các dòng t ng ng v i các l nh sau : " & @Crlf & @Crlfạ ươ ứ ớ ệ & $a & @crlf & $b) ; xu ng dòng … đã h c rùi :Dố ọ ; nh p li uậ ệ $dl = inputbox ("Enter to here","Nh p l nh đ m ch ng trình : ")ậ ệ ể ở ươ if $dl = "text" Then ; câu l nh 1ệ run ("notepad") ; h t câu l nh 1ế ệ ElseIf $dl = "văn b n" ả Then ; câu l nh 2ệ run ("C:\Program Files\Microsoft Office\Office10\WINWORD.exe") ; h t câu l nh 2ế ệ Else ; ng c l iượ ạ msgbox (0,"Thông báo tu do'ng sau 2 giay","Không có l nh này !",2)ệ EndIf ; k t thúcế Code có th sai n u đ ng d n (path) c a word ch khác !ể ế ườ ẫ ủ ở ỗ ○ Ch y th ch ng trình (F5)ạ ử ươ Sau khi n OK, word hi n ra ! ấ ệ N u gõ linh tinh thì thông báo hi n ra, sau 2s t t t !ế ệ ự ắ ○ Phân tích code - khai báo 2 bi n (a,b) cho ch ng trình, m i bi n ch a 1 dòng textế ươ ỗ ế ứ - khai báo 1 bi n ch a d li u khi nh p vào inputbox (dl)ế ứ ữ ệ ậ - hi n thông báoệ - hi n input boxệ - x lí l nhử ệ + N u nh p “text” thì ch y notepadế ậ ạ + N u nh p “văn b n” thì ch y wordế ậ ả ạ + N u ko nh p j ho c nh p lung tung thì hi n thông báo l i, sau đó 2s t t t !ế ậ ặ ậ ệ ỗ ự ắ ☻ Bài h c ọ 1. Khai báo bi n m i có th dùng globalế ớ ể 2. C u trúc If l ng nhau :ấ ồ If <dk1> then <l nh 1>ệ elseif <dk2> then <l nh 2>ệ elseif <dk3> then <l nh 3>ệ elseif (dk n) then <l nh n>ệ else ; ng c l i hay không có giá tr nào th a mãnượ ạ ị ỏ <l nh th c hi n>ệ ứ ệ EndIf 3. l nh run ("đ ng d n ch ng trình")ệ ườ ẫ ươ 4. Timeout : th i gian đ thoát ch ng trìnhờ ể ươ ví d : msgbox (0,"","",2) tính b ng giâyụ ằ H t bài ^^ế Bài 6 : C u trúc l pấ ặ Phù !! Sau khi b n đã hi u h t bài h c t 1 đ n 5, hãy ngh gi i lao 30’ rùi h c típ nhé ạ ể ế ọ ừ ế ỉ ả ọ • C u trúc While … Wendấ (gi ng ố while … do trog pascal í mà ) C u trúc chung nè :ấ =================================== While <đi u ki n> ề ệ <các câu l nh>ệ … Wend ; k t thúc vòng l p n u đi u ki n saiế ặ ế ề ệ <l nh th c hi n khi đi u ki n sai>ệ ự ệ ề ệ =================================== S đ cô đ ng (Nhìn là h u ngay ^^)ơ ồ ọ ỉ Ví d :ụ Dim $i ; t o bi n iạ ế $i = 0 ; Gán i = 0 While $i <= 10 ; N u i <= 10 thìế Msgbox (0,“ Giá tr c a i là”,$i) ị ủ ; hi n thông báo giá tr c a iệ ị ủ $i = $i + 1 ; tăng d n bi n i lên 1 đ n vầ ế ơ ị Wend ; N u i > 10 (t c là sai đi u ki n) thìế ứ ề ệ Msgbox (0,“Thong bao”,“Vòng l p đã d ng l i vì i > 10”)ặ ừ ạ ○ Phân tích code : - … - So sánh i v i 10 (vì i ban đ u cho là 0 rùi nên đi u ki n 0 < 10 luôn đúng )ớ ầ ề ệ Đi u ề ki n?ệ Câu l nhệ Đúng Sai Đ u tiên ch ng trình ki m traầ ươ ể đi u ki n :ề ệ • N u DK đúng thì th c hi n câuế ự ệ l nhệ • Quay l i ki m tra DK, n uạ ể ế đúng n a thì th c hi n câu l nh,ữ ự ệ ệ n u sai thì thoát kh i vòng l p !ế ỏ ặ While Wend [...]... xuống) Cả 1 bảng keys cho bạn lựa chọn ! - Hàm để hẹn thời gian cho chương trình tự động thoát (tính bằng miligiây) : Sleep(thời_gian_tính_bằng_miligiay) Công thức đổi : 1000 = 1 giây - Hàm để thoát ngay lập tức chương trình, hàm sleep sẽ bị bỏ qua : Exit ( Tui gọi là “hàm” vì đó cũng là 1 chương trình con có sẵn trong autoit , n ếu “ko ti ện” thì g ọi là “l ệnh” cho nó tiện ) Thế thui... … EndFunc ; Hết code ! Cái này sẽ học nâng cao ở bài : Tạo 1 chương trình hoàn chỉnh 11:04 PM 21.2.10 Trong AutoIt có rất nhiều lệnh (hàm – 2200 hàm ), chúng không khó nhưng khó nhớ Thui thì sẽ tìm hiểu qua ví dụ vậy ^^ Chương II : Lập trình giao diện cho AutoIt – GUI - Form GUI là từ viết tắt của Graphic User Interface – giao diện người dùng bằng đồ h ọa Điều này có l ẽ không c ần ph ải nóii nhiều... chương trình sẽ thoát ! - Tại sao thoát rùi lại còn phải thế này ??? Send("{RIGHT}") Send("{LEFT}") Tui đã thử thoát auto nhưng đã cho ng” vì ben vẫn cứ auto !! Mu ốn k ết thúc rất đ ơn gi ản, g ửi l ại cho game 1 lúc 2 nút (trái và phải : ko cho ben chạy), như thế thì auto thoát rùi, ben cũng dừng lại ngay !! Code tự cài đặt Total video convert (yêu cầu file tvc312b.exe cùng th ư m ục v ới ch ương trình) ... Sau 8 giây, nếu bạn không ấn nút gì hoặc ấn ngoài 2 nút trên thì m ặc định chương trình s ẽ t ắt ! (vì code có lệnh Sleep(8000) )< chạy ngầm chính là cách thức chung của virus !! ^^> Nếu bạn gõ chữ t (chữ “t”) Sau khi ấn OK thì chương trình tắt luôn ! Vì trong hàm 2 có câu lệnh Exit , có tác dụng tắt ngay lập tức chương trình (nói như vậy không biết đúng không ^^, vì tốc độ tính bằng miligiay chứ ko... thoát chương trình -;Stop Function Func end() msgbox (0,"AutoClick - autoboy195","Ấn OK để thoát ! cảm ơn bạn đã sử dụng chương trình ^^") Exit ; thoát nhanh chương trình EndFunc ; End Func ; Hết hàm ; - Cài đặt phím nóng ;Set Hot Keys, cái nè xem thêm ở bài 7 HotKeySet("{F7}","auto") HotKeySet("{F8}","end") ; - Thời gian để tự tắt chương trình ... form, có button, có combo box … v.vv , giúp cho phần mềm trở nên chuyên nghi ệp h ơn CODE : AutoClick phiên bản 1.0 của autoboy195 ^^ #cs -;~ Chương trình : Tự động Click chuột đơn giản ;~ Thiết kế : Lý Thế Minh (20.2.1995) - Thanh Lương - Yên Bái ;~ Autoit v3.0.0.0 #ce -; - Chương trình chính -Global $time,$time_final... trog pascal thì th ấy chúng ko đ ến n ỗi khó ! Hãy test code trên để hiểu thêm  ! Và : một ứng dụng rất hay của cấu trúc trên, đó là cho phép user t ắt chương trình b ằng cách ấn nút “X” ( b ạn c ứ th ử làm 1 GUI rồi không copy code sau vào form xem, đố bạn tắt dc chương trình khi nh ấn nút “X” đ ấy :D) while 1 if GuiGetMsg() = $GUI_EVENT_CLOSE then exit endif wend Hãy copy code trên vào form khi bạn... sửa cho gọn hơn ! Chạy chương trình và hưởng thụ thành quả :D … Hjz, ngoài ra còn 2 nhiều cấu trúc (For…In và With) n ữa nhưng tác gi ả “l ười” không h ọc , những cái ấy tui còn chưa hỉu hết , sau này đề cập đến thì học, những cấu trúc cơ bản đã dạy hết rùi ^^ Bây giờ sẽ chuyển qua một phần không kém phần quan trọng, đó là … Mời xem bài 7 sau đó xem lại code trên ! Bài 7 : Function – Hàm – chương trình. .. ========================================== • Chú thích : Title : Tiêu đề cho GUI , ví dụ : vidu Width : Chiều rộng (dùng chung – trường hợp này là form) Height : Chiều cao Left : Tọa độ trái (x) Top : Tọa độ trên (y) (tọa độ tính bằng pixcel ) style : kiểu cửa sổ (xem thêm trong file help của AutoIt) exStyle : kiểu cửa sổ mở rộng (expand Style) ^^ chắc thế ! tìm hiểu thêm ở đây, vì đây chỉ là lập trình cơ bản, ko nên phức tạp quá parent... trên ! Toàn những cái đã học, lại rất đơn giản ! • chú thích chức năng tạm dừng : ^^ • Chả có gì lạ cả, bạn cứ thử bật game lên, cho auto chạy (ấn p), sau đó ấn phím sang ph ải, s ẽ th ấy ben d ừng l ại ! , lợi dụng cách trên khi ấn 2 (tạm dừng), chương trình sẽ gửi các nút đến cho game, th ế là t ạm d ừng auto nhưng vẫn chạy ngầm, bạn chỉ cần ấn OK là lại auto như thường ) - Nếu đang auto đánh – phím . nh đ ch y ch ng trình : ệ ể ạ ươ run (“[tên ch ng trình] ”)ươ * tên ch ng trình ho c đ ng d n ch ng trình ơ ặ ườ ẫ ươ • Câu l nh đ ch ch ng trình đó : ệ ể. làm quen ! 1. M ch ng trình AutoIT đ l p trình ươ ể ậ Tên ch ng trình : SciTe Script Editorươ Giao di n nh sau :ệ ư 2. M t ch ng trình đ n gi n ộ ươ ơ