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Ủ  GalleryGallery  Tìm kiếmTìm kiếm  Latest imagesLatest images  Đă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
CHÀO MỪNG BẠN ĐẾN VỚI
AUTOIT.FORUMVI.COM

AutoIT Việt


 
Trang ChínhTrang Chính  TRANG CHỦTRANG CHỦ  GalleryGallery  Tìm kiếmTìm kiếm  Latest imagesLatest images  Đă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
Admin

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đế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


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptyFri 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
https://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
Fucktheworld

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đế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:


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptySat 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
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
Admin

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đế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


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptySat 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
https://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
Fucktheworld

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đế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:


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptySun 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
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
Admin

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đế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


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptySun 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
https://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
Fucktheworld

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đế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:


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptyWed 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
Admin
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
Admin

Giới tính : Nam
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đế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


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptyWed 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

Về Đầu Trang Go down
https://autoit.forumvi.com
Fucktheworld
Admin: Tổng Tư Lệnh
Admin: Tổng Tư Lệnh
Fucktheworld

Giới tính : Nam
Posts : 941
Gia nhập ngày : 03/03/2012
Tuổi : 29
Đế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:


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptyWed 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
vegito_son
Học Viên
Học Viên
vegito_son

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


Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 Empty
Bài gửiTiêu đề: Re: Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3   Code Phần Mềm Tặng em iu vào ngày Mùng 8 - 3 EmptySat Mar 01, 2014 6:28 pm

Code có viurus à?
Tài Sản của vegito_son
Về Đầu Trang Go down
Sponsored content





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

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-