テックメモ – ページ 9 – 自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。

2023-05-032023-05-23

GitHub Copilot Chat 使ってみた

GitHub Copilot Chatが使えるようになったので実験。

VSCodeの場合

・GitHub Copilotを登録(既に登録済)
・Visual Studio Code Insidersをインストール
https://code.visualstudio.com/insiders/
・拡張機能GitHub Copilot Nightlyをインストール

拡張機能からGitHubにログインした後、サイドパネルにチャットが表示される。

Visual Studioの場合

・Visual Studioを最新版にアップデート
・拡張機能Visual Studio Extension for GitHub Copilot Previewをインストール
・Visual StudioからGitHubのアカウントにログイン
・表示＞GitHub Copilot チャット

＊＊＊

・日本語に対応している。質問／回答も日本語。
・ChatGPTと同じで、プログラミング以外の質問もできる。
まったくプログラミングに関連しない話題はNG。
・反応速度は、Bing、ChatGPT(無料)より断然早い。

試しにVBAでPOST＋PHPで受け取るコードを書いてもらってみた。

＊＊＊

ChatGPTも同じだけど、ちょっと複雑な(ループや条件分岐が複雑になるような)内容だと思った通りのコードを生成させるのは難しい。

逆に上から素直に処理するようなコードの場合、思った通りになることが多いので、かなりの省力化になりそう。

ChatGPTの場合(VSCode)

ChatGPTのアカウントを作成し、APIキーを取得しておく。

ChatGPT – Genie AI
をインストールしChange API Keyから登録。

2023-05-03

PowerShell ユーザー名、IPアドレスをメールする

[System.String]$user = (Get-WMIObject -ClassName Win32_ComputerSystem).Username
[System.String]$ip = (Get-NetIPConfiguration | Where-Object { $_.IPv4DefaultGateway -ne $null }).IPv4Address.IPAddress
[System.Text.Encoding]$encode = [System.Text.Encoding]::UTF8

# Add-Type -AssemblyName System.Windows.Forms
# [System.Windows.Forms.MessageBox]::Show($user)
# [System.Windows.Forms.MessageBox]::Show($ip)

[System.String]$SMTPServer = "xxx"
[System.String]$SMTPPort = "587"
[System.String]$Username = "xxx@xxx"
[System.Security.SecureString]$Password = ConvertTo-SecureString "xxx" -AsPlainText -Force
[System.String]$From = "xxx@xxx"
[System.String]$To = "xxx@xxx" 
[System.String]$Subject = "ユーザー名, IPアドレス"
[System.String]$Body = $user + "`r`n" + $ip
[System.Collections.Hashtable]$SMTPMessage = @{
    To = $To
    From = $From
    Subject = $Subject
    Body = $Body
    SmtpServer = $SMTPServer
    Port = $SMTPPort
    UseSSL = $true
    Credential = New-Object System.Management.Automation.PSCredential ($Username, $Password)
    Encoding = $encode
}
Send-MailMessage @SMTPMessage

[System.String]$user = (Get-WMIObject -ClassName Win32_ComputerSystem).Username

[System.String]$ip = (Get-NetIPConfiguration | Where-Object { $_.IPv4DefaultGateway -ne $null }).IPv4Address.IPAddress

[System.Text.Encoding]$encode = [System.Text.Encoding]::UTF8

# Add-Type -AssemblyName System.Windows.Forms

# [System.Windows.Forms.MessageBox]::Show($user)

# [System.Windows.Forms.MessageBox]::Show($ip)

[System.String]$SMTPServer = "xxx"

[System.String]$SMTPPort = "587"

[System.String]$Username = "xxx@xxx"

[System.Security.SecureString]$Password = ConvertTo-SecureString "xxx" -AsPlainText -Force

[System.String]$From = "xxx@xxx"

[System.String]$To = "xxx@xxx"

[System.String]$Subject = "ユーザー名, IPアドレス"

[System.String]$Body = $user + "`r`n" + $ip

[System.Collections.Hashtable]$SMTPMessage = @{

To = $To

From = $From

Subject = $Subject

Body = $Body

SmtpServer = $SMTPServer

Port = $SMTPPort

UseSSL = $true

Credential = New-Object System.Management.Automation.PSCredential ($Username, $Password)

Encoding = $encode

}

Send-MailMessage @SMTPMessage

2023-04-25

VBA 請求期間を計算

マスタの締日、現在の日付から請求期間、支払予定日を計算。

Sub GetInvoiceTerm()

' チェック

If False = IsDate(UserForm1.TextBox49.Text) Then Exit Sub
If False = IsNumeric(UserForm1.TextBox50.Text) Then Exit Sub
If False = IsNumeric(UserForm1.TextBox51.Text) Then Exit Sub

current_date = CDate(UserForm1.TextBox49.Text) ' 今回の締日
master_closing_date = CInt(UserForm1.TextBox50.Text) ' 得意先締日
payment_duration = CInt(UserForm1.TextBox51.Text) ' 支払予定(経過日数)

start_day = ""
end_day = ""

If master_closing_date <> "30" Then

' 末締以外

  If CInt(Day(current_date)) > CInt(master_closing_date) Then
  
      tmp = DateAdd("m", 1, current_date)
      
      start_day = Year(current_date) & "/" & Month(current_date) & "/" & master_closing_date + 1
      end_day = Year(tmp) & "/" & Month(tmp) & "/" & master_closing_date
      
  Else
  
      tmp = DateAdd("m", -1, current_date)
      
      start_day = Year(tmp) & "/" & Month(tmp) & "/" & master_closing_date + 1
      end_day = Year(current_date) & "/" & Month(current_date) & "/" & master_closing_date
      
  End If
    
Else

' 末締の場合

  start_day = Year(current_date) & "/" & Month(current_date) & "/1"
  end_day = Year(current_date) & "/" & Month(current_date) & "/" & GetLastDay(current_date)
        
End If

If False = IsDate(start_day) Or False = IsDate(end_day) Then

' 得意先締日の値からstart_day、end_dayが有効な日付にならなかった場合

  UserForm1.TextBox41.Text = ""
  UserForm1.TextBox46.Text = ""
  UserForm1.TextBox44.Text = ""
  
  Exit Sub

End If

UserForm1.TextBox41.Text = Format(CDate(start_day), "yyyy/mm/dd")
UserForm1.TextBox46.Text = Format(CDate(end_day), "yyyy/mm/dd")

' 支払期限算出--------------------------------------------------------

' 支払予定(経過日数)を30で割り×月、余り×日

m = payment_duration / 30
d = payment_duration Mod 30
  
If True = IsLastDay(CDate(end_day)) Then
 
' end_dayが月末の場合は指定した月数を加算し月末にする。

  tmp1 = DateAdd("m", m, CDate(end_day))
  tmp1 = CDate(Year(tmp1) & "/" & Month(tmp1) & "/" & GetLastDay(tmp1))
  tmp2 = DateAdd("d", d, tmp1)

Else

' end_dayが月末以外

  tmp1 = DateAdd("m", m, CDate(end_day))
  tmp2 = DateAdd("d", d, tmp1)

End If

UserForm1.TextBox44.Text = Format(tmp2, "yyyy/mm/dd")
  
End Sub

Function IsLastDay(target) ' 渡された日付が月末かどうか

' 呼出側で日付型か確認済

If Day(target) = GetLastDay(target) Then
  IsLastDay = True
Else
  IsLastDay = False
End If

End Function

Function GetLastDay(target) ' 渡された日付の月の月末を取得

' 呼出側で日付型か確認済

GetLastDay = Day(DateAdd("d", -1, Year(DateAdd("m", 1, target)) & "/" & Month(DateAdd("m", 1, target)) & "/1"))

End Function

100

101

102

103

104

105

106

Sub GetInvoiceTerm()

' チェック

If False = IsDate(UserForm1.TextBox49.Text) Then Exit Sub

If False = IsNumeric(UserForm1.TextBox50.Text) Then Exit Sub

If False = IsNumeric(UserForm1.TextBox51.Text) Then Exit Sub

current_date = CDate(UserForm1.TextBox49.Text) ' 今回の締日

master_closing_date = CInt(UserForm1.TextBox50.Text) ' 得意先締日

payment_duration = CInt(UserForm1.TextBox51.Text) ' 支払予定(経過日数)

start_day = ""

end_day = ""

If master_closing_date <> "30" Then

' 末締以外

If CInt(Day(current_date)) > CInt(master_closing_date) Then

tmp = DateAdd("m", 1, current_date)

start_day = Year(current_date) & "/" & Month(current_date) & "/" & master_closing_date + 1

end_day = Year(tmp) & "/" & Month(tmp) & "/" & master_closing_date

Else

tmp = DateAdd("m", -1, current_date)

start_day = Year(tmp) & "/" & Month(tmp) & "/" & master_closing_date + 1

end_day = Year(current_date) & "/" & Month(current_date) & "/" & master_closing_date

End If

Else

' 末締の場合

start_day = Year(current_date) & "/" & Month(current_date) & "/1"

end_day = Year(current_date) & "/" & Month(current_date) & "/" & GetLastDay(current_date)

End If

If False = IsDate(start_day) Or False = IsDate(end_day) Then

' 得意先締日の値からstart_day、end_dayが有効な日付にならなかった場合

UserForm1.TextBox41.Text = ""

UserForm1.TextBox46.Text = ""

UserForm1.TextBox44.Text = ""

Exit Sub

End If

UserForm1.TextBox41.Text = Format(CDate(start_day), "yyyy/mm/dd")

UserForm1.TextBox46.Text = Format(CDate(end_day), "yyyy/mm/dd")

' 支払期限算出--------------------------------------------------------

' 支払予定(経過日数)を30で割り×月、余り×日

m = payment_duration / 30

d = payment_duration Mod 30

If True = IsLastDay(CDate(end_day)) Then

' end_dayが月末の場合は指定した月数を加算し月末にする。

tmp1 = DateAdd("m", m, CDate(end_day))

tmp1 = CDate(Year(tmp1) & "/" & Month(tmp1) & "/" & GetLastDay(tmp1))

tmp2 = DateAdd("d", d, tmp1)

Else

' end_dayが月末以外

tmp1 = DateAdd("m", m, CDate(end_day))

tmp2 = DateAdd("d", d, tmp1)

End If

UserForm1.TextBox44.Text = Format(tmp2, "yyyy/mm/dd")

End Sub

Function IsLastDay(target) ' 渡された日付が月末かどうか

' 呼出側で日付型か確認済

If Day(target) = GetLastDay(target) Then

IsLastDay = True

Else

IsLastDay = False

End If

End Function

Function GetLastDay(target) ' 渡された日付の月の月末を取得

' 呼出側で日付型か確認済

GetLastDay = Day(DateAdd("d", -1, Year(DateAdd("m", 1, target)) & "/" & Month(DateAdd("m", 1, target)) & "/1"))

End Function

2023-04-19

VBA モジュールエクスポート

Sub export()

' VBAプロジェクトオブジェクトモデルへのアクセスを信頼する
' 参照設定　Microsoft Visual Basic for Applications Extensibility

For Each m In ThisWorkbook.VBProject.VBComponents

  extension = ""

  If m.Type = vbext_ct_ClassModule Then extension = "cls"
  If m.Type = vbext_ct_MSForm Then extension = "frm"
  If m.Type = vbext_ct_StdModule Then extension = "bas"
  If extension <> "" Then m.export (ThisWorkbook.Path & "\" & m.Name & "." & extension)
  
Next
    
End Sub

Sub export()

' VBAプロジェクトオブジェクトモデルへのアクセスを信頼する

' 参照設定　Microsoft Visual Basic for Applications Extensibility

For Each m In ThisWorkbook.VBProject.VBComponents

extension = ""

If m.Type = vbext_ct_ClassModule Then extension = "cls"

If m.Type = vbext_ct_MSForm Then extension = "frm"

If m.Type = vbext_ct_StdModule Then extension = "bas"

If extension <> "" Then m.export (ThisWorkbook.Path & "\" & m.Name & "." & extension)

End Sub

2023-04-182023-04-19

Power Automate Desktop サインインできない

Power Automate Desktop を使って見ようと思ってインストールしてみたが、サインインしようとメールアドレスを入力すると、
メッセージ = Invalid cloudType value: Invalid
パラメーター名:cloudType
エラー = System.ArgumentException
全文 = System.ArgumentException: Invalid cloudType value: Invalid
パラメーター名:cloudType
というエラーがでる。

どうもメールアドレスに問題があるようなので、
・test@gmail.comでサインイン
(エラーが出ず次の画面に進む)
・パスワードを忘れた場合をクリック
・キャンセルをクリック
ここまではサインイン情報はtest@gmail.comになっていたが、これで自分のメールアドレスに切り替わるので、パスワードを入力すれば完了。

2023-04-022023-04-05

C# 画像表示(縦横比固定＋タイマー更新)

LAN経由で現場のディスプレイに資料を表示させておくアイデアの検証用。

何かしらのスクリプトで資料のファイルを自動で開く方法も考えたけど、資料を準備する側が画像に変換する手間をかけれるならプログラムが簡単で済む。

using System;
using System.Drawing;
using System.Windows.Forms;

namespace WindowsFormsApp1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            var timer = new Timer();

            timer.Tick += (s, e) => { DisplayImage(); };
            timer.Interval = 1000 * 60 * 15; // 15分
            timer.Start();

            this.Resize += (s, e) =>
            {
                var w = this.Width - 50;
                var h = this.Height - 70;

                pictureBox1.Left = 10;
                pictureBox1.Top = 10;
                pictureBox1.Width = w / 2;
                pictureBox1.Height = h / 2;

                pictureBox2.Left = w / 2 + 20;
                pictureBox2.Top = 10;
                pictureBox2.Width = w / 2;
                pictureBox2.Height = h / 2;

                pictureBox3.Left = 10;
                pictureBox3.Top = h / 2 + 20;
                pictureBox3.Width = w / 2;
                pictureBox3.Height = h / 2;

                pictureBox4.Left = w / 2 + 20;
                pictureBox4.Top = h / 2 + 20;
                pictureBox4.Width = w / 2;
                pictureBox4.Height = h / 2;
            };

            pictureBox1.SizeMode = PictureBoxSizeMode.Zoom;
            pictureBox2.SizeMode = PictureBoxSizeMode.Zoom;
            pictureBox3.SizeMode = PictureBoxSizeMode.Zoom;
            pictureBox4.SizeMode = PictureBoxSizeMode.Zoom;

            pictureBox1.BorderStyle = BorderStyle.FixedSingle;
            pictureBox2.BorderStyle = BorderStyle.FixedSingle;
            pictureBox3.BorderStyle = BorderStyle.FixedSingle;
            pictureBox4.BorderStyle = BorderStyle.FixedSingle;

            pictureBox1.BackColor = Color.White;
            pictureBox2.BackColor = Color.White;
            pictureBox3.BackColor = Color.White;
            pictureBox4.BackColor = Color.White;

            this.WindowState = FormWindowState.Maximized;

            DisplayImage();
        }

        private void DisplayImage()
        {
            string dir = System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\image\";

            pictureBox1.ImageLocation = dir + "1.jpg";
            pictureBox2.ImageLocation = dir + "2.jpg";
            pictureBox3.ImageLocation = dir + "3.jpg";
            pictureBox4.ImageLocation = dir + "4.jpg";
            Text = DateTime.Now.ToString("工場掲示板 MM月dd日HH時mm分") + " 更新";
        }
    }
}

using System;

using System.Drawing;

using System.Windows.Forms;

namespace WindowsFormsApp1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

var timer = new Timer();

timer.Tick += (s, e) => { DisplayImage(); };

timer.Interval = 1000 * 60 * 15; // 15分

timer.Start();

this.Resize += (s, e) =>

{

var w = this.Width - 50;

var h = this.Height - 70;

pictureBox1.Left = 10;

pictureBox1.Top = 10;

pictureBox1.Width = w / 2;

pictureBox1.Height = h / 2;

pictureBox2.Left = w / 2 + 20;

pictureBox2.Top = 10;

pictureBox2.Width = w / 2;

pictureBox2.Height = h / 2;

pictureBox3.Left = 10;

pictureBox3.Top = h / 2 + 20;

pictureBox3.Width = w / 2;

pictureBox3.Height = h / 2;

pictureBox4.Left = w / 2 + 20;

pictureBox4.Top = h / 2 + 20;

pictureBox4.Width = w / 2;

pictureBox4.Height = h / 2;

};

pictureBox1.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox2.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox3.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox4.SizeMode = PictureBoxSizeMode.Zoom;

pictureBox1.BorderStyle = BorderStyle.FixedSingle;

pictureBox2.BorderStyle = BorderStyle.FixedSingle;

pictureBox3.BorderStyle = BorderStyle.FixedSingle;

pictureBox4.BorderStyle = BorderStyle.FixedSingle;

pictureBox1.BackColor = Color.White;

pictureBox2.BackColor = Color.White;

pictureBox3.BackColor = Color.White;

pictureBox4.BackColor = Color.White;

this.WindowState = FormWindowState.Maximized;

DisplayImage();

}

private void DisplayImage()

{

string dir = System.IO.Path.GetDirectoryName(Application.ExecutablePath) + @"\image\";

pictureBox1.ImageLocation = dir + "1.jpg";

pictureBox2.ImageLocation = dir + "2.jpg";

pictureBox3.ImageLocation = dir + "3.jpg";

pictureBox4.ImageLocation = dir + "4.jpg";

Text = DateTime.Now.ToString("工場掲示板 MM月dd日HH時mm分") + " 更新";

}

2023-04-01

Windows BitLocker無効化

新しいノートPC(HP)の設定をしていたらBitLockerが有効化されていた。
特に持ち歩く訳でもないし、KB5012170のような不具合もあるので無効化しておく。有効化すると(HDDだと特に)パフォーマンスが低下するという理由もある。

・無効化
control＞BitLockerドライブの暗号化＞BitLockerを無効化する
※数十分かかるので注意

・回復キーのバックアップする場合
control＞BitLockerドライブの暗号化＞回復キーのバックアップから保存できる。
Microsoftアカウントでログインしている場合、
Web＞Microsoftアカウント＞デバイス
からも確認できる。

・仕組み
BitLockerはTPMを利用しストレージを暗号化している。TPMはハードウェアの一部として鍵を生成している。

・注意
リカバリ、CMOS、BIOS、ドライブのクローンなどでBitLockerを有効化してあると不具合が出やすい。

Microsoftアカウントでログインしていると、BitLockerが自動で有効化されることがある。

もしPIN認証を複数回失敗しTMPロックアウトしたら
Win+R＞tpm.msc＞TPMをクリア

2023-03-192023-05-22

Windows パス色々メモ

・IEブックマーク

%userprofile%\Favorites

・Edge(従来)ブックマーク

%userprofile%\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\AC\MicrosoftEdge\User\Default\DataStore\Data\nouser1\120712-0049\

%userprofile%\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\AC\MicrosoftEdge\User\Default\Favorites

・Edge(Chromium)ブックマーク

%userprofile%\AppData\Local\Microsoft\Edge\User Data\Default
Bookmarks
Bookmarks.bak

・スタートメニュー

C:\ProgramData\Microsoft\Windows\Start Menu\Programs
%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs

・Chrome拡張機能

%userprofile%\AppData\Local\Google\Chrome\User Data\Default\Extensions

・VBA証明書

C:\Program Files\Microsoft Office\root\Office16\SELFCERT.EXE

certmgr.msc＞個人＞証明書
inetcpl.cpl＞コンテンツ＞証明書

2023-03-172023-03-19

Windows アカウントから管理者権限がなくなる+PINが削除できない

Microsoftと紐づいているxxxというアカウントで、
netplwiz＞xxx＞プロパティ＞ユーザー名
を変更してみたら、ユーザーアカウント制御で「はい」が出てこなくなった。
(このアプリがデバイスに変更を加えることを許可しますか？)
control userpasswords
で確認してみたらxxxアカウントから管理者権限がなくなっていた。
(この操作を他のPCでも実行してみたら問題なかったのでエラーっぽい挙動)
他のユーザーがなかったので詰んでしまった。

まずローカルアカウントへ切り替えてみたがダメだった。
設定＞アカウント＞ユーザー情報＞
ローカルアカウントのサインインに切り替える。

セーフモード(Shift+再起動)で起動、Administratorでサインインし、
cmd＞net user yyy /add
を実行しyyyでサインイン。
netplwiz＞xxx＞プロパティ＞グループメンバーシップ
からxxxを管理者に変更。パスワードも変わってしまっていたので、
netplwiz＞xxx＞パスワードのリセット
を実行。yyyをサインアウトしxxxでサインインし、
netplwiz＞yyy＞削除
※今回は深く考えずyyyを作成したけど、Administratorを有効化しても解決できたかもしれない。

xxxをMicrosoftと紐づける。
設定＞アカウント＞サインイン

PINが再度設定されたのでPINを削除しようとしたら、
この暗証番号(PIN)は組織のリソースでは使用できません。修正するには、ここをタップまたはクリックしてください。
となってしまった。

設定＞アカウント＞職場または学校へのアクセス＞zzz＞このアカウントの接続を切断する＞切断
を実行。
設定＞アカウント＞PIN＞削除

どうやら、以前Office365を Business Standardで契約していたとき、Windowsのアカウント(xxx)とOfficeのアカウント(zzz)が違っていたの原因っぽい。ただ、今回の症状が発生するまでは問題なくPINを削除してあったので詳細は不明。

2023-03-092023-03-09

OLE DB プロバイダー登録解除(削除)

・対象のCLSIDを調べる

(New-Object data.oledb.oledbenumerator).getElements() | Where-Object{$_.sources_description -match “ole\s?db”} | Format-List sources_name, sources_description, sources_clsid
にて確認できる。

※32bitを確認したい場合、
%systemroot%\syswow64\windowspowershell\v1.0\powershell.exe
のPowerShellを起動する。

※CLSIDは
dee35070-506b-11cf-b1aa-00aa00b8de95
のような感じになる。

※.UDLの空ファイルを作成し、クリックでもOLE DBは確認できる。CLSIDは調べられないが、接続テストも可能。

・レジストリのキー削除

レジストリエディターを起動(regedit)
HKEY_LOCAL_MACHINE
以下でCLSIDを検索する。

HKEY_LOCAL_MACHINE\[WOW6432Node]\CLSID\xxx
見つかった該当のキーを削除する。※32bitの場合WOW6432Node

そのままでは削除できないため、
右クリック＞アクセス許可＞詳細設定
所有者を自分に変更。
右クリック＞アクセス許可＞追加
自分を追加しフルコントロールへ。

サブキーそれぞれ実施が必要。

これで削除完了。

＊＊＊

・OLE DBの実体(dllファイル)のパスを調べる場合

HKEY_LOCAL_MACHINE\[WOW6432Node]\CLSID\xxx\InprocServer32
以下にdllのパスが入っている。

COMコンポーネント一覧、登録解除

・COM一覧
Get-WmiObject Win32_ClassicCOMClassSetting
Get-WmiObject Win32_ClassicCOMClass

・DCOM一覧
Get-WmiObject Win32_DCOMApplication

・登録解除
regsvr32 /u “C:\Windows\SysWOW64\xxx.dll”
※32bitの場合
C:\Windows\SysWOW64\regsvr32 /u “C:\Windows\SysWOW64\xxx.dll”