katahiromz

//
//	Message Definitions for ERAMNT
//
//	Header
//	Message Definition
//
//  Values are 32 bit values layed out as follows:
//
//   3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
//   1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0

katahiromz

The MIT License

Copyright (c) 2018 Katayama Hirofumi MZ.

Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"),
to deal in the Software without restriction, including without limitation
the rights to use, copy, modify, merge, publish, distribute, sublicense,
and/or sell copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following conditions:

katahiromz

HWND m_hWnd = ...;
bool m_fullscreen = false;
bool m_maximized = false;
DWORD m_old_style;
DWORD m_old_exstyle;
RECT m_old_rect;

void SetFullscreen(bool fullscreen)
{
    if (m_fullscreen == fullscreen)

katahiromz

' Topological.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <[email protected]>
' This file is public domain software.
' Usage: cscript Topological.vbs > Output.txt
' ----------------------------------------------------------------------------
' 三栖井済友グループではメールを送るときに偉い順に名前を羅列し、
' 立場が同じ時は辞書順に並べなければいけない
'
' 次の名簿の全員宛にメールを送るときどのような順番で名前を書けばよいか
' 調べるプログラムを書いてください

katahiromz

' Speech.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <[email protected]>
' This file is public domain software.
' Usage: cscript Speech.vbs

Option Explicit

Sub Main
    Dim SpVoice
    On Error Resume Next

katahiromz

' RoleRotate.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <[email protected]>
' This file is public domain software.
' Usage: cscript RoleRotate.vbs > Output.txt

Option Explicit

Sub Main
    Dim s 
    s = "" _ 

katahiromz

' TreeRecurseV.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <[email protected]>
' This file is public domain software.
' Usage: cscript TreeRecurseV.vbs > Output.txt

Option Explicit

Function Slice(ary, start, ending)
    Dim I, ret()
    If Right(TypeName(ary), 2) <> "()" Then

katahiromz

' TreeRecurse.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <[email protected]>
' This file is public domain software.
' Usage: cscript TreeRecurse.vbs > Output.txt

Option Explicit

Function Slice(ary, start, ending)
    Dim I, ret()
    If Right(TypeName(ary), 2) <> "()" Then