Function KillBaby()
'///CaNsyN.
On Error Resume Next
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.deleteFolder (Environ("HOMEDRiVE") & "\WINDOWS\Prefetch")
ds.deleteFolder (Environ("HOMEDRiVE") & "\GamersFirst\KnightOnline\info")
On Error Resume Next
Kill (Environ("HOMEDRiVE") & "\GamersFirst\Knight Online\log.klg")
Kill (Environ("HOMEDRiVE") & "\GamersFirst\Knight Online\info\*.*")
Kill (Environ("HOMEDRiVE") & "\GamersFirst\Knight Online\Scheduler.ini") '
Kill (Environ("HOMEDRiVE") & "\GamersFirst\Knight Online\log.klg")
Kill (Environ("HOMEDRiVE") & "\Program Files\GamersFirst\Knight Online\info\*.*")
Kill (Environ("HOMEDRiVE") & "\Program Files\GamersFirst\Knight Online\Scheduler.ini")
'Log
Kill ("C:\GamersFirst\Knight Online\log.klg")
Kill ("D:\GamersFirst\Knight Online\log.klg")
Kill ("E:\GamersFirst\Knight Online\log.klg")
Kill ("F:\GamersFirst\Knight Online\log.klg")
Kill ("G:\GamersFirst\Knight Online\log.klg")
'info
Kill ("C:\GamersFirst\Knight Online\info\*.*")
Kill ("D:\GamersFirst\Knight Online\info\*.*")
Kill ("E:\GamersFirst\Knight Online\info\*.*")
Kill ("F:\GamersFirst\Knight Online\info\*.*")
Kill ("G:\GamersFirst\Knight Online\info\*.*")
'Schedur
Kill ("C:\GamersFirst\Knight Online\Scheduler.ini")
Kill ("D:\GamersFirst\Knight Online\Scheduler.ini")
Kill ("E:\GamersFirst\Knight Online\Scheduler.ini")
Kill ("F:\GamersFirst\Knight Online\Scheduler.ini")
Kill ("G:\GamersFirst\Knight Online\Scheduler.ini")
'LogPro
Kill ("C:\Program Files\GamersFirst\KnightOnline\log.klg")
Kill ("D:\Program Files\GamersFirst\Knight Online\log.klg")
Kill ("E:\Program Files\GamersFirst\Knight Online\log.klg")
Kill ("F:\Program Files\GamersFirst\Knight Online\log.klg")
Kill ("G:\Program Files\GamersFirst\Knight Online\log.klg")
'infoPro
Kill ("C:\Program Files\GamersFirst\Knight Online\info\*.*")
Kill ("D:\Program Files\GamersFirst\Knight Online\info\*.*")
Kill ("E:\Program Files\GamersFirst\Knight Online\info\*.*")
Kill ("F:\Program Files\GamersFirst\Knight Online\info\*.*")
Kill ("G:\Program Files\GamersFirst\Knight Online\info\*.*")
'SchedurPro
Kill ("C:\Program Files\GamersFirst\Knight Online\Scheduler.ini")
Kill ("D:\Program Files\GamersFirst\Knight Online\Scheduler.ini")
Kill ("E:\Program Files\GamersFirst\Knight Online\Scheduler.ini")
Kill ("F:\Program Files\GamersFirst\Knight Online\Scheduler.ini")
Kill ("G:\Program Files\GamersFirst\Knight Online\Scheduler.ini")
End Function
Function Temizle()
'///CaNsyN. ..
On Error Resume Next
Dim KO_TAMYOL As String, KO_Dir As String, KO_ExeADI As String
Set KayıtDefteri = CreateObject("Wscript.shell")
Set SystemFile = CreateObject("Scripting.FileSystemObject")
'User temizle & Yol Bul
KayıtDefteri.RegWrite "HKEY_CURRENT_USER\Software\KnightOnline\SERVICE", "Temiz"
KO_Dir = KayıtDefteri.regread("HKEY_CURRENT_USER\Software\KnightOnline\PATH")
KO_ExeADI = KayıtDefteri.regread("HKEY_CURRENT_USER\Software\KnightOnline\EXE")
'Machine temizle & Yol Bul
KayıtDefteri.RegWrite "HKEY_LOCAL_MACHINE\Software\KnightOnline\SERVICE", "Temiz"
KO_Dir = KayıtDefteri.regread("HKEY_LOCAL_MACHINE\Software\KnightOnline\PATH")
KO_ExeADI = KayıtDefteri.regread("HKEY_LOCAL_MACHINE\Software\KnightOnline\EXE")
'Bulunan Yoldaki Dosyaları Temizle
SystemFile.DeleteFile KO_Dir & "\Scheduler.ini"
SystemFile.DeleteFile KO_Dir & "\*.klg"
SystemFile.DeleteFile KO_Dir & "\info\*.*"
SystemFile.DeleteFile KO_Dir & "\log.KLG"
'Tüm K2 Dosyalarını temizle
KayıtDefteri.RegDelete "HKEY_CURRENT_USER\Software\KnightOnline\ServerSelect\SelectServer"
KayıtDefteri.RegDelete "HKEY_CURRENT_USER\Software\KnightOnline\ServerSelect\"
KayıtDefteri.RegDelete "HKEY_CURRENT_USER\Software\KnightOnline\SERVICE"
KayıtDefteri.RegDelete "HKEY_CURRENT_USER\Software\KnightOnline\"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\KnightOnline\"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\Software\KnightOnline\*.*"
APRFIXER2
End Function
Function APRFIXER2()
'///CaNsyN. ~
On Error Resume Next
Set KayıtDefteri = CreateObject("Wscript.shell")
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\Security\Security"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\Enum\NextInstance"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\Enum\Count"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\Enum\0"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\Type"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\Start"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\ImagePath"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\ErrorControl"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\APR\DisplayName"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet009\Services\APR\Security\Security"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet009\Services\APR\Type"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet009\Services\APR\Start"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet009\Services\APR\ImagePath"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet009\Services\APR\ErrorControl"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet009\Services\APR\DisplayName"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\Security\Security"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\Enum\NextInstance"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\Enum\Count"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\Enum\0"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\Type"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\Start"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\ImagePath"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\ErrorControl"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Services\APR\DisplayName"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\0000\Control\ActiveService"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\0000\Control\*NewlyCreated*"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\0000\Service"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\0000\Legacy"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\0000\DeviceDesc"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\0000\ClassGUID"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\0000\Class"
KayıtDefteri.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet008\Enum\Root\LEGACY_APR\NextInstance"
'/// CaNsyN.
End Function