Tiêu đề: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Fri Mar 02, 2012 10:44 pm
Mình xin đăng code phần mềm chúc mừng 8 - 3 Cái này mình chỉ thu lượm mà thôi Code đê:
Code:
#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\..\..\Media\Icon\Flying heart.ico #AutoIt3Wrapper_Compression=4 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ----------------------------------------------------------------------------
Thiệp Giáng Sinh Tặng Duyên Iu Dấu !! Người viết: Phạm Đình Thiên Ân Email: vautoit@yahoo.com.vn Tớ thích cậu Duyên à ^^!
;~ Kiểm tra thư mục DirGetSize(@ScriptDir&'\DataFiles') If @error Then MsgBox(0,'','Không tìm thấy thư mục dữ liệu...'&@CR _ 'Kiểm tra lại xem (. .") hix hix') Exit EndIf ;~ Thư viện chương trình #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GUIImageList.au3> #include <GDIPlus.au3> #include <WinAPI.au3> #include <Misc.au3> ;~ Khai báo dữ liệu $title= 'Merry X-Mas' $loadBell= @ScriptDir&'\DataFiles\Pics\Bell.gif' $loadTree= @ScriptDir&'\DataFiles\Pics\Tree.gif' $loadSanta= @ScriptDir&'\DataFiles\Pics\Santa.gif' $WeWish= @ScriptDir&'\DataFiles\Musics\We wish you a Merry Chirstmas.mp3' $Heart2= @ScriptDir&'\DataFiles\Pics\Flying heart.png' $SnowPic= @ScriptDir&'\DataFiles\Pics\SnowSmall.png' $mainShow= True $Text1 = 'Chúc mừng giáng sinh "ấy" nhé ^^!'&@CR $Text1&= '!!! Merry Christmas !!!' $Text2 = 'Nếu "ấy" muốn thoát thì nhấn [ESC] nghen ^^!' Global $SnowSmall[12] ;~ Tùy chọn Opt('GUIOnEventMode',1) Opt('GUICloseOnESC',0) ;~ Phím tắt HotKeySet('{ESC}','__exit') ;~ Nhắc nhở MsgBox(0,'Send To Duyen','Nhớ bật âm thanh lên nghen ^^!~') ;~ Giao diện mở màn WinMinimizeAll() #include <XMas Main.au3> ;~ Hàm cho chương trình #include <Xmas Func.au3> While 1 For $i= 0 To 11 $SnowPos= WinGetPos($SnowSmall[$i]) WinMove($SnowSmall[$i],'',$SnowPos[0]+Random(-2,2),$SnowPos[1]+Random(1,5)) Sleep(1) If $SnowPos[1]> @DesktopHeight Then WinMove($SnowSmall[$i],'',Random(0,@DesktopWidth),-25) EndIf If $SnowPos[0]<-25 Then WinMove($SnowSmall[$i],'',@DesktopWidth,$SnowPos[1]) EndIf If $SnowPos[0]>(@DesktopWidth+25) Then WinMove($SnowSmall[$i],'',-25,$SnowPos[1]) EndIf Next $SantaPos= WinGetPos($Santa) Local $xSanta= Random(5,10) Local $ySanta= Random(-5,5) If $SantaPos[0]< -200 Then $SantaPos[0]= @DesktopWidth If $SantaPos[1]< -200 Then $SantaPos[1]= @DesktopHeight If $SantaPos[1]> @DesktopHeight Then $SantaPos[1]= 0 WinMove($Santa,'',$SantaPos[0]- $xSanta,$SantaPos[1]-$ySanta) If _IsPressed('0D') Then ExitLoop WEnd For $i= 100 To 0 Step -1 SoundSetWaveVolume($i) WinSetTrans($main,'',$i*2) Sleep(50) Next $mainShow= False GUIDelete($main)
Ai muốn giải thích thì liên hệ mình nha! :P
Trong autoit chú trọng nhất là #include cái này là lệnh khai báo thư viện Msgbox(chỉ số, "Tiêu đề", "Nội dung",thời gian tắt msgbox, mục bố mẹ) Trong đó: Chỉ số là các số: từ 1 đến 99 và 4096 đây là các số để hiển thị giao diện của msgbox Thời gian tắt: Nếu bạn nhập -1 thì nó sẽ không tắt nếu như bạn không nhấn tắt nó Nếu bạn chọn 1 nghĩa là 1 giây sau nó sẽ tự động tắt
Bây vờ tớ buồn ngủ wa nên đi ngủ đây! sau này tớ sẽ post tiếp các lệnh cơ bản cho các bạn :sleep:
Attachments
Merry X-Mas.zip
File đính kèm
You don't have permission to download attachments.
(355 Kb) Downloaded 94 times
Fucktheworld Admin: Tổng Tư Lệnh
Giới tính :
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích : Trảm Phong
Tài Sản Huân Chương:
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Sat Mar 03, 2012 1:05 pm
Tải về rồi mà open nó báo lỗi là sao chủ thớt
Admin Admin: Tổng Tư Lệnh
Giới tính :
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đến từ : Kon Tum
Nghề nghiệp/Sở thích : Chém Gió/Spam
Tài Sản Huân Chương: Xe đời mới
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Sat Mar 03, 2012 4:35 pm
Chưa đủ dữ liệu mần
Fucktheworld Admin: Tổng Tư Lệnh
Giới tính :
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích : Trảm Phong
Tài Sản Huân Chương:
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Sun Mar 04, 2012 9:21 am
Làm nhanh lên đê cho a e test thử nhá bác :bounce:
Admin Admin: Tổng Tư Lệnh
Giới tính :
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đến từ : Kon Tum
Nghề nghiệp/Sở thích : Chém Gió/Spam
Tài Sản Huân Chương: Xe đời mới
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Sun Mar 04, 2012 9:26 am
Làm xong rồi nhưng mà dữ liệu tới 5mb luôn sài mạng 3g nên không dám mạo hiểm mà post lên
Fucktheworld Admin: Tổng Tư Lệnh
Giới tính :
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích : Trảm Phong
Tài Sản Huân Chương:
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Wed Mar 07, 2012 1:19 pm
Thế thì bác copy vào usb rồi khi nào cho ae rủa mắt :<40>.:
Admin Admin: Tổng Tư Lệnh
Giới tính :
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đến từ : Kon Tum
Nghề nghiệp/Sở thích : Chém Gió/Spam
Tài Sản Huân Chương: Xe đời mới
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Wed Mar 07, 2012 10:47 pm
Để mai cop lên cho xem! Hay vô đối
Fucktheworld Admin: Tổng Tư Lệnh
Giới tính :
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích : Trảm Phong
Tài Sản Huân Chương:
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Wed Mar 07, 2012 10:57 pm
Chưa biết được đâu.
Phần mềm bác thu lượm mà :;48-:
vegito_son Học Viên
Posts : 2
Gia nhập ngày : 01/03/2014
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Sat Mar 01, 2014 6:28 pm
Code có viurus à?
Sponsored content
Tiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3