inno script studio使う。inno内の署名処理は以下のように追加し、コンパイル時にインストーラーとアンインストーラーへそれぞれ署名が行われるようにする。・innoのルートフォルダ(C:\Program Files (x86)\Inno Setup 6)に「pfx\hoge.pfx」という形で証明書…

inno setupでインストーラーとアンインストーラーに署名する

#include "atlpath.h" BOOL GetFileList(CString path,CStringArray* outArray) { // ファイル検索を開始します。 CFileFind fileFind; BOOL bResult = fileFind.FindFile(path); // ファイル検索ができない場合、終了します。 if (!bResult) return FALSE; …

VC++ MFCでディレクトリ内のファイル一覧を取得する

Excelシートタイプのツール。Excel word powerpointどれでもいける https://www.vector.co.jp/soft/winnt/util/se509953.html

Office系ファイル内検索「文字検索くん」

メモ https://knowledge.sakura.ad.jp/22308/

さくらのレンタルサーバーでwordpressを速くする方法

FilePut/FileGetというのがあって便利 public Class Form1 'バイナリファイル読み書きの練習 Public Structure Person Public Name As String Public Age As Short End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syst…

vb.netでバイナリファイル読み書き

扱いたい数字の最高値をいれれば、いい感じに割り振ってくれる dim data as int32 '元になるデータをセット Dim dataBV As BitVector32 = New BitVector32( data ) 'mySect1 はケツから0-6の数字が扱えるエリアと定義 'mySect2 はmySect1の次から0-3の数字が…

vb.netでビットフィールド構造体的アクセス

'バイト型配列"bytesData"に文字列データが入っているものとする Dim str As String 'Shift JISとして文字列に変換 str = System.Text.Encoding.GetEncoding(932).GetString(bytesData) 'JISとして変換 str = System.Text.Encoding.GetEncoding(50220).GetSt…

vb.netでバイト型配列を文字列に変換する

＞＞ ＜＜ と Cっぽい書き方でできる Dim i As Integer i = 4 >> 1 ' 算術右シフト : i = 4 \ (2 ^ 1) = 2 となる ' &B0100(&H4) -> &B0010(&H2) i = 4 << 1 ' 算術左シフト : i = 4 * (2 ^ 1) = 8 となる ' &B0100(&H4) -> &B1000(&H8) i = 7 >> 2 ' 算術右…

vb.netでビットシフト演算子

AppVersion はインストーラの初期画面と、アプリケーションの追加と削除に反映される。 ちなみに AppVerName を指定するとそちらが優先されるファイルのプロパティで表示される「詳細」タブに表示されるのは VersionInfoVersion（ファイルバージョン） Versi…

inno setupでインストーラーのプロパティにあるバージョンなどの記載

ヒントhttp://www17.plala.or.jp/KodamaDeveloped/LetsProgramming/details_innosetup.html

inno setupで32ビット/64ビット両対応

忘備録https://help.sakura.ad.jp/206206041/#ac02

さくらレンタルサーバーでのphphの位置は　/usr/local/bin/php

PHP7だとPear::Mailがエラーでて動かない。 PHP Parse error: syntax error, unexpected 'new' (T_NEW) inPHPMailerがいいよ。 使い方 https://into-the-program.com/phpmailer-gmail/

PHP7以上になったらPear::Mailは捨ててPHPMailerを使おう

PHP7だとPear::Mailがエラーでて動かない。PHPMailerがいいよ。 使い方 https://into-the-program.com/phpmailer-gmail/

PHP7以上になったらPear::Mailは捨ててPHPMailerを使おう

https://ineweb.narcc.affrc.go.jp/hinsyu_top.html

イネ品種データベース検索システム　

regasmの場所は環境依存なので困る。 NET のコードで実行時に Framework のインストール先が取得できる。 Dim path As String = IO.Path.Combine(RuntimeEnvironment.GetRuntimeDirectory(), "RegAsm.exe") ネタ元 https://qiita.com/tinymouse/items/7d1431…

regasmを呼び出す

With CommandBars("Cell").Controls.Add(） .Caption="｛メニューに表示する名前｝" .OnAction="｛実行するマクロのメソッド名｝" End With先頭に追加するには Add(Before:=1)と書く区切り線入れるならこう書く。この例では3番めの上に区切り。 Application.…

Excel セルの右クリックメニューやサブメニューにマクロを登録／削除する

ネタ元 http://officetanaka.net/excel/vba/function/CVDate.htm

ExcelVBAで日付型への変換はCVDate()

簡単コードチェックできて便利https://paiza.io/ja

php/pealなど、ブラウザ上でコードを書いて試せるwebtool

何らかの理由でブロックリストに入ってしまってる場合がある以下のＵＲＬより内容を入力し、申請する https://support.microsoft.com/ja-jp/supportrequestform/8ad563e3-288e-2a61-8122-3ba03d6b8d75 ネタ元 https://office-obata.com/report/memorandum/po…

outlook.comメールにこちらからのメールが届かない問題の対処方法

Range("A1") = "hoge" じゃなくて Range("A1").Value = "hoge"Valueの代入ならちょっぱや。数こなすと雲泥の差が出る ネタ元 http://officetanaka.net/excel/vba/speed/s13.htm

ExcelVBAでセルに値書き込むときはValueでアクセスしよう

ロックを取得できなかった場合に待機せず、即タイムアウトにしたい場合の方法 try { Monitor.TryEnter(lockObject, 0, ref acquiredLock); if (acquiredLock) { // ロック取得に成功したときの処理 } else { // ロック取得に失敗したときの処理 } } finally …

C#で排他オブジェクトのロック取得を待機しない方法

windows10のisoファイルダウンロードしてVVirtualBoxにインストールする。 PCからisoダウンロードするにはコツが必要。 HDDの容量50GでOKって書いてあったけど500Gにしないとエラーになった。途中で謎のエラーがでることもあったが何回か試したら動いた。 ネ…

VirtualBoxにWindows10をインストール

'インターネット一時ファイルの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 8") 'パスワードの削除 Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 32") 'フォームデータの削除 Process.Start("RunDll32", "InetC…

VB.netのIE操作でキャッシュクリア

Chromeの拡張機能を根こそぎOFFにしてみた。 AdBlockが相性悪かった感あります。 ネタ元 https://norikazu-miyao.com/?p=13002

adsenseの「ご迷惑をおかけいたしまして申し訳ございません。現在、お客様からのリクエストを処理することができません。Google のエンジニアが問題解決に取り組んでおりますので、しばらくお待ちください。」の自分なりの解決方法

コマンドラインでやれとのこと 代わりに、Visual Studioコマンドプロンプトからsigntoolを使用してください。 signtoolがパスワードが無効であると主張することもありますが、 通常は2、3回試行すると機能し始めます。signtool.exe sign /f YOURCERT.pfx /p …

visual studioで署名に失敗する場合の対策

Sub Focus(aSheet As Worksheet, aFlag As Boolean) Application.ScreenUpdating = aFlag Application.DisplayStatusBar = aFlag Application.Calculation = aFlag aSheet.EnableCalculation = aFlag Application.EnableEvents = aFlag aSheet.DisplayPageBr…

ExcelVBAで高速化のための色々ON/OFF

redoc spec-urlのとこに表示したいjson指定するだけでOK。 超簡単。 redoc.html <html> <head> <title>ReDoc</title> <meta charset="utf-8"/> <meta name="viewport" content="width=device-width, initial-scale=1"> </head> <body> <redoc spec-url="http://petstore.swagger.io/v2/swagger.json"></redoc> </body></html>

ReDocの使い方

Sub シート名がわかっているときにブック名を取得する() Const FIND_SH = "顧客マスター" Dim bk As Workbook Dim sh As Worksheet For Each bk in Workbooks For Each sh in bk.Worksheets If sh.Name = FIND_SH Then MsgBox sh.Parent.Name Exit Sub End I…

ExcelVBAでワークシートからブック名を取得する

Range("A1:C3").Dirtyでもユーザー定義関数(Function)からの呼び出しでは機能しない。サブルーチン(sub)経由で呼べば使える ネタ元 https://archives.aotsuki.org/excel-vba-calculate/#ApplicationCalculateApplicationCalculateFull

ExcelVBAでセルの再更新要求

Dim a_cell As Variant Private Sub Worksheet_Calculate() If a_cell = "" Then a_cell = Cells(1,1).Value 'セルに初期値が入っていない時に代入 Exit Sub '１回目だけは、そのまま抜ける End If If a_cell <> Cells(1, 1).Value Then 'セル値が変化した時…

ExcelVBAでセルが更新されたら点滅させる