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

2020-11-112020-11-11

LINE WORKS 自動起動しない

最近LINE WORKSが自動起動しなくなった。

どうやら、
Windows起動時に自動実行する
をチェックすると、
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
にエントリされるようだが、フルパスじゃなく実行ファイル名のみになっていた。

Get-ItemProperty -Path Registry::HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

フルパスに書き換えると、1度は自動起動するが、起動時にエントリを修正するようで、また実行ファイル名のみになってダメ。

他にも、
sysdm.cpl＞環境設定＞環境変数
からパスを通してみたけどダメ。

もともと正しく自動起動していたときにどういう値だったか見ていないので、どうしようもない。

再インストールは面倒なので、
Windows起動時に自動実行する
のチェックを外し、
shell:startup
にショートカットを登録した。

2020-11-112022-03-26

さくらのレンタルサーバ HTTPS化(無料SSL)

・無料SSL有効化

サーバコントロールパネルにログイン。

左側メニュー＞ドメイン/SSL＞ドメイン/SSL
をクリック。

対象ドメインにある
SSL
をクリック。

登録設定を始めるSSL証明書の種類を選択
をクリック。

Let’s Encrypt (無料SSL)
を選択する。

SNI SSL(ネームベース)
がチェックされ、
IPベースの証明書は新規でのご提供を終了いたしました、
とあるので、そのままでOK。

しばらくすれば完了。

＊＊＊

・転送設定

SSL有効化が完了してから作業。

ドキュメントルートに.htaccessを設置するという方法もあるが、先程と同じく、
サーバコントロールパネルにログイン。

左側メニュー＞ドメイン/SSL＞ドメイン/SSL
をクリック。

対象ドメインにある
設定
をクリック。

HTTPSに転送する
にチェック。

2020-11-10

VBA ListBox参考

ListBoxの使い方を忘れてしまうので、さっき作ったものをメモ代わり。

Private Sub CommandButton1_Click()

' 検索

TextBox1.Enabled = False
CommandButton1.Enabled = False

Set w = Sheets("dat")

r = 2
Do While w.Cells(r, 1).Value <> ""

  If TextBox1.Text = w.Cells(r, 1).Value Then

    TextBox2.Text = w.Cells(r, 3).Value
    TextBox3.Text = w.Cells(r, 10).Value
    TextBox4.Text = w.Cells(r, 11).Value
    TextBox5.Text = w.Cells(r, 17).Value
    Label7.caption = r
    CommandButton2.Enabled = True
    
    Call CheckDate
    Exit Sub
  
  End If

r = r + 1
Loop

TextBox1.Enabled = True
CommandButton1.Enabled = True

End Sub

Sub CheckDate()

On Error GoTo exception

s = CDate(TextBox3.Text)
e = CDate(TextBox4.Text)
e = DateAdd("d", 1, e)

' 今日が開始日より後で終了日より前

If s < Now And e > Now Then
  Label8.caption = "OK"
Else
  Label8.caption = "NG"
End If
    
Exit Sub

exception:

Label8.caption = "-"

End Sub

Private Sub CommandButton2_Click()

' 今日の日付を登録

Set w = Sheets("dat")

If TextBox5.Text <> "" Then
  result = TextBox5.Text & ", " & Month(Now) & "/" & Day(Now)
Else
  result = Month(Now) & "/" & Day(Now)
End If

If TextBox6.Text <> "" Then
  result = result & "(" & TextBox6.Text & ")"
End If

r = Label7.caption
w.Cells(r, 17).Value = result
TextBox5.Text = result

' CommandButton2.Enabled = False

w.Activate
w.Rows(r).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton3_Click()

' キャンセル

TextBox1.Enabled = True
CommandButton1.Enabled = True

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Label7.caption = ""
Label8.caption = ""

CommandButton2.Enabled = False
TextBox1.SetFocus
    
End Sub

Private Sub CommandButton5_Click()

' シート書き込み

If ListBox2.ListCount = 0 Then Exit Sub

yesNo = vbYes
If TextBox2.Text = "" Then yesNo = MsgBox("氏名がありません。登録しますか？", vbYesNo)
If yesNo = vbNo Then Exit Sub

Set w = Sheets("売上")

r = 1
Do While w.Cells(r, 4).Value <> "" ' 商品名で最終行を算出
  r = r + 1
Loop
targetRow = r

memberCode = TextBox1.Text
memberName = TextBox2.Text

For r = 0 To ListBox2.ListCount - 1

  productName = ListBox2.List(r, 0)
  unitPrice = ListBox2.List(r, 1)
  amount = ListBox2.List(r, 2)
  
  w.Cells(targetRow, 1).Value = DateTime.Now
  w.Cells(targetRow, 2).Value = memberCode
  w.Cells(targetRow, 3).Value = memberName
  w.Cells(targetRow, 4).Value = productName
  w.Cells(targetRow, 5).Value = unitPrice
  w.Cells(targetRow, 6).Value = amount
  
  targetRow = targetRow + 1
  
Next r

w.Activate
w.Rows(targetRow - 1).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton6_Click()

' クリア

ComboBox1.Text = ""
ListBox2.Clear
Label12.caption = ""

End Sub

Private Sub UserForm_Initialize()

TextBox1.SetFocus
MasterSetup

End Sub

Sub MasterSetup()

' 商品リスト

ListBox1.ColumnCount = 2

Set w = Sheets("master")

r = 2
Do While w.Cells(r, 1).Value <> ""

  productName = w.Cells(r, 1).Value
  unitPrice = w.Cells(r, 2).Value
  ListBox1.AddItem ""
  ListBox1.List(ListBox1.ListCount - 1, 0) = productName
  ListBox1.List(ListBox1.ListCount - 1, 1) = unitPrice

r = r + 1
Loop

' 売上リスト

ListBox2.ColumnCount = 4


' 数量
For i = 1 To 10
  ComboBox1.AddItem i
Next

End Sub

Private Sub CommandButton4_Click()

' 転送

If ListBox1.Text = "" Then
  MsgBox "商品を選択してください。"
  Exit Sub
End If

If ComboBox1.Text = "" Then
  MsgBox "数量を選択してください。"
  Exit Sub
End If

productName = ListBox1.List(ListBox1.ListIndex, 0)
unitPrice = ListBox1.List(ListBox1.ListIndex, 1)
amount = ComboBox1.Text

ListBox2.AddItem ""
ListBox2.List(ListBox2.ListCount - 1, 0) = productName
ListBox2.List(ListBox2.ListCount - 1, 1) = unitPrice
ListBox2.List(ListBox2.ListCount - 1, 2) = amount
ListBox2.List(ListBox2.ListCount - 1, 3) = CDec(unitPrice) * CDec(amount)

TotalPrice

End Sub

Sub TotalPrice()

result = 0
For r = 0 To ListBox2.ListCount - 1
  result = CDec(result) + CDec(ListBox2.List(r, 3))
Next r

Label12.caption = "\ " & result

End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

Private Sub CommandButton1_Click()

' 検索

TextBox1.Enabled = False

CommandButton1.Enabled = False

Set w = Sheets("dat")

r = 2

Do While w.Cells(r, 1).Value <> ""

If TextBox1.Text = w.Cells(r, 1).Value Then

TextBox2.Text = w.Cells(r, 3).Value

TextBox3.Text = w.Cells(r, 10).Value

TextBox4.Text = w.Cells(r, 11).Value

TextBox5.Text = w.Cells(r, 17).Value

Label7.caption = r

CommandButton2.Enabled = True

Call CheckDate

Exit Sub

End If

r = r + 1

Loop

TextBox1.Enabled = True

CommandButton1.Enabled = True

End Sub

Sub CheckDate()

On Error GoTo exception

s = CDate(TextBox3.Text)

e = CDate(TextBox4.Text)

e = DateAdd("d", 1, e)

' 今日が開始日より後で終了日より前

If s < Now And e > Now Then

Label8.caption = "OK"

Else

Label8.caption = "NG"

End If

Exit Sub

exception:

Label8.caption = "-"

End Sub

Private Sub CommandButton2_Click()

' 今日の日付を登録

Set w = Sheets("dat")

If TextBox5.Text <> "" Then

result = TextBox5.Text & ", " & Month(Now) & "/" & Day(Now)

Else

result = Month(Now) & "/" & Day(Now)

End If

If TextBox6.Text <> "" Then

result = result & "(" & TextBox6.Text & ")"

End If

r = Label7.caption

w.Cells(r, 17).Value = result

TextBox5.Text = result

' CommandButton2.Enabled = False

w.Activate

w.Rows(r).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton3_Click()

' キャンセル

TextBox1.Enabled = True

CommandButton1.Enabled = True

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

Label7.caption = ""

Label8.caption = ""

CommandButton2.Enabled = False

TextBox1.SetFocus

End Sub

Private Sub CommandButton5_Click()

' シート書き込み

If ListBox2.ListCount = 0 Then Exit Sub

yesNo = vbYes

If TextBox2.Text = "" Then yesNo = MsgBox("氏名がありません。登録しますか？", vbYesNo)

If yesNo = vbNo Then Exit Sub

Set w = Sheets("売上")

r = 1

Do While w.Cells(r, 4).Value <> "" ' 商品名で最終行を算出

r = r + 1

Loop

targetRow = r

memberCode = TextBox1.Text

memberName = TextBox2.Text

For r = 0 To ListBox2.ListCount - 1

productName = ListBox2.List(r, 0)

unitPrice = ListBox2.List(r, 1)

amount = ListBox2.List(r, 2)

w.Cells(targetRow, 1).Value = DateTime.Now

w.Cells(targetRow, 2).Value = memberCode

w.Cells(targetRow, 3).Value = memberName

w.Cells(targetRow, 4).Value = productName

w.Cells(targetRow, 5).Value = unitPrice

w.Cells(targetRow, 6).Value = amount

targetRow = targetRow + 1

Next r

w.Activate

w.Rows(targetRow - 1).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton6_Click()

' クリア

ComboBox1.Text = ""

ListBox2.Clear

Label12.caption = ""

End Sub

Private Sub UserForm_Initialize()

TextBox1.SetFocus

MasterSetup

End Sub

Sub MasterSetup()

' 商品リスト

ListBox1.ColumnCount = 2

Set w = Sheets("master")

r = 2

Do While w.Cells(r, 1).Value <> ""

productName = w.Cells(r, 1).Value

unitPrice = w.Cells(r, 2).Value

ListBox1.AddItem ""

ListBox1.List(ListBox1.ListCount - 1, 0) = productName

ListBox1.List(ListBox1.ListCount - 1, 1) = unitPrice

r = r + 1

Loop

' 売上リスト

ListBox2.ColumnCount = 4

' 数量

For i = 1 To 10

ComboBox1.AddItem i

End Sub

Private Sub CommandButton4_Click()

' 転送

If ListBox1.Text = "" Then

MsgBox "商品を選択してください。"

Exit Sub

End If

If ComboBox1.Text = "" Then

MsgBox "数量を選択してください。"

Exit Sub

End If

productName = ListBox1.List(ListBox1.ListIndex, 0)

unitPrice = ListBox1.List(ListBox1.ListIndex, 1)

amount = ComboBox1.Text

ListBox2.AddItem ""

ListBox2.List(ListBox2.ListCount - 1, 0) = productName

ListBox2.List(ListBox2.ListCount - 1, 1) = unitPrice

ListBox2.List(ListBox2.ListCount - 1, 2) = amount

ListBox2.List(ListBox2.ListCount - 1, 3) = CDec(unitPrice) * CDec(amount)

TotalPrice

End Sub

Sub TotalPrice()

result = 0

For r = 0 To ListBox2.ListCount - 1

result = CDec(result) + CDec(ListBox2.List(r, 3))

Next r

Label12.caption = "\ " & result

End Sub

2020-11-032023-03-23

WatchGuard VPN ClientからOpenVPN GUIに変更

ときどき利用しているWatchGuard VPN Clientの調子が悪く、接続プロセス中に止ってしまうことが多くなった。

情報も少なく原因追求もできなかったので、試しにOpenVPNのクライアントをそのまま使ってみようかと考えた。
https://www.openvpn.jp/download/
から
OpenVPN-x.x.x-I601-amd64.msi
をダウンロード＋インストールし、
C:\Users\xxx\AppData\Roaming\WatchGuard\Mobile VPN
の中にある、
ca.crt
client.crt
client.ovpn
client.pem
の４つのファイルを、そのまま
C:\Program Files\OpenVPN\config
の中にコピーしたらOpenVPN GUIで接続できたので、しばらく使ってみる。

＊＊＊

追記：数ヶ月利用してみた結果、OpenVPNの方が安定しているような感じで、一度も問題は発生しなかった。

一応、WatchGuardの方は、
https://software.watchguard.com/SoftwareHome
からFirebox and XTMの中で適当な製品を開き、
Mobile VPN with SSL xx.x for Windows
の最新版をダウンロードして入れたら動くようにはなった。

＊＊＊

追記：1年以上OpenVPNを利用したが特に問題なし。

少し気になったのが、VPNを有効にすると、ネット接続が全てVPN経由になってしまうこと。時々切断を忘れることもあるので、特定のIPアドレスの範囲だけVPN経由に変更。

NICのメトリックで対応できるかと思ったけど、接続を実行すると、
ネットワーク宛先 / ネットマスク / ゲートウェイ / インターフェイス
0.0.0.0 / 128.0.0.0 / 192.168.113.1 / 192.168.113.5
128.0.0.0 / 128.0.0.0 / 192.168.113.1 / 192.168.113.5
(192.168.113.5がVPNのNIC)
というルーティングが追加されてしまうようでダメだった。

ちなみに、もともと存在するデフォルトルートは、
0.0.0.0 / 0.0.0.0 / 192.168.11.1 / 192.168.11.18
(192.168.11.18が物理NIC)

OpenVPNの情報が少なく適当ではあるけど、
C:\Program Files\OpenVPN\config\client.ovpn
に、
route-nopull
route 192.168.0.0 255.255.248.0
と追加した。
(192.168.0.1～192.168.7.254までVPN経由)

client.ovpnの名前を変更して、*.ovpnを複数作成すると、タスクトレイのアイコンから選択して接続できる。

＊＊＊

クライアントを2.5.8＞2.6.0に上げたらエラーが出たのでエラーの内容から、client.ovpnに、
data-ciphers AES-128-CBC
と追加した。

2020-10-302021-07-03

VBA 起動部分テンプレート

いつも忘れてしまうのでメモ。

右クリックメニューの階層化。高速化等々。

Dim caption As String

Sub auto_open()

On Error Resume Next

caption = "会員検索フォーム"

For i = 1 To 3
  Application.CommandBars("cell").Controls(caption).Delete
Next

With Application.CommandBars("cell").Controls.Add
  .OnAction = "show_form"
  .caption = caption
End With

Call show_form

'With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)
'  .caption = "メニュー"
'  With .Controls.Add(Type:=msoControlButton)
'  .caption = "アイテム"
'  .OnAction = "show_form"
'  End With
'End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 3
  Application.CommandBars("cell").Controls(caption).Delete
Next

' Application.CommandBars("cell").Controls("メニュー").Delete

End Sub

Sub Initialize()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual ' 関数利用注意
    
End Sub

Sub Finalize()

Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
    
End Sub

Dim caption As String

Sub auto_open()

On Error Resume Next

caption = "会員検索フォーム"

For i = 1 To 3

Application.CommandBars("cell").Controls(caption).Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "show_form"

.caption = caption

End With

Call show_form

'With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)

' .caption = "メニュー"

' With .Controls.Add(Type:=msoControlButton)

' .caption = "アイテム"

' .OnAction = "show_form"

' End With

'End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 3

Application.CommandBars("cell").Controls(caption).Delete

' Application.CommandBars("cell").Controls("メニュー").Delete

End Sub

Sub Initialize()

Application.ScreenUpdating = False

Application.EnableEvents = False

Application.DisplayAlerts = False

Application.Calculation = xlCalculationManual ' 関数利用注意

End Sub

Sub Finalize()

Application.Calculation = xlCalculationAutomatic

Application.DisplayAlerts = True

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub

2020-10-272020-10-28

PHP お問い合わせフォーム

<?php
//error_reporting(-1);
//ini_set('display_errors', 'On');
session_start();

if (isset($_POST["nn"]) && $_POST["token"] == $_SESSION["token"]) {

  $smtp = "";
  $to = "";
  $subject = "件名";
  $message = "名前：" . h($_POST["nn"]);
  $from = "";

  ini_set("SMTP", $smtp);
  ini_set("smtp_port","587");

  mb_language("japanese");
  mb_internal_encoding("UTF-8");
  mb_send_mail($to, $subject, $message, "From:" . $from);

  echo "<script>(function(){alert('送信しました。');}());</script>";

} else {

}

$_SESSION["token"] = md5(mt_rand());

function h($s){
  return htmlspecialchars($s, ENT_QUOTES, "UTF-8");
}

?>

<!DOCTYPE html>
<html lang="ja">
<head>
  <meta charset="UTF-8">
  <title>お問い合わせテスト</title>
  <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.5.1/jquery.min.js"></script>
</head>
<body>

<form action="" method="post" id="ff">
名前：<input type="text" name="nn" id="nn">
<input type="submit" value="送信">
<input type="hidden" name="token" value="<?php echo $_SESSION["token"]; ?>">
</form>

<script>

$("#ff").submit(function(){
  
  if($("#nn").val() == ""){
    alert("名前の入力は必須です。")
    return false;
  }

  return true;

});

</script>

</body>
</html>

<?php

//error_reporting(-1);

//ini_set('display_errors', 'On');

session_start();

if (isset($_POST["nn"]) && $_POST["token"] == $_SESSION["token"]) {

$smtp = "";

$to = "";

$subject = "件名";

$message = "名前：" . h($_POST["nn"]);

$from = "";

ini_set("SMTP", $smtp);

ini_set("smtp_port","587");

mb_language("japanese");

mb_internal_encoding("UTF-8");

mb_send_mail($to, $subject, $message, "From:" . $from);

echo "<script>(function(){alert('送信しました。');}());</script>";

} else {

}

$_SESSION["token"] = md5(mt_rand());

function h($s){

return htmlspecialchars($s, ENT_QUOTES, "UTF-8");

}

<!DOCTYPE html>

<head>

<title>お問い合わせテスト</title>

</head>

<body>

名前：<input type="text" name="nn" id="nn">

</form>

$("#ff").submit(function(){

if($("#nn").val() == ""){

alert("名前の入力は必須です。")

return false;

}

return true;

});

</script>

</body>

</html>

2020-10-182022-06-10

C# Reflection DataTableをListに代入

DataGridViewのDataSourceにList<Model>を渡すとき、DataTableからList<Model>に代入をReflectionで作ってみる。普段はそのまま名前を書いてしまうことも多い。

        private List<EmployeeModel> CreateModel(string queryString)
        {
            var modelType = typeof(EmployeeModel); // GetType()
            var models = new List<EmployeeModel>();
            List<string> propNameList = new List<string>(modelType.GetProperties().Select(x => x.Name));
            var dt = ExecuteQuery(queryString);
            for (int r = 0; r < dt.Rows.Count; r++)
            {
                var constructor = modelType.GetConstructor(System.Type.EmptyTypes);
                var model = (EmployeeModel)constructor.Invoke(null); // (EmployeeModel)Activator.CreateInstance(modelType);

                foreach(var propName in propNameList)
                {
                    modelType.GetProperty(propName).SetValue(model, dt.Rows[r][propName].ToString());
                }
                models.Add(model);
            }
            return models;
        }

private List<EmployeeModel> CreateModel(string queryString)

{

var modelType = typeof(EmployeeModel); // GetType()

var models = new List<EmployeeModel>();

List<string> propNameList = new List<string>(modelType.GetProperties().Select(x => x.Name));

var dt = ExecuteQuery(queryString);

for (int r = 0; r < dt.Rows.Count; r++)

{

var constructor = modelType.GetConstructor(System.Type.EmptyTypes);

var model = (EmployeeModel)constructor.Invoke(null); // (EmployeeModel)Activator.CreateInstance(modelType);

foreach(var propName in propNameList)

{

modelType.GetProperty(propName).SetValue(model, dt.Rows[r][propName].ToString());

}

models.Add(model);

}

return models;

}

2020-10-092024-03-06

SSL/TLS メモ

SSL/TLSは分かりづらいのでメモ

●SSLとTLS
Secure Sockets Layer
Transport Layer Security

SSLは既に廃止､プロトコルとしてはTLSのみ｡呼称としてのみSSL｡

●公開鍵暗号
公開鍵は暗号化
秘密鍵は復号化､公開鍵の生成｡
※秘密鍵で暗号化というのは考えない｡

●バージョン

Chromeデベロッパーツール>セキュリティ

●SSL/TLS

･サーバーは認証局に証明書を発行してもらう
CSRを認証局でハッシュ化し､それを署名生成鍵(秘密鍵)で暗号化｡
CSR+暗号化されたハッシュ=署名済証明書

･サーバーに署名済証明書をインストール

※以下ハンドシェイク(TLSのバージョンによって違う)

･共通鍵生成
お互い､非公開パラメータと公開パラメータを生成し、公開パラメータを相手に送る｡

･サーバーはクライアントに署名済証明書(中間CA証明書なども)を送付

･クライアントは署名済証明書に改ざんがないか検証
署名済証明書を検証鍵(公開鍵)で復号化し､CSRから計算したハッシュと､
復号化したハッシュを比較する｡
※検証鍵はOS/ブラウザにインストールされている

2020-10-012021-12-31

GCP Cloud SQL(MySQL) 使い方

先日VPS(Indigo)のSQLite→MySQLの実験を行ってみたが、GCPでもやってみることにした。

初期設定

Cloud SQL 無料トライアルを実行する。
(既にクレジット等の情報は登録済みなのでそのまま完了)

コンソールにログイン＞左側メニューのSQLを選択。
プロジェクト(すでにMyFirstProjectが存在している)をクリック。
インスタンスを作成をクリック。
MySQLをクリック。

インスタンスID、rootパスワードを入力する。
無料トライアルだが、実際運用を始めれば安く利用したいので、
asia-northeast1(東京)/db-f1-micro
SSD/10GB
自動バックアップしない
を選択する。インスタンス生成には少し時間がかかる。

・インスタンス作成後

コンソールにログイン＞左側メニューのSQLを選択。
作成したインスタンスを選択。

左側メニューの接続を選択。
SSL接続のみ許可をクリック。
クライアント証明書を作成をクリックし、一意のIDを追加し作成。

・サーバー証明書：server-ca.pem
・クライアントの公開鍵証明書：client-cert.pem
・クライアント秘密鍵：client-key.pem
という３つのファイルをダウンロードする。

同じく左側メニューの接続から、ネットワークを追加をクリック。
ネットワークの項目：0.0.0.0/0
を追加し完了＞保存を実行。

左側メニューの概要を選択、パブリックIPアドレスを確認。

MySQL Wokbenchから接続

Standard TCP/IPを選択。

・Parametersタブ
Hostname：パブリックIPアドレス
Port：3306
Username：DBユーザー名(root、app_user等)
パスワード：DBパスワード

・SSLタブ
Use SSL：Require and Verify CA
SSL Key File, SSL CERT File, SSL CA File
それぞれ、ダウンロードしたファイルを選択。
※登録後ファイルのパス変更(移動)できないので注意。

とりあえずこれでつながる。

C#(MySqlConnection)から接続

.Netではpemが使えないため、
(https://dev.mysql.com/doc/connector-net/en/connector-net-tutorials-ssl-pfx.html)
opensslのある環境上で(今回はVPSで)実行

openssl pkcs12 -export -inkey client-key.pem -in client-cert.pem -out client.pfx
pfxファイルを作成する。(client部は任意の名前)

pfxパスワードを聞かれるが、空白も可能で空白の場合、接続文字列のCertificatePasswordは不要となる。

・ワンライナーで設定する場合
pass=$(head /dev/urandom | tr -dc a-km-np-z1-9 | head -c 13);openssl pkcs12 -export -inkey client-key.pem -in client-cert.pem -out client.pfx -passout pass:${pass};echo $pass;

・接続文字列

"server=IPアドレス;port=3306;database=DB名;user=MySQLユーザー名;password=MySQLパスワード;SslMode=Required;CertificateFile=test.pfx;CertificatePassword=pfxパスワード";

1	"server=IPアドレス;port=3306;database=DB名;user=MySQLユーザー名;password=MySQLパスワード;SslMode=Required;CertificateFile=test.pfx;CertificatePassword=pfxパスワード";

        public Form1()
        {
            InitializeComponent();

            string connectionString = "server=xxx.xxx.xxx.xxx;port=3306;database=xxx;user=xxx;password=xxx;" +
                "SslMode=Required;CertificateFile=xxx.pfx;CertificatePassword=xxx";

            using (MySqlConnection con = new MySqlConnection(connectionString))
            {
                con.Open();
                MySqlCommand cmd = new MySqlCommand("select * from 設計一覧 limit 1", con);
                using (MySqlDataReader reader = cmd.ExecuteReader())
                {
                    DataTable dt = new DataTable();
                    dt.Load(reader);
                    
                    // カラム名を指定してアクセス
                    MessageBox.Show(dt.Rows[0].Field<string>("案件名"));
                    
                    // 全てのカラムを取得
                    MessageBox.Show(string.Join(",", dt.Rows[0].ItemArray));

                }
            }
        }

public Form1()

{

InitializeComponent();

string connectionString = "server=xxx.xxx.xxx.xxx;port=3306;database=xxx;user=xxx;password=xxx;" +

"SslMode=Required;CertificateFile=xxx.pfx;CertificatePassword=xxx";

using (MySqlConnection con = new MySqlConnection(connectionString))

{

con.Open();

MySqlCommand cmd = new MySqlCommand("select * from 設計一覧 limit 1", con);

using (MySqlDataReader reader = cmd.ExecuteReader())

{

DataTable dt = new DataTable();

dt.Load(reader);

// カラム名を指定してアクセス

MessageBox.Show(dt.Rows[0].Field<string>("案件名"));

// 全てのカラムを取得

MessageBox.Show(string.Join(",", dt.Rows[0].ItemArray));

}

MySQLのConnectorはNuGetでもインストーラーでもいける。インストーラなら参照設定から登録。

VBAからの接続

MySQLのODBCドライバをインストールする。32/64bitはOSではなくOfficeに合わせる ‘(ファイル＞アカウント＞Excelバージョン情報)

https://dev.mysql.com/downloads/connector/odbc/
mysql-connector-odbc-xxx-winx64(32).msi

Sub test()

'Microsoft ActiveX Data Objects x.x Library参照設定

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open "Driver={MySQL ODBC 8.0 Unicode Driver}; Server=xxx.xxx.xxx.xxx; Database=xxx; Port=3306; Uid=xxx; Pwd=xxx; " & _
"Sslmode=Required; sslcert=" & ThisWorkbook.Path & "\client-cert.pem; sslkey=" & ThisWorkbook.Path & "\client-key.pem; "

rs.Open "select * from 設計一覧 where 表示状態 = '表示'", cn

Set w = ActiveSheet

'見出

i = 0
For c = 1 To rs.Fields.Count - 1
  w.Cells(1, c).Value = rs.Fields(i).Name
  i = i + 1
Next c

'本体

r = 2
Do Until rs.EOF

  i = 0
  For c = 1 To rs.Fields.Count - 1
    w.Cells(r, c).Value = rs.Fields(i)
    i = i + 1
  Next c
  
  rs.MoveNext
  r = r + 1
Loop

If rs.State = 1 Then rs.Close
Set rs = Nothing
 
If cn.State = 1 Then cn.Close
Set cn = Nothing

End Sub

Sub test()

'Microsoft ActiveX Data Objects x.x Library参照設定

Set cn = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

cn.Open "Driver={MySQL ODBC 8.0 Unicode Driver}; Server=xxx.xxx.xxx.xxx; Database=xxx; Port=3306; Uid=xxx; Pwd=xxx; " & _

"Sslmode=Required; sslcert=" & ThisWorkbook.Path & "\client-cert.pem; sslkey=" & ThisWorkbook.Path & "\client-key.pem; "

rs.Open "select * from 設計一覧 where 表示状態 = '表示'", cn

Set w = ActiveSheet

'見出

i = 0

For c = 1 To rs.Fields.Count - 1

w.Cells(1, c).Value = rs.Fields(i).Name

i = i + 1

Next c

'本体

r = 2

Do Until rs.EOF

i = 0

For c = 1 To rs.Fields.Count - 1

w.Cells(r, c).Value = rs.Fields(i)

i = i + 1

Next c

rs.MoveNext

r = r + 1

Loop

If rs.State = 1 Then rs.Close

Set rs = Nothing

If cn.State = 1 Then cn.Close

Set cn = Nothing

End Sub

MySQLにインポート

・データベース作成

コンソール＞SQL＞インスタンス選択＞データベース＞データベースの作成をクリック。

文字セット：utf8
照合：デフォルトの照合

・ファイルアップロード(Storage)

コンソール＞Storage＞ブラウザ＞バケットを作成をクリック。

バケットに一意の名前をつける。

ロケーションタイプ：Region
ロケーション：asia-northeast1(東京)
ストレージクラス：Standard
アクセス制御：均一

コンソール＞Storage＞ブラウザ＞バケットを選択＞ファイルをアップロードをクリック。

・インポート

コンソール＞SQL＞インスタンス選択＞概要＞インポートをクリック。

ソースにファイルを指定：アップロードしたファイル選択
ファイル形式：SQL
インポート先：作成したデータベース名

VPSのMySQLへはSQLiteで作成したファイルを直接インポートできたが、GCPではできなかったため、とりあえず今回はSQLite＞MySQL(VPS)＞MySQL(GCP)という流れになった。

2020-09-262020-09-29

Python 組み込みサーバー

import http.server
import socketserver

# ワンライナーの場合
# python –m http.server 8000
# あるいは、
# python –m http.server 8000 --cgi

# この場合、内部的には以下のように処理される
# https://github.com/python/cpython/blob/3.6/Lib/http/server.py

'''
def test(HandlerClass=BaseHTTPRequestHandler,
         ServerClass=HTTPServer, protocol="HTTP/1.0", port=8000, bind=""):
    """Test the HTTP request handler class.
    This runs an HTTP server on port 8000 (or the port argument).
    """
    server_address = (bind, port)

    HandlerClass.protocol_version = protocol
    with ServerClass(server_address, HandlerClass) as httpd:
        sa = httpd.socket.getsockname()
        serve_message = "Serving HTTP on {host} port {port} (http://{host}:{port}/) ..."
        print(serve_message.format(host=sa[0], port=sa[1]))
        try:
            httpd.serve_forever()
        except KeyboardInterrupt:
            print("\nKeyboard interrupt received, exiting.")
            sys.exit(0)

if __name__ == '__main__':
    parser = argparse.ArgumentParser()
    parser.add_argument('--cgi', action='store_true',
                       help='Run as CGI Server')
    parser.add_argument('--bind', '-b', default='', metavar='ADDRESS',
                        help='Specify alternate bind address '
                             '[default: all interfaces]')
    parser.add_argument('port', action='store',
                        default=8000, type=int,
                        nargs='?',
                        help='Specify alternate port [default: 8000]')
    args = parser.parse_args()
    if args.cgi:
        handler_class = CGIHTTPRequestHandler
    else:
        handler_class = SimpleHTTPRequestHandler
    test(HandlerClass=handler_class, port=args.port, bind=args.bind)
'''

# スクリプト内でサーバーを呼ぶ場合 --------------------------------------------------------

# 上記スクリプトを見ると、このように書ける
http.server.test(HandlerClass=http.server.SimpleHTTPRequestHandler)
# --cgiの場合
http.server.test(HandlerClass=http.server.CGIHTTPRequestHandler)

# または以下のようにも書ける
addr = ("127.0.0.1", 8000)
class handler(http.server.CGIHTTPRequestHandler):
   cgi_directories = ["/cgi-bin"]
# handler部は以下のようにも書ける
# handler = http.server.CGIHTTPRequestHandler
# handler.cgi_directories = ["/cgi-bin"]
httpd = http.server.HTTPServer(addr, handler)
httpd.serve_forever()

# ここではhttp.server.HTTPServerを利用している
# http.server.HTTPServerはsocketserver.TCPServerのサブクラスであり
# 以下のようにも書ける

addr = ("127.0.0.1", 8000)
class handler(http.server.CGIHTTPRequestHandler):
   cgi_directories = ["/cgi-bin"]
httpd = socketserver.TCPServer(addr, handler)
httpd.serve_forever()

# serve_forever()はBaseServerに定義されており、TCPServerはBaseServerを継承している
# 自前のハンドラーは# http.server.BaseHTTPRequestHandlerを継承してdo_xxxという名前のメソッドを実装する

import http.server

import socketserver

# ワンライナーの場合

# python –m http.server 8000

# あるいは、

# python –m http.server 8000 --cgi

# この場合、内部的には以下のように処理される

# https://github.com/python/cpython/blob/3.6/Lib/http/server.py

'''

def test(HandlerClass=BaseHTTPRequestHandler,

ServerClass=HTTPServer, protocol="HTTP/1.0", port=8000, bind=""):

"""Test the HTTP request handler class.

This runs an HTTP server on port 8000 (or the port argument).

"""

server_address = (bind, port)

HandlerClass.protocol_version = protocol

with ServerClass(server_address, HandlerClass) as httpd:

sa = httpd.socket.getsockname()

serve_message = "Serving HTTP on {host} port {port} (http://{host}:{port}/) ..."

print(serve_message.format(host=sa[0], port=sa[1]))

try:

httpd.serve_forever()

except KeyboardInterrupt:

print("\nKeyboard interrupt received, exiting.")

sys.exit(0)

if __name__ == '__main__':

parser = argparse.ArgumentParser()

parser.add_argument('--cgi', action='store_true',

help='Run as CGI Server')

parser.add_argument('--bind', '-b', default='', metavar='ADDRESS',

help='Specify alternate bind address '

'[default: all interfaces]')

parser.add_argument('port', action='store',

default=8000, type=int,

nargs='?',

help='Specify alternate port [default: 8000]')

args = parser.parse_args()

if args.cgi:

handler_class = CGIHTTPRequestHandler

else:

handler_class = SimpleHTTPRequestHandler

test(HandlerClass=handler_class, port=args.port, bind=args.bind)

'''

# スクリプト内でサーバーを呼ぶ場合 --------------------------------------------------------

# 上記スクリプトを見ると、このように書ける

http.server.test(HandlerClass=http.server.SimpleHTTPRequestHandler)

# --cgiの場合

http.server.test(HandlerClass=http.server.CGIHTTPRequestHandler)

# または以下のようにも書ける

addr = ("127.0.0.1", 8000)

class handler(http.server.CGIHTTPRequestHandler):

cgi_directories = ["/cgi-bin"]

# handler部は以下のようにも書ける

# handler = http.server.CGIHTTPRequestHandler

# handler.cgi_directories = ["/cgi-bin"]

httpd = http.server.HTTPServer(addr, handler)

httpd.serve_forever()

# ここではhttp.server.HTTPServerを利用している

# http.server.HTTPServerはsocketserver.TCPServerのサブクラスであり

# 以下のようにも書ける

addr = ("127.0.0.1", 8000)

class handler(http.server.CGIHTTPRequestHandler):

cgi_directories = ["/cgi-bin"]

httpd = socketserver.TCPServer(addr, handler)

httpd.serve_forever()

# serve_forever()はBaseServerに定義されており、TCPServerはBaseServerを継承している

# 自前のハンドラーは# http.server.BaseHTTPRequestHandlerを継承してdo_xxxという名前のメソッドを実装する

・組み込みサーバーでCGIを処理

Win10設定＞アプリ＞アプリと実行エイリアス
python.exeをオフにする

sysdm.cpl＞詳細設定＞環境変数
からパスを通す
C:\Users\mail\AppData\Local\Programs\Python

バッチファイルを作成

start python.py
start http://localhost:8000/index.html
exit

start python.py

start http://localhost:8000/index.html

exit

バッチと同じ階層にpython.pyを作成

import http.server
class handler(http.server.CGIHTTPRequestHandler):
   cgi_directories = ["/bin"]
http.server.test(HandlerClass=handler)

import http.server

class handler(http.server.CGIHTTPRequestHandler):

cgi_directories = ["/bin"]

http.server.test(HandlerClass=handler)

バッチと同じ階層にindex.htmlを作成

<!DOCTYPE html>
<html lang="ja">
<head>
  <meta charset="UTF-8">
  <title>test</title>
</head>
<body>

<form action="/bin/test.py?age=20" method="POST">
  <input type="text" name="val">
  <input type="submit" name="submit" value="送信">
</form>

</body>
</html>

<!DOCTYPE html>

<head>

</head>

<body>

</form>

</body>

</html>

binファルダ以下にtest.pyを作成

import cgi
import urllib
import sys
import io

sys.stdout = io.TextIOWrapper(sys.stdout.buffer, encoding='utf-8')

form = cgi.FieldStorage()
v = form.list # name, valueをlist型
# 他にもいくつか方法がある
# form.getvalue("val") # valueをstring型/複数ならlist型
# form.getfirst("val") # valueをstring型
# form.getlist("val") # valueをlist型
# form["val"] # name, valueをlist型
# form["val"].value # valueをstring型

html = '''
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
</head>
<body>
<p>{}</p>
</body>
</html>
'''.format(v)

print("Content-Type: text/html; charset=UTF-8")
print("")
print(html)

import cgi

import urllib

import sys

import io

sys.stdout = io.TextIOWrapper(sys.stdout.buffer, encoding='utf-8')

form = cgi.FieldStorage()

v = form.list # name, valueをlist型

# 他にもいくつか方法がある

# form.getvalue("val") # valueをstring型/複数ならlist型

# form.getfirst("val") # valueをstring型

# form.getlist("val") # valueをlist型

# form["val"] # name, valueをlist型

# form["val"].value # valueをstring型

html = '''

<!DOCTYPE html>

<html>

<head>

</head>

<body>

</body>

</html>

'''.format(v)

print("Content-Type: text/html; charset=UTF-8")

print("")

print(html)