Share source app tỏ tình sến súa AUTOIT
#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=cats.ico #AutoIt3Wrapper_Compression=4 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- Gửi người tui thương Hình Ảnh: ThienAnKID Email: [email protected] Giao Diện: freeze_love ^^! Anh Em Xem Xong Nhớ Thanks Tớ Nhá :D #ce ---------------------------------------------------------------------------- ;Khai báo thư viện #include #include #include #include #include #include ;Khuyến khích MsgBox(0,'I Love U','Nhớ sử dụng tai nghe hay loa nghen ^^!') ;Khai báo mảng và thông tin Global $install[10] $install[0]= 'data/start.mp3' $install[1]= 'data/end.mp3' $install[2]= 'data/gift.exe' $install[3]= 'data/I Love U 1.gif' $install[4]= 'data/I Love U 2.gif' $install[5]= 'data/I Love U 3.gif' $install[6]= 'data/Love.gif' $install[7]= 'data/Heo 1.gif' $install[8]= 'data/Heo 2.gif' $install[9]= 'data/heart.jpg' $w= @DesktopWidth/1024 $h= @DesktopHeight/768 $all= 1 $title= 'I Love U' ;Cập nhật dữ liệu ProgressOn('','Đợi cập nhật dữ liệu xíu nghen ^^!','') DirCreate('data') Sleep(100) FileInstall('data/start.mp3','data/start.mp3') ProgressSet(10) FileInstall('data/end.mp3','data/end.mp3') ProgressSet(20) FileInstall('data/gift.exe','data/gift.exe') ProgressSet(30) FileInstall('data/I Love U 1.gif','data/I Love U 1.gif') ProgressSet(40) FileInstall('data/I Love U 2.gif','data/I Love U 2.gif') ProgressSet(50) FileInstall('data/I Love U 3.gif','data/I Love U 3.gif') ProgressSet(60) FileInstall('data/Love.gif','data/Love.gif') ProgressSet(70) FileInstall('data/Heo 1.gif','data/Heo 1.gif') ProgressSet(80) FileInstall('data/Heo 2.gif','data/Heo 2.gif') ProgressSet(90) FileInstall('data/heart.jpg','data/heart.jpg') ProgressSet(100) Sleep(100) ProgressOff() Sleep(1000) ;Tạo giao diện $msg = 'Hehe.. em vừa chạy 1 chương trình mà lẽ ra là em không nên chạy!!!'&@CRLF $msg &= 'Bây giờ, anh có 1 tin bùn và 1 tin vui dành cho em đó ^^!.. Nghe cho kỹ không là hối hận á..'&@CRLF $msg &= 'Tin bùn trước nha ^^! cái computer của em đã dính 1 con virus cực mạnh!! mạnh đến nỗi..'&@CRLF $msg &= 'Con virus này không chương trình nào có thể diệt được !!>.<!! Sợ chưa ^^!'&@CRLF $msg &= 'Nhưng đừng lo... em còn tin vui mà ^^! Hi hi..!! Tin vui này có lẽ sẽ giúp em đỡ lo hơn á há há ^^!'&@CRLF $msg &= 'Tin vui là con virus này sợ anh lắm ^^! há há há ... tại nó là đệ tử của anh mà ^^!'&@CRLF $msg &= 'Anh sẽ kiu nó tha cho em nếu em ngoan ngoãn nghe lời anh... mọi biện pháp chống đối thì... có lẽ ..'&@CRLF $msg &= 'anh không bảo đảm được sự an toàn cho cái computer của em đâu hehe.. vậy nên ráng ngoan ngoãn y nghen..'&@CRLF $msg &= 'Anh không kiu em làm gì gê gớm đâu nên đừng có lo.. công việc mà anh bỉu em làm cực kỳ đơn giản ^^!'&@CRLF $msg &= 'Anh thì biết là tim anh đã loạn nhịp khi gặp em òy đó ^^! vậy nên em phải thông củm cho anh nghen.. '&@CRLF $msg &= 'Mau mau nhập vào cái khung kia câu "Em yêu anh lúm ý" đi òy anh tha cho.. à nhầm .. anh bỉu đệ tử tha cho ^^!'&@CRLF $msg &= 'Anh theo dõi từng chữ em nhập nên đừng nghĩ nhập gì cũng đc nhááá !! ^^! Nhớ nhập cho chính xác những gì anh ghi'&@CRLF $msg &= 'nhập nhanh nhanh đi.. sẽ có 1 bất ngờ nhỏ á ^^!' $string = 'I Love U So Much !!(-^-^-) ' WinMinimizeAll() $main = GUICreate($title,@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP) GUISetBkColor(0x000000) SoundSetWaveVolume(0) SoundPlay ($install[0]) ;Hàm chỉnh âm lượng For $k= 0 To 100 Step +1 SoundSetWaveVolume($k) Sleep(50) Next GUISetFont(11*$all,350*$all,0,'Tahoma') WinSetOnTop($title,'',1) $input= GUICtrlCreateInput('', 400*$w, 510*$h,300*$w,23*$h,$ES_CENTER) $label2= GUICtrlCreateLabel('',50*$w, 100*$h,200*$w,23*$h) $label= GUICtrlCreateLabel($msg,200*$w, 210*$h,800*$w,300*$h,$SS_RIGHT) _GUICtrlCreateGIF($install[3], 260*$w, 40*$h,0,0,0,0) _GUICtrlCreateGIF($install[8], 510*$w, 550*$h, 0,0,0,0) _GUICtrlCreateGIF($install[4], 50*$w+(StringLen($string)/2),100*$h+25, 0,0,0,0) GUICtrlSetColor($label2,0xFFAA00) GUICtrlSetColor($label,0xFFFFFF) WinSetTrans($title,'',0) GUISetState(@SW_SHOW,$title) BlockInput(1) For $a= 0 To 200 Step +5 WinSetTrans($title,'',$a) Sleep(1) Next BlockInput(0) GUISetState(@SW_SHOW,$main) While GUICtrlRead($input) <> 'Em yêu anh lúm ý' $read= GUICtrlRead($input) If $read= 'e' Then ToolTip('Chữ cái đầu tiên đã được gõ hi hi ^^!',620*$w, 620*$h,'',0,1) EndIf If $read= 'em' Then ToolTip('Hi hi.. "em" làm sao nè ^^! Gõ tiếp đi',615*$w, 635*$h,'',0,1) EndIf If $read= 'em ye' Then GUICtrlSetData($input,'em yê') EndIf If $read= 'em yêu' Then ToolTip('Đây là chữ anh mong được em gõ nhất nè ^^!',620*$w, 620*$h,'',0,1) EndIf If $read= 'em yêu anh' Then ToolTip('Uhmm..Anh cũng Yêu em Ngốc ạ ^^!',615*$w, 635*$h,'',0,1) EndIf If $read= 'em yêu anh lu' Then GUICtrlSetData($input,'em yêu anh lú') EndIf If $read= 'em yêu anh lúm' Then ToolTip('Hi hi yêu lúm hả?',620*$w, 620*$h,'',0,1) EndIf If $read= 'em yêu anh lúm y' Then GUICtrlSetData($input,'em yêu anh lúm ý') EndIf If $read= 'em yêu anh lúm ý' Then ToolTip('Anh cũng yêu em lúm ý ^^!',615*$w, 635*$h,'',0,1) EndIf $string= StringLeft($string, StringLen($string)-1) Sleep(500) $string= StringRight($string,1) &$string GUICtrlSetData($label2,$string) If ProcessExists('taskmgr.exe') Then ProcessClose('taskmgr.exe') ElseIf ProcessExists('cmd.exe') Then ProcessClose('cmd.exe') EndIf WEnd ToolTip('Hi hi.. Em ngoan lắm á ^^! ngoan và dễ thương vậy ai dám phá chứ !',620*$w, 620*$h,'',0,1) Sleep(3000) ToolTip('Hi hi.. có cái này cho em xem nè ^^!',615*$w, 635*$h,'',0,1) Sleep(3000) ToolTip('') For $a= 200 To 0 Step -5 WinSetTrans($title,'',$a) Sleep(1) Next GUIDelete($main) ;Khai báo thông tin $msg2 = 'Gửi tới em người mà tui thương .. hi hi'&@CRLF $msg2 &= 'Những gì mà em sắp thấy đây là những lời thật lòng từ anh.. Baby hãy tin anh ^^!'&@CRLF $msg2 &= '"Xăng có thể cạn.. lốp có thể mòn..'&@CRLF $msg2 &= 'Nhưng tình củm anh dành cho em sẽ không bao giờ thay đổi"'&@CRLF $msg2 &= 'Thấy tình củm của anh gê gúm hông ^^! nhìn thui chắc em cũng hiểu'&@CRLF $msg2 &= 'Em quan trọng thế nào òi nhỉ ^^!.. "Angel" của lòng anh :D với đôi cánh long lanh'&@CRLF $msg2 &= 'He he.. chắc em nghĩ anh "sến" lúm đúng hông ^^! bik sao đây.. Tim nó bảo tay viết vậy á!'&@CR $msg2 &= 'Chứ tay có muốn viết đâu ^^!.. Nghe sến thiệt nhưng toàn là lời thật lòng á ^^! '&@CR $msg2 &= 'Ngày nào cũng mong gặp em ^^! mún được chứng tỏ cho em xem.. anh êu em lém ý..'&@CR $msg2 &= 'Chỉ cần bên em 1 tý thui là cũng đủ làm anh vui cả tháng ^^! Hí hí.. '&@CR $msg2 &= 'Anh sẽ không bao giờ chán.. Chán gì nhỉ ??? Sẽ không bao giờ chán nhìn thấy em ^^!'&@CR $msg2 &= 'Mún gặp "angel" cả ngày.. Mong angel lun gặp may.. Và biết thêm nhiều điều hay!!'&@CR $msg3 = 'Mún được cùng em đắp xây ^^! '&@CRLF $msg3 &= 'Đắp xây gì ta ?? Thì đắp xây tình yêu chúng ta'&@CRLF $msg3 &= 'Nghe thui cũng thấy hạnh phúc òy ha ^^!'&@CRLF $msg3 &= 'Anh sẽ cố gắng để điều đó không quá xa !!!'&@CR $msg3 &= 'Sẽ yêu em thiết tha trong những tháng ngày ta đi qua ^^!'&@CR $msg3 &= 'Vì anh yêu em thui mà ^^! yêu em hơn má hơn ba hơn cả ông bà của anh ^^!'&@CR $msg3 &= 'Chỉ nghĩ có thế thui mà anh đã run mất rồi'&@CR $msg3 &= 'Ngại quá đi thui mặt đỏ hết rùi nè .. ^^!'&@CR $msg3 &= 'Thui anh ứ nói nữa đâu ^^!... '&@CR $msg3 &= 'Anh có cái này cho em xem nàk ^^!'&@CR $msg3 &= 'Em nhấn Enter đi ^^!'&@CR $end = 'Món quà này tuy không giá trị nhưng nó chứa đựng tình củm của anh!'&@CRLF $end &= 'Mong rằng sau khi nhận được những lời nói từ trái tim anh! em sẽ cười nhiều hơn trước'&@CRLF $end &= '1 Ngày tốt lành nhé ^^! I Miss You ..' ;Tạo giao diện $main= GUICreate($title,@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP) GUISetBkColor(0x000000,$main) WinSetTrans($main,"",0) GUISetState() $main2= GUICreate("",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP,BitOR($WS_EX_MDICHILD,$WS_EX_TOOLWINDOW),$main) GUISetFont(11*$all,300*$all,0,'Tahoma') GUISetBkColor(0x000000) $label3= GUICtrlCreateLabel($msg2,200*$w,225*$h,800*$w,300*$h,$SS_RIGHT) $label4= GUICtrlCreateLabel($msg3,30*$w,480*$h,800*$w,300*$h,$SS_LEFT) GUICtrlSetColor($label3,0x00FFAA) GUICtrlSetColor($label4,0xFF0000) $Pic4 =_GUICtrlCreateGIF($install[6], 120*$w, 200*$h, 0,0,0,0) $Pic5 = _GUICtrlCreateGIF($install[7], 720*$w, 500*$h, 0,0,0,0) $Pic6 = _GUICtrlCreateGIF($install[5], 500*$w, 1, 0,0,0,0) WinSetTrans($main2,'',0) GUISetState(@SW_SHOW,$title) $main3= GUICreate("",@DesktopWidth,@DesktopHeight,0,-@DesktopHeight,$WS_POPUP,$WS_EX_TOOLWINDOW) $lastpic= GUICtrlCreatePic($install[9],0,0,@DesktopWidth,@DesktopHeight) GUISetBkColor(0x000000,$main3) GUISetState() BlockInput(1) For $a= 0 To 255 Step +5 WinSetTrans($main2,'',$a) Sleep(1) Next WinSetTrans($main,"",255) BlockInput(0) GUISetState(@SW_SHOW,$main2) ;Vòng lặp While 1 If ProcessExists('taskmgr.exe') Then ProcessClose('taskmgr.exe') ElseIf ProcessExists('cmd.exe') Then ProcessClose('cmd.exe') EndIf If _IsPressed('0D') Then ;Hàm chạy trái tim For $i= 0 To -@DesktopHeight Step -2 WinMove($main2,"",0,$i) Sleep(10) Next GUIDelete($main2) For $i= -@DesktopHeight To 0 Step +2 WinMove($main3,"",0,$i) Sleep(10) Next GUIDelete($main) Sleep(1000) ;Hàm giảm âm lượng For $k= 100 To 0 Step -1 SoundSetWaveVolume($k) Sleep(50) Next BlockInput(1) SoundPlay($install[1]) For $k= 0 To 100 Step +1 SoundSetWaveVolume($k) Sleep(10) Next Run($install[2]) Sleep(30000) BlockInput(0) MouseClick('left') Sleep(2000) For $a= 255 To 0 Step -2 WinSetTrans($main3,'',$a) Sleep(1) Next GUIDelete($main3) MsgBox(0,'I Love U', $end) Exit EndIf WEnd