ExcelVBAで簡易Webサーバー実装

StartWebServer()でスタートして StopWebServer()で止めます。アドレスは http://127.0.0.1:123456/hogehoge です。 Option Explicit #If VBA7 Then Private Declare PtrSafe Function WSAStartup Lib "ws2_32.dll" (ByVal wVersionRequired As Long, lpWSAD…

Discordボットトークンの入手方法

Discordボットトークンを入手する手順 Discordデベロッパーポータルにアクセス: ブラウザで https://discord.com/developers/applications にアクセスします。 新しいアプリケーションを作成: 右上の「New Application」ボタンをクリックします。 アプリケー…

Discord Botをサーバーに登録する手順

Discord Developer Portalにアクセス: https://discord.com/developers/applications にブラウザでアクセスし、ログインします。 アプリケーション(Bot)を選択: 既存のBotを使用する場合は、そのBotを選択します。新しいBotを作成する場合は、「New Applic…

FXの重要イベント(日本と米国だけ)を30分前にDiscordに投稿するpythonコード

1分に1回、タスクスケジューラ等で呼ぶこと前提。 import asyncio from datetime import datetime, timedelta import pytz import requests from bs4 import BeautifulSoup import discord import aiohttp # Discordボットのトークン DISCORD_TOKEN = 'Disco…

CDateTimeCtrl m_dateにyyyymmdd式の引数から日付をセット

void SetDateFromYYYYMMDD(CDateTimeCtrl& dateTimeCtrl, int yyyymmdd) { COleDateTime date; int year = yyyymmdd / 10000; int month = (yyyymmdd % 10000) / 100; int day = yyyymmdd % 100; date.SetDate(year, month, day); dateTimeCtrl.SetTime(date…

html&javascriptで、偶数日はindex1.html 奇数日はindex2.htmlを表示するようにする

<html lang="ja"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>日付に応じたリダイレクト</title> </head> <body> <script> // 現在の日付を取得 const currentDate = new Date(); // 日にちを取得(1-31) const dayOfMonth = currentDate.getDate(); // 偶数日か奇数日かを…</body></html>

windowsでファイルをわざとロックさせる方法

powershellで以下を実行 $file = "C:\path\to\your\file.txt" $fileStream = [System.IO.File]::Open($file, 'Open', 'Read', 'None')

C++ 拡張子がcsvかのチェック

#include <cstring> #include <cctype> // ... if (strlen(p) > 4) { const char* ext = p + strlen(p) - 4; if (_stricmp(ext, ".csv") == 0) { // 拡張子が .csv または .CSV } }_stricmp()は大文字小文字区別しない比較関数。</cctype></cstring>

MFC CDateTimeCtrlで現在の日時指定

// 現在の日時に設定する SYSTEMTIME st; GetLocalTime(&st); pDateTimeCtrl->SetTime(&st);

MFC ダイアログ上の部品全部非表示する

// 全てのオブジェクトを非表示にする CWnd* pChild = GetWindow(GW_CHILD); while (pChild) { int nID = pChild->GetDlgCtrlID(); pChild->ShowWindow(SW_HIDE); pChild = pChild->GetWindow(GW_HWNDNEXT); }

MFC top / left が 0 なら、親ウインドウの中心とこのウィンドウの中心が合うようにする

// top / left が 0 なら、親ウインドウの中心とこのウィンドウの中心が合うようにする if (top == 0 && left == 0) { CWnd* pParentWnd = (CWnd*)GetParent(); if (pParentWnd) { CRect parentRect; pParentWnd->GetWindowRect(&parentRect); CRect dialogR…

MFC 今カーソルが砂時計かの確認

HCURSOR hCursor = GetCursor(); if (hCursor == LoadCursor(NULL, IDC_WAIT)) { // カーソルは砂時計 } else { // カーソルは砂時計ではない }

MFC チェックボックスのテキスト文字に合わせた幅調整する

/// <summary> /// テキストの幅を計算し、チェックボックスのチェックマーク部分の幅を考慮して、適切なサイズのCRectを返します /// </summary> /// <param name="text"></param> /// <returns></returns> CRect CalculateCheckboxRect(CButton* pCheckbox, const CString& text) { CDC* pDC = pCheckbox->GetDC(); CFont* pO…

pythonでライブドアブログのsitemap.xmlからURLの一覧を取得する

import requests from xml.etree import ElementTree import time def fetch_sitemap(url): response = requests.get(url) return response.content def parse_sitemap(content): root = ElementTree.fromstring(content) # サイトマップインデックスの名前…

Excelマクロのデジタル署名できないときの対処方法

レジストリをいじります。 HKEY_LOCAL_MACHINE\SOFTWARE\SafeNet\Authentication\SAC\へ移動 キー追加で"Crypto" 文字列値を追加して"Disable-Crypto" 値を"None"にする PC再起動 マクロ署名についてはマイクロソフト社のおかしなダブルスタンダードのせいで…

Vivaldi ウェブサイトからの通知ポップアップの解除

chrome://settings/content/notificationsにアクセスして通知の設定を変更する ネタ元 www.naporitansushi.com

MFC ウインドウの位置を復元。ただし画面外に飛び出さないようにする

int top = どこからか取得 int left = どこからか取得 int windowHeight = どこからか取得 int windowWidth = どこからか取得; if (windowHeight > 0 && windowWidth > 0 && top > 0 && left > 0 ) { // スクリーンの解像度を取得 int screenWidth = GetSyst…

signtoolで証明書のハッシュ値指定で署名する

インストール済の証明書のハッシュ値指定で署名 "C:\Program Files (x86)\Windows Kits\8.1\bin\x64\signtool" sign /sha1 BCBXXXXXXXXXXXXXXXXXXXXXXXXXXXXF068 /fd SHA256 /td SHA256 /tr http://timestamp.sectigo.com /v "hogehoge.exe"innosetupのSign …

VBAで MSHTML.HTMLDocument を使うとでるCookieに関する Windows セキュリティの警告の消し方

oHTML.designMode = "on"って感じのコード入れるとでなくなるドキュメントを編集可能なデザイン モードに設定している。 これにより、スクリプトを使用してドキュメントのコンテンツを変更したり、イベントを処理したりできます。 Dim oHTML As MSHTML.HTMLD…

セクティゴ EV認証で exeに署名する方法 Explzh利用版

昔と違ってwebから必要ファイルをダウンロードできなくなった。 わざわざカナダからUSBメディアで送付されてくる。 Safenet Authentication クライアントソフトウェア(EV スタンダード)をインストール インストール関連 | サポート | セクティゴ・コモドSSL …

python pandas既存データ上書き

以下のようなコードでCSV読み込んで既存のデータに上書きして出力したい時、combined_data = existing_data.combine_first(new_data) だけだと、存在しない日付のデータを埋めてくれるだけ。combined_data.update(new_data) もやらないと上書き更新してくれ…

SBI証券で外貨と円の変換方法

変換 取引>為替取引を選択 買付/売却を選択 注文入力する

楽天証券で外貨と円の変換方法

変換 メニューから「外国為替」を選択 ドル円なら、米ドル取引(リアルタイム)の買い/売りをクリック 預り金か保証金かを選ぶ 金額指定するか、全部を選んで「確認」をクリック 出金 普通に 入出金・振替>出金 を選ぶ。 換金したばかりだと当日出金には反映…

\と/は割り算の演算子ですが、VBAではその使い分けに違いがあります

\と/は割り算の演算子ですが、VBAではその使い分けに違いがあります。 / - 浮動小数点数による割り算結果は実数になる 例: 10 / 3 => 3.3333333333333335\ - 整数による割り算結果は整数部分のみ 剰余は切り捨てられる 例: 10 \ 3 => 3つまり、\は整数値の割…

.NET Frameworkで作ったDLLのエントリ(関数)を確認する方法

ILDASM(IL Disassembler)を使用する ILDASMは、.NET Framework SDKに含まれているツールで、DLLやEXEファイルの中身を調べることができます。以下の手順で使用できます。 コマンドプロンプトを開く: Windowsの検索バーに「cmd」と入力してコマンドプロンプ…

excel vba 右クリックメニューに階層付きで追加する方法

コード Sub AddCustomMenuItem() Dim commandBar As CommandBar Dim mainMenu As CommandBarPopup Dim subMenu As CommandBarButton Dim foundMenu As Boolean ' セルの右クリックメニューを取得 Set commandBar = Application.CommandBars("Cell") ' 既にメ…

pythonからSlackに通知する

まずはこちら参照してアプリを作る blog.systemjp.net Webhooksを使うための準備方法 ・Incoming Webhooksを有効にする:アプリの設定ページで、「Incoming Webhooks」を選びます。 画面の指示に従って、Incoming Webhooksを「On」に切り替えます。・Webhook …

WebRequestで失敗するようになったらTLS1.2有効にすると治るかも C#

C# いままで問題なかったプログラムでSystem.IO.Stream reqStream = req.GetRequestStream(); の行で 以下エラーが出ました。 System.Security.Authentication.AuthenticationException HResult=0x80131501 Message=SSPI への呼び出しに失敗しました。内部例…

Excel VBAでOpanAI apiで質問して受け取る関数

Microsoft XML, v6.0 (MSXML6) ライブラリを利用して HTTP リクエストを実行しますJsonConverter ライブラリをVBAにインポートする必要があります。このライブラリは、GitHubから「VBA-JSON」としてダウンロードできます。 Function GetOpenAIResponse(promp…

CSS 影の表現

box-shadowが基本らしいics.media