Code Em Có Iu anh Không - Chữ Nhấp Nháy

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 Em Có Iu anh Không - Chữ Nhấp Nháy

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 Em Có Iu anh Không - Chữ Nhấp Nháy Wed Jul 10, 2013 1:30 am

Code Em Có Iu anh Không - Chữ Nhấp Nháy



Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=test.Haku.exe
#AutoIt3Wrapper_Outfile_x64=test.Haku.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Global $Text = 'Trả Lời Thật Lòng Nhé'
Global $min = 0
Global $max = 9
Global $i = 1

Dim $iMouseX, $iOldMouseX, $iMouseY, $iOldMouseY
Dim $TitelleistenHoehe = 32

Opt("MouseCoordMode", 0)
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Haku.4rumer.Com", 170, 90,-1,-1,$WS_CAPTION)
$label01 = GUICtrlCreateLabel('EM CÓ YÊU ANH KHÔNG?',5, 5, 165,20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
$Bu_YES =  GUICtrlCreateButton('Có',15, 25, 60,35)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Bu_NO =  GUICtrlCreateButton('Không',95, 25, 60,35)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$label02 = GUICtrlCreateLabel($Text,22, 75, 130,22)
;GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetColor(-1, 0x3333FF)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetOnEvent($Bu_YES, "_Bu_YES")
GUICtrlSetOnEvent($Bu_NO, "_Bu_NO")

While 1
   _YES_NO()
   _HieuUngAbout()
  Sleep(50)
WEnd
Func _HieuUngAbout()
  Sleep(50)
  $i += 1
  GUICtrlSetData($Label02,StringLeft($text,$i))
  GUICtrlSetColor($Label02,0xFF&Random($min, $max, 1)&Random($min, $max, 1)&Random($min, $max, 1)&Random($min, $max, 1))
  If $i >= StringLen($text) Then $i = 0
  EndFunc

Func _YES_NO()
  $iMouseX = MouseGetPos(0)
  $iMouseY = MouseGetPos(1)

If $iMouseX > 15 And $iMouseX < 80 And $iMouseY > 16 + $TitelleistenHoehe And $iMouseY < 55 + $TitelleistenHoehe Then
     If GUICtrlRead($Bu_NO) = 'Có' And GUICtrlRead($Bu_YES) = 'Không' Then
     GUICtrlSetData($Bu_NO, 'Không')
     GUICtrlSetData($Bu_YES, 'Có')
     EndIf
ElseIf $iMouseX > 95 And $iMouseX < 160 And $iMouseY > 16 + $TitelleistenHoehe And $iMouseY < 55 + $TitelleistenHoehe Then
      If GUICtrlRead($Bu_NO) = 'Không' And GUICtrlRead($Bu_YES) = 'Có' Then
     GUICtrlSetData($Bu_NO, 'Có')
     GUICtrlSetData($Bu_YES, 'Không')
     EndIf
EndIf
EndFunc

Func _Bu_NO()
  If GUICtrlRead($Bu_NO) = 'Không' And GUICtrlRead($Bu_YES) = 'Có' Then
     GUICtrlSetData($Bu_NO, 'Có')
     GUICtrlSetData($Bu_YES, 'Không')
  ElseIf GUICtrlRead($Bu_NO) = 'Có' Or GUICtrlSetData($Bu_YES, 'Có') Then
    MsgBox(262144+64, 'Haku.4rumer.Com', 'THIỆT KHÔNG VẬY E?'  &@CRLF& "ĐỪNG LÀM ANH MỪNG HỤT NHE :-X")
    MsgBox(262144+64, 'Haku.4rumer.Com', 'ANH... s2 <3 :-X'  &@CRLF& "ANH CŨNG YÊU EM NHIỀU LẮM ĐÓ... :-X")
    Exit
  EndIf
EndFunc

Func _Bu_YES()
    If GUICtrlRead($Bu_NO) = 'Có' And GUICtrlRead($Bu_YES) = 'Không' Then
     GUICtrlSetData($Bu_NO, 'Không')
     GUICtrlSetData($Bu_YES, 'Có')
  ElseIf GUICtrlRead($Bu_NO) = 'Có' Or GUICtrlSetData($Bu_YES, 'Có') Then
    MsgBox(262144+64, 'Haku.4rumer.Com', 'THIỆT KHÔNG VẬY E?'  &@CRLF& "ĐỪNG LÀM ANH MỪNG HỤT NHE :-X")
    MsgBox(262144+64, 'Haku.4rumer.Com', 'ANH... s2 <3 :-X'  &@CRLF& "ANH CŨNG YÊU EM NHIỀU LẮM ĐÓ... :-X")
    Exit
  EndIf
EndFunc

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

scanid
Member

Tổng bài gửi : 3
Được Cảm Ơn : 0
Tài năng của scanid
Hạng: Member
Level:3
Tài năng:/300

Bài gửiTiêu đề: Re: Code Em Có Iu anh Không - Chữ Nhấp Nháy Wed Mar 19, 2014 5:05 pm

Dùng ra sao ad

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

Về Đầu Trang Go down

Xem lý lịch thành viên

Tiêu đề

Code Em Có Iu anh Không - Chữ Nhấp Nháy

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-