Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3
Trang ChínhTrang Chính  TRANG CHỦTRANG CHỦ  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
AutoIT Việt
CHÀO MỪNG BẠN ĐẾN VỚI
AUTOIT.FORUMVI.COM

AutoIT Việt


 
Trang ChínhTrang Chính  TRANG CHỦTRANG CHỦ  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
>> LIÊN MINH HUYỀN THOẠI (LOL) <<

Share | 
 

 Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiê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 lol!
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 à ^^!

#ce ----------------------------------------------------------------------------

;~ 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:
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Attachments
Merry X-Mas.zip
File đính kèm
You don't have permission to download attachments.
(355 Kb) Downloaded 94 times
Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 24
Đến từ Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Trảm Phong

Tài Sản
Huân Chương:


Bài gửiTiê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 🇳🇴
Tài Sản của Fucktheworld
Tài Sản
Huân Chương:

Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiê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 lol!
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 24
Đến từ Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Trảm Phong

Tài Sản
Huân Chương:


Bài gửiTiê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:
Tài Sản của Fucktheworld
Tài Sản
Huân Chương:





Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiê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
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới

Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 24
Đến từ Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Trảm Phong

Tài Sản
Huân Chương:


Bài gửiTiê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>.:
Tài Sản của Fucktheworld
Tài Sản
Huân Chương:





Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 24
Đến từ Đến từ : Kon Tum
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Chém Gió/Spam

Tài Sản
Huân Chương: Xe đời mới


Bài gửiTiê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
Tài Sản của Admin
Tài Sản
Huân Chương: Xe đời mới







ĐỜI VÔ LỐI
Về Đầu Trang Go down
Xem lý lịch thành viên http://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
avatar

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 24
Đến từ Đến từ : Earthly Paradise
Nghề nghiệp/Sở thích Nghề nghiệp/Sở thích : Trảm Phong

Tài Sản
Huân Chương:


Bài gửiTiê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-:
Tài Sản của Fucktheworld
Tài Sản
Huân Chương:





Về Đầu Trang Go down
Xem lý lịch thành viên
vegito_son
Học Viên
Học Viên
avatar

Posts : 2
Gia nhập ngày : 01/03/2014


Bài gửiTiê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 à?
Tài Sản của vegito_son
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content





Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   

Tài Sản của Sponsored content
Về Đầu Trang Go down
 

Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
AutoIT Việt :: Sản Phẩm - Code Mẫu-