'=================================
' Good Bye~ NP~     Ver 2.1
'
' 2008/05/28      By CodeH 
'
'=================================
Dim i

set WshShell = WScript.CreateObject("WScript.Shell")

on error resume Next
i = WshShell.RegRead("HKCU\Software\CodeH\AutoTaskKill\Time")

if i = "" then
	i = InputBox("몇초에 한번씩 검사할까요?" & vbcrlf & vbcrlf & _
            "(숫자만 입력가능 / 기본 : 60초)","시간입력 - By CodeH")

	If Not IsNumeric(i) Then i = 60
	If i = "" Then i = 60

	if Msgbox("현재입력한 값(" & _
           i & _
          "초)을 저장 하고 앞으론 물어보지 않게 하시겠습니까?",vbyesno,"설정값저장확인 - By CodeH") = vbyes then
		WshShell.RegWrite "HKCU\Software\CodeH\AutoTaskKill\Time", i , "REG_DWORD"
	end if
end if

i = i * 1000

Do
	WshShell.Run "c:\windows\system32\taskkill.exe /f /im AYUpdate.aye" ,0, true
	WshShell.Run "c:\windows\system32\taskkill.exe /f /im npkcmsvc.exe" ,0,true
	WshShell.Run "c:\windows\system32\taskkill.exe /f /im npkagt.exe" ,0,true
	WshShell.Run "c:\windows\system32\taskkill.exe /f /im npmonz.exe" ,0,true
	WshShell.Run "c:\windows\system32\taskkill.exe /f /im npdownv.exe" ,0,true
	WshShell.Run "c:\windows\system32\taskkill.exe /f /im npnj5Agent.exe" ,0,true
	WshShell.Run "c:\windows\system32\taskkill.exe /f /im npstartersvc.exe" ,0,true
	'WshShell.Run "c:\windows\system32\taskkill.exe /f /im ClientSM.exe" ,0,true
	WScript.Sleep i
Loop