15/03/18 06:30:01.59 vg0Zx2JZ0.net
>>113
'-- modify following parameters for match your environment --
PROXY_NAME = "proxy2ch.exe"
PROXY_PATH = """C:\Xeno150312\proxy2ch_20150317\Win32\" & PROXY_NAME & """"
PROXY_PORT = """8882"""
USER_AGENT = """Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko"""
JANE_COMMAND_LINE = """C:\Xeno150312\Jane2ch.exe"""
'------------------------------------------------------------
PROXY_COMMAND_LINE = PROXY_PATH & " -p " & PROXY_PORT & " -a " & USER_AGENT
Set objShell = CreateObject("WScript.Shell")
objShell.Run PROXY_COMMAND_LINE , 0 , False
objShell.Run JANE_COMMAND_LINE , 1 , True
Set colProcess = _
GetObject("winmgmts:{impersonationLevel=impersonate}") _
.ExecQuery("select * from Win32_Process where Name='" & PROXY_NAME & "'")
for each Process in colProcess
Process.terminate
next