trungnb249 Posted March 6, 2009 Share Posted March 6, 2009 I love it aslo i have trouble my english capital! Link to comment Share on other sites More sharing options...
PsaltyDS Posted March 6, 2009 Share Posted March 6, 2009 (edited) By the way, that is the coolest avatar animated .gif I have seen in a while! Simple, clean, and classy. Very nice.May I ask where you found it, or did you create it yourself? Edited March 6, 2009 by PsaltyDS Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law Link to comment Share on other sites More sharing options...
Mrc2 Posted January 14, 2011 Share Posted January 14, 2011 em cũng là 1 công dân VN đây !!!..em chỉ mới pit về autoit mới đây thôy.em có 1 vấn đề nhờ các anh(chị) giúp đỡ.em có đề tÀI như thế này.tính cước taxivà đây là thông báo về giá taxi của e:Công ty CP Ánh Dương Việt Nam (VINASUN) thông báo giá cước taxi mới như sau: 1,1 Km đầu: 12.000 đồng/1,1Km; từ Km tiếp theo đến Km 30: 11.000 đồng/Km; từ Km thứ 31 trở đi: 8.000 đồng/Km; Giá cước thời gian chờ: sau 05 phút đầu không tính tiền, cứ 03 phút tiếp theo là 1.200 đồng/03phút./.còn đây là do e tự làm nhưng nó sai lung tung sửa hoài ko đc. nhờ anh, chị và các bạn giúp đỡ:#region ; Code generated by EzSkin_1-2-3, Created by Valuater; For personal use only, All Rights Reserved; Author of this code: Valuater; Thank you big_daddy and Joscpe#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <StaticConstants.au3>#include <WindowsConstants.au3>#include "Date.au3"#include <GUIConstants.au3>#include <EzSkin.au3>#NoTrayIcon$EzGUI = EzSkinGUICreate("::. TAXI COST .::",590,350)$EzIcon = EzSkinIcon($EzGUI)$Label1 = GUICtrlCreateLabel("::. TÍNH CUỚC TAXI .::", 88, 38, 448, 54)GUICtrlSetFont(-1, 30, 800, 0, "Arial")GUICtrlSetColor(-1, 0xFF00FF)$Input1 = GUICtrlCreateInput("", 144, 142, 369, 24,$SS_CENTER)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0xFF0000)$Input2 = GUICtrlCreateInput("", 144, 181, 369, 24,BitOR($ES_AUTOHSCROLL,$ES_READONLY)+$SS_CENTER)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0xFF0000)$Label2 = GUICtrlCreateLabel("Nhập Số KM:", 16, 142, 125, 26)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0x0000FF)$Label3 = GUICtrlCreateLabel("Thành Tiền:", 15, 180, 117, 26)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0x0000FF)$Label4 = GUICtrlCreateLabel("KM", 526, 145, 35, 26)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0x0000FF)$Label5 = GUICtrlCreateLabel("VND", 528, 182, 44, 26)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0x0000FF)$Label6 = GUICtrlCreateLabel("Nhập số phút chờ", 16, 103, 125, 26)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0x0000FF)$Input3 = GUICtrlCreateInput("", 144, 103, 369, 24,$SS_CENTER)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0xFF0000)$Label4 = GUICtrlCreateLabel("phút", 526, 103, 40, 26)GUICtrlSetFont(-1, 14, 800, 0, "Arial")GUICtrlSetColor(-1, 0x0000FF)$Button1 = EzSkinButton("TÍNH THÀNH TIỀN", 144, 222, 369, 33) ;, $font_color)GUICtrlSetFont(-1, 10, 800, 0, "Arial")GUICtrlSetColor(-1, 0xFF0000)$Button2 = EzSkinButton("XUẤT HÓA ĐƠN", 144, 280, 369, 33) ;, $font_color)GUICtrlSetFont(-1, 10, 800, 0, "Arial")GUICtrlSetColor(-1, 0xFF0000)GUISetState()ToolTip("Chương trình tính cước taxi của Công Ty VINASUN !",@DesktopWidth/2,5,"",0,2)HotKeySet("{ENTER}", "tinh")While 1 EzSkinOver() $msg = GUIGetMsg() Switch $msg Case $EzIcon[1] Exit case $EzIcon[2] GuiSetstate(@SW_MINIMIZE, $EzGUI) case $Button1 tinh() case $Button2 xuat() EndSwitchWEnd#endregionFunc tinh()If ((GUICtrlRead($Input3) or GUICtrlRead($Input1)) < 0) Then MsgBox(16,"Thông Báo","Bạn đã nhập sai dữ liệu ! Vui lòng thử lại !",3) Return Else if (GUICtrlRead($Input3) > 5 or GUICtrlRead($Input3) = 5) Then $1 = 0 else GUICtrlRead($Input3) > 5 then $2 = (GUICtrlRead($Input3) -5)* 400 EndIf ReturnElse if (GUICtrlRead($Input1) < 1.1 or GUICtrlRead($Input1) = 1.1) Then $e = 12000 + $1 + $2 GUICtrlSetData($Input2,$e ) Elseif (GUICtrlRead($Input1) < 30 or GUICtrlRead($Input1) = 30 and GUICtrlRead($Input1) <> 1.1) Then $b = (GUICtrlRead($Input1) - 1.1) * 11000 $a = $b + 12000 + $1 + $2 GUICtrlSetData($Input2,$a) Else $a = 28.9 * 11000 $b = GUICtrlRead($Input1) - 30 $c = $b * 8000 $d = $a + $c + 12000 + $1 + $2 GUICtrlSetData($Input2,$d) EndIf GUICtrlSetState($Button2,$GUI_ENABLE)EndIfToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 5s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2)Sleep(1000)ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 4s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2)Sleep(1000)ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 3s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2)Sleep(1000)ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 2s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2)Sleep(1000)ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 1s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2)Sleep(1000)ToolTip("Chương trình tính cước taxi của Công Ty MAI LINH !",@DesktopWidth/2,5,"",0,2)EndFuncFunc xuat()if($Input3 = '') ThenMsgBox(16,"Thông Báo","Bạn chưa nhập dữ liệu ! Hãy nhập dữ liệu vào rồi thử lại !",3)elseif ($Input1 = '') ThenMsgBox(16,"Thông Báo","Bạn chưa nhập dữ liệu ! Hãy nhập dữ liệu vào rồi thử lại !",3)EndIfIniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'phút', GUICtrlRead($Input3))IniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'KM ', GUICtrlRead($Input1))IniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'TIEN ', GUICtrlRead($Input2))IniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'NGAY GIO LAP ', _NowCalc())MsgBox(64,"Thông Báo","Đã xuất file thành công !",3)GUICtrlSetData($Input1,'')GUICtrlSetData($Input2,'')GUICtrlSetData($Input3,'')EndFunc..............................................nếu xong gửi mail ve dùm e.boy.teeny@yahoo.com.vnchân thành cảm ơn. Link to comment Share on other sites More sharing options...
trantanduc Posted March 14, 2011 Share Posted March 14, 2011 em cũng là 1 học sinh lớp 8 tập tành AutoIt đc 1 tuần chưa hiểu biết vè lập trình nhưng viết đc cái này như sau #include <XSkinAnimate.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=c:\documents and settings\user\desktop\vtc share\tan_duc22.kxf $VTCShare = GUICreate("VTCShare", 508, 260, 345, 150) XSkinAnimate($VTCShare, 2, 1) $Label1 = GUICtrlCreateLabel("Phần mềm share mã card VTC 2011 - Ver 1.0 ", 8, 8, 254, 17) $Group1 = GUICtrlCreateGroup("Ebank Account", 8, 40, 233, 121) $Label2 = GUICtrlCreateLabel("Tài Khoản", 16, 64, 59, 17) $tk = GUICtrlCreateInput("Tk Ebank", 80, 64, 145, 21, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) $Label3 = GUICtrlCreateLabel("Mật Khẩu ", 24, 96, 53, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $PasswordEdit = GUICtrlCreateInput("", 80, 104, 145, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) $Group2 = GUICtrlCreateGroup("VTC Cards", 272, 40, 225, 121) $Label4 = GUICtrlCreateLabel("Số Seri", 288, 56, 38, 17) $PM0046985566 = GUICtrlCreateInput("PM0046985566", 336, 56, 145, 21) $Label5 = GUICtrlCreateLabel("Mã thẻ", 288, 88, 37, 17) GUICtrlCreateInput("171965285589", 336, 88, 145, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER)) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label6 = GUICtrlCreateLabel("Lựa chọn trình duyệt", 16, 168, 175, 17) $Checkbox1 = GUICtrlCreateCheckbox("Internet Explorer", 16, 192, 105, 17) $Checkbox2 = GUICtrlCreateCheckbox("Mozilla Firefox", 128, 192, 97, 17) $Chrome = GUICtrlCreateCheckbox("Chrome", 232, 192, 89, 17) $Button1 = GUICtrlCreateButton("Kích hoạt", 16, 224, 89, 25, $WS_GROUP) $Progress1 = GUICtrlCreateProgress(312, 224, 145, 17) GUICtrlSetData(-1, 100) $Label7 = GUICtrlCreateLabel("Thông tin mạng", 232, 224, 79, 17) $Label8 = GUICtrlCreateLabel("100%", 464, 224, 30, 17) $Label9 = GUICtrlCreateLabel("Phần mềm made by Tan_duc22", 288, 8, 160, 17) $Button2 = GUICtrlCreateButton("Bản Quyền", 120, 224, 89, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $VTCShare Case $Label3 MsgBox(0,"MSG","Phải nhập Mật Khẩu thật mới có thể kích hoạt") Case $Chrome MsgBox(0,"Yêu Cầu","Hãy mở trình duyệt bạn đã chọn") Case $Button1 MsgBox(0,"tan_duc22 Thông báo","Chúc Mừng bạn đã kích hoạt thành công mã thẻ Bạn vui lòng không tắt hack và Truy cập http://ebank.vtc.vn để nạp thẻ") case $Button2 MsgBox(0,"Bản Quyền Của Tan_duc22","Bạn đang sử dụng phần mềm được viết bởi tan_duc22@yahoo.com - Liên hệ : Tan_duc22@yahoo.com để Làm hack Riêng cho mình") case $Checkbox1 MsgBox(0,"Yêu Cầu","Hãy mở trình duyệt bạn đã chọn") case $Checkbox2 MsgBox(0,"Yêu Cầu","Hảy Mở trình duyệt bạn đã chọn") EndSwitch WEnd Và em mún anh chỉ dẩn em các hàm sau !!! Hàm Liên kết đang nhập với web @@ : Chú thích , cách sử dụng , cú pháp Hàm khi nhấn vào 1 Button thì Sẻ chạy Cây Phần trăm : Chú thích , cách sử dụng , cú pháp Hàm đọc số liệu thông tin của mình khi đang nhập : như trên Hàm Mở ổ đĩa để chộn file ( em không nhớ là gì ) mà chọn file để hoạt động : như trên Hàm Cho button thực hiện chạy file trên : ( DLL , EXE ) Link to comment Share on other sites More sharing options...
JohnOne Posted March 14, 2011 Share Posted March 14, 2011 Please use code tags hãy sử dụng các thẻ code AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
NoN Posted May 7, 2011 Share Posted May 7, 2011 Cho em tham gia voi nhe, em cung thik ve lap trinh nhung chua biet gi nhieu, mong cac anh giup do Link to comment Share on other sites More sharing options...
Breaker9691 Posted June 24, 2012 Share Posted June 24, 2012 nếu muốn trans sang Eng thì tôi làm hết cho very much progarmer in VietNamese use AutoIT for write Virus , so we don't want friend in the world think vietnam like "THEY ONLY WRITE STUPIDVIRUS" , we want Our friends in the world to think about Vietnam is the place of the programer that what he talking abount . a just newbie i don't know anythink about this:( Link to comment Share on other sites More sharing options...
nvonimod Posted December 6, 2012 Share Posted December 6, 2012 Name Nguyễn Đức Thắng Nick nvonimod Tuổi: 1986 Gmail: Nguyenducthang.dn.vn@gmail.com Yahoo: Nguyenducthang_dn_vn@yahoo.com.vn Sky: Nguyenducthang.dn.vn Hân hạnh được làm quen Link to comment Share on other sites More sharing options...
dailong Posted September 29, 2013 Share Posted September 29, 2013 Mới làm quen được mấy ngày, thấy hay nên mê rất mong được học hỏi từ các bạn Link to comment Share on other sites More sharing options...
Recommended Posts