cress-cc

#!/usr/bin/python
# -*- coding: utf-8 -*-

import re
import sys

class FukkatsuEncoder:

    __USABLE_CHARS = \
        'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほ' \

cress-cc

Option Explicit

' システム起動後の経過時間をミリ秒で取得する関数。
' VBA標準のNow()とかだと秒までしか取れない。
Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub Main()
    Dim startTime As Long
    Dim endTime As Long

cress-cc

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, _
     ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hwndParent As Long, _
     ByVal hwndChildAfter As Long, _
     ByVal lpClassName As String, _