C# httpclientでOAuth 2.0 認証(クライアントクレデンシャルグラント) アクセストークンもらう

C# 
string client_id = "hogehoge";				// 提供される情報
string client_secret = "hogehoge_secret";	// 

HttpClient http_client = new HttpClient();

HttpRequestMessage request = new HttpRequestMessage();
request.Method = HttpMethod.Post;
request.RequestUri = new Uri("https://auth-api.api.hogehoge.com/oauth2/");	// クライアントクレデンシャルグラントで使用するエンドポイント

// Basic認証
request.Headers.Authorization = new System.Net.Http.Headers.AuthenticationHeaderValue(
    "Basic",
    Convert.ToBase64String(Encoding.ASCII.GetBytes(client_id + ":" + client_secret)));	

// パラメータ
var parameters = new Dictionary<string, string>()
{
    { "grant_type", "client_credentials" },
    { "param", "hoge" },
};
request.Content = new FormUrlEncodedContent(parameters);

var response = http_client.SendAsync(request);
response.Wait();

string result = response.Result .Content.ReadAsStringAsync().Result;

ネタ元

wordpressで自動更新ONにする方法

wordpress

「function.php」に対して以下のように記述します。

//プラグインの自動更新を有効化
add_filter( 'auto_update_plugin', '__return_true' );
//テーマの自動更新を有効化
add_filter( 'auto_update_theme', '__return_true' );
//メジャーアップグレードの自動更新を有効化
add_filter( 'allow_major_auto_core_updates', '__return_true' );

ネタ元

win10で電源オプションに究極のパフォーマンスを追加する

OS

DOS窓で以下実行

powercfg -duplicatescheme e9a42b02-d5df-448d-aa00-03f14749eb61

デスクトップPCじゃないと有効にならないので注意。

究極を試してみた結果、ミラクルに速度が変化するという感じはなさそう。
よく測れば速いかな、って感じ

ネタ元

Google Analytics 目標(コンバージョン)集計のやりかた

web

イベントを仕込む

  • 分類を考える
    • カテゴリ/アクション/ラベル/値という項目が選べる
    • ここではカテゴリを「hoge」/アクションを「conversion」にすることにする

2018/10/29現在なら、
コンバージョン確定としたいページに

<script>
gtag('event','conversion',{'event_category':'hoge'});
</script>

とコードを埋め込む。
もちろんGoogle Analyticsのコードは埋め込み済という前提。

するとAnalyticsの行動>イベント で イベント カテゴリのとこに hoge がでてくるのが確認できる。
※リアルタイムじゃないので、数分まって確認すること。
※このgtagという部分、Analyticsの埋め込みコード次第では昔の書式にする必要あり。また将来変わるのかもしれない。

目標を設定

  • 管理>目標に移動
  • 「新しい目標」クリック　※作ると削除できないので、気さくに追加すると管理めんどい
  • 目標設定は「カスタム」
  • 目標の説明の名前はてきとうに。イベントをチェック
  • 目標の詳細で　カテゴリにhoge、アクションにconversion　を指定

これで準備完了。

これまたリアルタイムじゃないようなので、1日おいて様子見しながらチェックしよう

ネタ元

VBScriptのExcelインスタンス化 Set objExcel = CreateObject("Excel.Application") がダメ レジストリからサブキー列挙して探してやろう(力技)

VBS WSH

Excel.Application.15だったりExcel.Application.16じゃないと通らない環境がある。
複数バージョンインストールしてるとなるっぽい。
こちらはレジストリを循環して探して利用する技

'Excel インスタンス化
Dim existExcel
existExcel = False
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Classes\"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
Dim mess
For Each subkey In arrSubKeys
	dim chk
	chk	= InStr(subkey,"Excel.Application")
	if false = isNull(chk) and chk <> 0 then
		Set objExcel = CreateObject(subkey) 
		If Err.Number = 0 Then
			existExcel = True
			exit for
		end if
	end if
Next
If existExcel = False Then
	Err.Clear
	MsgBox "ダメでした", vbExclamation 
	WScript.Quit
End if

ネタ元