Skip to content

Instantly share code, notes, and snippets.

View katahiromz's full-sized avatar
🐜

Katayama Hirofumi MZ katahiromz

🐜
View GitHub Profile
' 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
@katahiromz
katahiromz / TreeRecurseV.vbs
Created September 20, 2018 11:53
TreeRecurseV.vbs
' 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
katahiromz / RoleRotate.vbs
Created September 22, 2018 10:38
RoleRotate.vbs
' 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
katahiromz / Speech.vbs
Created September 23, 2018 10:51
Speech.vbs
' 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
katahiromz / Topological.vbs
Last active September 26, 2018 12:17
Topological.vbs
' Topological.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <[email protected]>
' This file is public domain software.
' Usage: cscript Topological.vbs > Output.txt
' ----------------------------------------------------------------------------
' 三栖井済友グループではメールを送るときに偉い順に名前を羅列し、
' 立場が同じ時は辞書順に並べなければいけない
'
' 次の名簿の全員宛にメールを送るときどのような順番で名前を書けばよいか
' 調べるプログラムを書いてください
@katahiromz
katahiromz / Fullscreen.cpp
Created October 9, 2018 12:08
Fullscreen.cpp
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
katahiromz / MIT License.txt
Created October 9, 2018 12:10
MIT License.txt
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
katahiromz / eramntum.h
Created October 24, 2018 23:25
eramntum.h
//
// 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
katahiromz / eramntui.rc
Last active October 27, 2018 12:35
eramntui.rc
//Microsoft Developer Studio generated resource script.
//
#include "ERAMNTUI.H"
#define APSTUDIO_READONLY_SYMBOLS
/////////////////////////////////////////////////////////////////////////////
//
// Generated from the TEXTINCLUDE 2 resource.
//
#include "windows.h"
@katahiromz
katahiromz / eramntum.mc
Created October 27, 2018 12:38
eramntum.mc
;//
;// Message Definitions for ERAMNT
;//
;// Header
LanguageNames=(English=0x409:ERAMNTUE)
MessageIdTypedef=NTSTATUS
FacilityNames=(System=0x0FF)
;// Message Definitions