777townｽｰﾊﾟｰﾌﾞﾗｯｸ

-- 機種判別ロジック
Const MODULE_NAME = "pos.dll"
Const CODE_LEN = 4
hWndSlot = FindWindow(0, "777タウン.net")
GetWindowThreadProcessId(hWndSlot, dwPID)
hProcess = OpenProcess(PROCESS_ALL_ACCESS, FALSE, dwPID)
hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, dwPID)
me.Size = SizeOf(MODULEENTRY32)
Result = Module32First(hModuleSnap, me)
Do While Result
s = String(256, Chr$(0))
lstrcpy(s, me.ModulePath)
i = InStr(1, s, Chr$(0))
If i > 1 Then
s = Left(s, i - 1)
Else
s = ""
End If
If Right(s, Len(MODULE_NAME))= MODULE_NAME Then
code = Mid(s, Len(s) - (Len(MODULE_NAME) + CODE_LEN), CODE_LEN)
Exit Do
End If
Result = Module32Next(hModuleSnap, me)
Loop
CloseHandle(hModuleSnap)

--
code = 000c　ニューパルサー
code = 000e　ジャグラーガール
・・・