Jump to content

Autoit-Báo Danh (Vietnamese only)

TranMinhDuc
 Share

Recommended Posts

PsaltyDS Universalist

PsaltyDS

Posted
Posted (edited)

Posted Image

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?

:P

Edited 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
  • 1 year later...
Mrc2 Seeker

Mrc2

Posted
Posted

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 taxi

và đâ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()

EndSwitch

WEnd

#endregion

Func 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

Return

Else

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)

EndIf

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: 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)

EndFunc

Func xuat()

if($Input3 = '') Then

MsgBox(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 = '') Then

MsgBox(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)

EndIf

IniWrite("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.vn

chân thành cảm ơn.

Link to comment
Share on other sites
  • 1 month later...
trantanduc Seeker

trantanduc

Posted
Posted

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 :P

Hàm Cho button thực hiện chạy file trên : ( DLL , EXE )

Link to comment
Share on other sites
  • 1 month later...
  • 1 year later...
Breaker9691 Seeker

Breaker9691

Posted
Posted

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 :D

that what he talking abount .

a just newbie i don't know anythink about this:(

Link to comment
Share on other sites
  • 5 months later...
  • 9 months later...
Guest
This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...