Code Anh iu Em

Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập


Welcome to Forums Haku
Chào mừng các bạn đến với diễn đàn
Chúc các bạn có những giờ phút thư giãn thoải mái tại diễn đàn
Chúc các bạn luôn thành công trong cuộc sống

<--Code by Admin Haku -->

Share|
Tiêu đề

Code Anh iu Em

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Tác giảThông điệp

Admin
Member
avatar

Tổng bài gửi : 1074
Được Cảm Ơn : 538
Đến từ : Hà Ná»™i
Tài năng của Admin
Hạng: Member
Level:1074
Tài năng:/300


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

Bài gửiTiêu đề: Code Anh iu Em Mon Jul 08, 2013 11:07 pm

Code Anh iu Em

Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=AnhThichEm.exe
#AutoIt3Wrapper_Outfile_x64=AnhThichEm.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------


 Author:         Admin.Haku


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

WinMinimizeAll()

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

FileInstall ("baby.jpg", "baby.jpg")
FileInstall ("valentine.jpg", "valentine.jpg")
$main1= GUICreate ("",400,200)
GUISetBkColor (0x00FFaa)
GUISetFont (9, "Comic Sans MS")
$msgbox= GUICtrlCreateLabel ('Trông Ấy dễ thương thế nào ý… ^^!          '&@CRLF&' Dễ thương nhứt trong tất cả những người mình biết luôn :D    '&@CRLF&' Thật 100% lun đấy ^^!'&@CRLF&' Mình nhìn Ấ sao mà thấy tim mình loạn nhịp cả lên…      '&@CRLF&' Có lẽ mình thích Ấ mất tiu òi :P '&@CRLF&' Mình tự hỏi hổng biết Ấy có thích mình hông nhỉ… :D ?',10,20,350,100)
$traloi= GUICtrlCreateButton ("Trả Lời",160, 150, 52, 27)
GUISetState()
While 1
   $select= GUIGetMsg()
   Select
Case $select= $GUI_EVENT_CLOSE
   MsgBox (0, "Haku.4rumer.Com", 'Ấy chưa trả lời mình mà…   Trả lời mình đi ^^!')
Case $select= $traloi
   ExitLoop
   EndSelect
WEnd
GUIDelete($main1)

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$main= GUICreate ("", 1000, 379)
GUISetBkColor (0x00FFaa)
$mainpic= GUICtrlCreatePic ("baby.jpg", 250, 1, 501, 379)
GUISetFont (9, "Comic Sans MS")
$yeu= GUICtrlCreateButton ("Thích", 20, 150, 100, 85)
$kyeu= GUICtrlCreateButton ("Không Thích", 850, 150, 125, 85)
GUISetState()
Global $mouse= True, $var[1]

Func _Mouse()
   Sleep (100)
   While $mouse
      $var= MouseGetPos()
      $select= GUIGetMsg()

      Select
      Case $select= $GUI_EVENT_CLOSE
         MsgBox (0, "Haku.4rumer.Com", 'Ấy chưa trả lời mình mà…   Trả lời mình đi ^^!')
      Case $select= $yeu
         MsgBox (0,"", 'Mình biết ngay mà, Biết ngay là Ấy cũng thích mình mà ^^!  HìHì')
         ExitLoop
      Case $select=$kyeu
         MsgBox (0,"Haku.4rumer.Com",'Ấy thật nhẫn tâm :(, lời Ấy nói làm tim mình muốn vỡ cả ra… hix hix   Tự nhiên mún nghe bài heartbroken quá '&@CRLF&'Ấy xác nhận lại lần nữa đi ^^!')
      Case $var[0]< 100
         $var[0]= 100
      Case $var[0]> 300
         $var[0]= 300
      Case $var[1]< 300
         $var[1]= 300
      Case $var[1]> 510
         $var[1]= 510
      EndSelect
      MouseMove ($var[0], $var[1])
   WEnd
   $pic= "valentine.jpg"
   SplashImageOn ("Haku.4rumer.Com", $pic, 1000, 600)
   Sleep(5000)
   SplashOff()
   WinMinimizeAllUndo()
   FileDelete ("baby.jpg")
   FileDelete ("valentine.jpg")
   Exit
EndFunc

While 1
   $var= MouseGetPos()
   If ($var[0]>1 And $var[0]<1000 And $var[1]>1 And $var[1]< 1000) Then
      _Mouse()
   EndIf
   Sleep (100)
WEnd


Ảnh trong thư mục Data
1 cái tên: baby.jpg
1 cái tên: valentine.jpg




Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://haku.4rumer.com

Tiêu đề

Code Anh iu Em

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
Forum Häkü Cộng Đồng Chém Gió :: CONG NGHE THONG TIN :: Thủ thuật-