Simple VBScript dialog for bypassing Closers JP. Get Keys inspector from here https://greasyfork.org/en/scripts/23313-closers-jp-hash-inspector

SimpleClosersJPBypasser.vbs

Const segaKey = "abcdefghijklmnopqrstuvwxyz"
Const clsDir = "D:\sega\CLOSERS"

int respShell
set objShell = CreateObject("Shell.Application")
logDir = clsDir & "\Log"
respShell = MsgBox("Open Patcher ? (Yes = Open Patcher, No = Open Closers)", vbYesNoCancel + vbQuestion + vbDefaultButton3, "CLSJPSL")

DeleteFolder logDir

Function DeleteFolder(strFolderPath)
	Dim objFSO, objFolder
	Set objFSO = CreateObject ("Scripting.FileSystemObject")
	If objFSO.FolderExists(strFolderPath) Then
		objFSO.DeleteFolder strFolderPath, True
	End If
	Set objFSO = Nothing
End Function


If respShell = vbYes Then
	objShell.ShellExecute clsDir & "\LAUNCHER.EXE"," _H " & segaKey &"  _L 211.10.9.188 _C http://dlcm.segaonline.jp/closers/patch/  _LC 1", clsDir, "runas", 1
ElseIf respShell = vbNo Then
	objShell.ShellExecute clsDir & "\CW.exe","_L 211.10.9.188 _H " & segaKey, clsDir, "runas", 1
Else
End If