常連

初めまして。akaiと申します。

### １．行っている事
Windows10で、コマンドラインでレジストリを変更することでプロキシを設定しています。
具体的には、下記のレジストリキーにプロキシサーバーを設定し、
```
Key: HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer
Type: REG_SZ
Value: socks=localhost:10900
```

さらに下記のレジストリキーを変更することで、プロキシの有効｜無効を切り替えております。
```
Key: HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable
Type: REG_DWORD
Value: 1(Enable) | 0(Disable)
```
設定が適用されたかどうか（＝接続がプロキシ経由に変更されたかどうか）は、https://whatismyipaddress.com/に接続することで確認しています。
### ２．発生している問題
問題は、上記１．に書きました方法では、設定がすぐには適用されない事です
GUIでプロキシサーバーの設定を変更した場合は、ダイアログボックスのOKボタンを押下すれば、すぐに適用され、プロキシ経由の接続となります。
しかし、上記１．に書きました方法でレジストリからプロキシをEnableにしても、そのままではプロキシ経由の接続に変更されず、プロキシ設定前の接続で接続できる状態が継続し、この時ブラウザを再起動しても変更されず、次のいずれかの操作を行ってはじめて、プロキシ経由の接続に変更されます。
- インターネット接続を一旦切断し、再接続する
- 「ネットワークのトラブルシューティングツール」を実行し、「問題を検出しています」の画面が完了し、「～いくつかのWebサイトにアクセスできることが確認されました」と表示（つまり何も修復や設定変更は行われていないはず）されたとき


### ３．実現したい事、教えて頂きたい事
コマンドラインで行ったプロキシの設定をすぐに反映させたいのですが、
上記１．のレジストリの変更の後に、足りない操作は何でしょうか？
上記１．のレジストリの変更により、GUIの操作で変更される項目は全て変更できているはずだと思うのですが、なぜ再接続などをしないと、反映されないのでしょうか？
WindowsのダイアログボックスのOKボタンを押下するときに、何かコマンドが実行されるのでしょうか？
（と思い、Win32 APIタグをこの質問に付けました。）

どうぞよろしくお願いいたします。

WindowsのProxy設定をレジストリの変更で行う場合に必要な操作

【課題】
pythonからwin32を利用してExcelを操作するプログラムを実行した際に、「ModuleNotFoundError: No module named 'win32com'」と表示されます。しかし、Anaconda Promptでライブラリのインストール有無を調べたところ、問題なくインストールされている模様です。

![イメージ説明](81d080b927d20970b23c09006e6f8eac.png)

プログラムの呼び出しは下記の2つの方法を試していますが両方とも上記エラーが表示されます。

```bat
@echo off
py "フォルダ名"\"プログラム名".py

exit
```
```bat
@echo off
C:\ProgramData\Anaconda3\Scripts\Activate.bat C:\ProgramData\Anaconda3 && "プログラム名".py
```
【事象】
別の端末（win32comをインストール済）で同じプログラムを実行すると問題なく実行されます。またJupyter Notebookでも問題なく実行されます。

解決に向けてのヒント等ご教授頂けないでしょうか？
皆様のお知恵を拝借できればと思っております。

pythonからwin32comを呼び出し時にエラーが出る

windowsで特定のwindowを最前面にしたいです．
しかしwin32gui.SetForegroundWindowで行うことは，最近のwindowsでは出来ないことを知りました．
そこでwin32gui.SetForegroundWindowではなく，タスク切り替えのショートカットである「alt+Tab」をpythonから行う方法もしくは根本的なタスクである，特定のwindowを最前面にする手法が知りたいです．

windowsで特定のwindowを最前面にしたい

レジストリを確認することで起動しているか否かを確認できる常駐プログラムが
起動している間、シャットダウンを抑止する常駐プログラムを作成しようと思っています。
コードは一番下に記載しております。

#環境
windows10 pro

 Visual Studio2017
#

#やってみたこと
コンパイルしたところ
```
//エラー画面
LNK2019	未解決の外部シンボル 
"unsigned long __cdecl RegestryCheck(struct HKEY__ *,wchar_t const *,wchar_t const *,unsigned
 long *,void *,unsigned long *)"

 (?RegestryCheck@@YAKPAUHKEY__@@PB_W1PAKPAX2@Z) が


関数 "bool __cdecl GetValue(void)" (?GetValue@@YA_NXZ) で参照されました
```

というエラーが発生しました。

レジストリ参照については[こちらのサイト](http://nienie.com/~masapico/api_SHGetValue.html)を参照しました。
シャットダウン抑止については[こちら](https://qiita.com/gocha/items/38e2301db9d99faf2886)を参照しました。
関数に関しては
プロトタイプ宣言もしていますし、組み込み関数をincludeで呼び出して言ると思うのですが、
ほかにどこか間違っているのでしょか。

文字セットはunicodeです。

回答お願いします。






#プログラミングコード
```
//shutdownkillguard.cpp

#include <Windows.h>
#include <tchar.h>
#include "resource.h"
#include <stdarg.h>
#include <stdbool.h>



#define WM_TASKTRAY (WM_USER+1)
#define ID_TASKTRAY 0
#define ARRAY_LENGTH(array) (sizeof(array) / sizeof(array[0]))


void SetupShutdownBlock(bool noStandby, bool noScreenSaver);
bool GetValue();

HWND    g_hWnd;

LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
	switch (msg)
	{
	case WM_TASKTRAY:
		if (wParam == ID_TASKTRAY)
		{
			switch (lParam) {


				break;
			case WM_LBUTTONUP:

				int iRetYesNo;
				


				iRetYesNo = MessageBox(NULL, _T("RAguardを終了しますか"), _T("RAguard"), MB_YESNO | MB_ICONQUESTION);
				if (iRetYesNo == IDYES) {

					

					bool checkpasonemu = GetValue();


					if (checkpasonemu = false) {

						MessageBox(NULL, _T("処理が完了しました"), _T("RAguard"), MB_OK);
						return WM_DESTROY;

					}

					else {

						MessageBox(NULL, _T("ぱそこんねむねむが起動中です"),
							_T("RAguard"), MB_OK | MB_ICONWARNING);


					}



				}
				else {

					     return -2;	// -2を返す.

				     }
			}

		}
	break;

	case WM_INITDIALOG:


		// Adjust process info to block shutdown.
		// スタンバイ等を抑制するためにプロセスの情報をあれこれ変更
		SetupShutdownBlock(true, true);

		// Vista or later: You can display the reason of block (optional)
		// Vista 以降: シャットダウンできない理由を表示できます
		ShutdownBlockReasonCreate(hWnd, TEXT("ぱそこんねむねむの監視中です;)"));
		return (INT_PTR)TRUE;

	case WM_QUERYENDSESSION:


		// Prevent shutdown. Return FALSE as a return value for WM_QUERYENDSESSION.
		// If your window is not a dialog, you can simply use `return FALSE`.
		// シャットダウンを抑制するために FALSE を返します。
		// 通常のウィンドウなら `return FALSE` で構いません。

		return (INT_PTR)TRUE;

	case WM_ENDSESSION:


		// Do nothing.
		break;

	case WM_DESTROY:                                       //!< ウインドウを閉じる
		::PostQuitMessage(0);                               //!< WM_QUITを送る
		return ::DefWindowProc(hWnd, msg, wParam, lParam);
	default:
		return ::DefWindowProc(hWnd, msg, wParam, lParam);
	}
	return ::DefWindowProc(hWnd, msg, wParam, lParam);
}

BOOL Init(HINSTANCE hInstance)
{
	// ウインドウ生成
	WNDCLASS                wc;                                       //!< ウインドウクラス
																	  // ウインドウクラスの登録
	wc.style = CS_HREDRAW | CS_VREDRAW;
	wc.lpfnWndProc = static_cast<WNDPROC>(WndProc);    //!< メッセージを受け取るウインドウ関数
	wc.cbClsExtra = 0;
	wc.cbWndExtra = 0;
	wc.hInstance = hInstance;
	wc.hIcon = NULL;                                     //!< アイコン登録
	wc.hCursor = ::LoadCursor(NULL, IDC_ARROW);    //!< カーソル登録
	wc.hbrBackground = static_cast<HBRUSH>(::GetStockObject(WHITE_BRUSH));
	wc.lpszMenuName = NULL;                        //!< メニューの登録
	wc.lpszClassName = L"常駐";
	// ウインドウクラスの登録
	if (!::RegisterClass(&wc)) return EXIT_FAILURE;

	// ウインドウを作成
	g_hWnd = ::CreateWindow(L"常駐",                     //!< クラス名
		L"常駐",                                            //!< タイトル名
		WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU, //!< スタイル
		0,                                                    //!< Ｘ座標
		0,                                                    //!< Ｙ座標
		100,                                                //!< 横幅
		100,                                                //!< 高さ
		NULL,                                          //!< 親ウインドウのハンドル
		NULL,                                          //!< メニューハンドル
		hInstance,                                   //!< インスタンスハンドル
		NULL);                                        //!< lParam

													  // ウインドウの作成
	if (!g_hWnd) return EXIT_FAILURE;
	// ウインドウの表示状態の設定
	::ShowWindow(g_hWnd, SW_HIDE);
	// ウインドウの更新
	::UpdateWindow(g_hWnd);


	NOTIFYICONDATA nif;
	// タスクトレイに登録
	nif.cbSize = sizeof(NOTIFYICONDATA);
	nif.hIcon = (HICON)LoadImage(0, TEXT("shutdown.ico"), IMAGE_ICON, 0, 0, LR_LOADFROMFILE);
	nif.hWnd = g_hWnd;
	nif.uCallbackMessage = WM_TASKTRAY;
	nif.uFlags = NIF_ICON | NIF_MESSAGE | NIF_TIP;
	nif.uID = ID_TASKTRAY;
	::wcscpy_s(nif.szTip, 128, L"RAguard");

	Shell_NotifyIcon(NIM_ADD, &nif);

	return EXIT_SUCCESS;
}

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
	MSG msg;

	if (Init(hInstance) == EXIT_FAILURE) return EXIT_FAILURE;

	while (::GetMessage(&msg, NULL, 0, 0))
	{
		::TranslateMessage(&msg);
		::DispatchMessage(&msg);
	}
	return EXIT_SUCCESS;
}


void SetupShutdownBlock(bool noStandby, bool noScreenSaver)
{
	// Get OS version
	// OS のバージョンを取得
	OSVERSIONINFO osVersion;
	osVersion.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
	GetVersionEx(&osVersion);

	// Set shutdown order (highest priority)
	// シャットダウン時の処理順序を最高にする
	DWORD priorityLevels[5] = { 0x4FF, 0x4F0, 0x3FF, 0x3F0, 0x300 };
	for (int i = 0; i < ARRAY_LENGTH(priorityLevels); i++)
	{
		if (SetProcessShutdownParameters(priorityLevels[i], 0) != FALSE)
		{
			break;
		}
	}

	if (noScreenSaver)
	{
		// Windows 7 or later?
		if (osVersion.dwMajorVersion == 6 && osVersion.dwMinorVersion >= 1)
		{
			// Cast a magic spell, I'm not sure why it is needed.
			// なんだろうこれ、おまじない
			BOOL screenSaveActive;
			SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, &screenSaveActive, 0);
			SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, screenSaveActive, NULL, SPIF_SENDWININICHANGE);
		}
	}

	// Protect process from standby or screensaver.
	// プロセスをスタンバイや画面オフから守るように命じる
	EXECUTION_STATE state = ES_CONTINUOUS |
		(noStandby ? ES_SYSTEM_REQUIRED : 0) |
		(noScreenSaver ? ES_DISPLAY_REQUIRED : 0) |
		ES_AWAYMODE_REQUIRED;
	SetThreadExecutionState(ES_CONTINUOUS);
	SetThreadExecutionState(state);
}


bool GetValue()
{
	HKEY hKey;
	DWORD ValueType;
	DWORD ValueSize;
	char Value[1000];

	DWORD RegestryCheck(
		HKEY hKey,
		LPCTSTR SubKeyName,
		LPCTSTR ValueName,
		LPDWORD ValueType,
		LPVOID Value,
		LPDWORD ValueSize);



	RegOpenKeyEx(
		HKEY_CURRENT_USER,
		TEXT("Software\pasonemu.net"),
		0,
		KEY_ALL_ACCESS,
		&hKey);

	ValueSize = 1000;


	RegestryCheck(
		hKey,
		TEXT("pasonemu.net"),
		TEXT("End"),
		&ValueType,
		Value,
		&ValueSize);


	if (ValueType = REG_SZ)
	{
		if (Value == "False")
		{
			return false;

		}
		else {
			return true;
		}
	}
	else {
		return false;
	}


	RegCloseKey(hKey); 
}

```

###追記１
先ほどの[レジストリ編集](http://nienie.com/~masapico/api_SHGetValue.html)のリンク先にあるSHGetValueと、[MicroSoftのSHGetvalue](https://msdn.microsoft.com/ja-jp/library/windows/desktop/bb773495(v=vs.85).aspx)と型が違っていたので、
関数が違うかと思い、
```
DWORD SHGetValue(
        HKEY hKey,
        LPCTSTR SubKeyName,
        LPCTSTR ValueName,
        LPDWORD ValueType,
        LPVOID Value,
        LPDWORD ValueSize);
```
を


```
DWORD RegestryCheck(
        HKEY hKey,
        LPCTSTR SubKeyName,
        LPCTSTR ValueName,
        LPDWORD ValueType,
        LPVOID Value,
        LPDWORD ValueSize);
```

に変えていました。
回答者方々のご指摘通り、 とりあえず、
RegestryCheckをSHGetValueに変換し、

Shlwapi.hをインクルードしたのですが、

またエラーが表示されました。
```
エラー	LNK2019	未解決の外部シンボル __imp__SHGetValueW@24 が関数 "bool __cdecl GetValue(void)" 
(?GetValue@@YA_NXZ) で参照されました。
```

型がmicrosoftと個人サイトに書いてあったレジストリの関数の宣言の

SHGetValueの型が違っていたので、変更しました。（DWORD→LSTATUS）
しかし、
```

1.
型 "HKEY" の値を使用して型 "LSTATUS" のエンティティを初期化することはできません

2.
）が必要です。

３．	LNK2019	未解決の外部シンボル __imp__SHGetValueW@24 が関数 "bool __cdecl GetValue(void)" (?GetValue@@YA_NXZ)

 で参照されました。	
```

またもやエラーが発生しました。
公式の関数の定義通りになっていないのでしょうか。


#リンクのつけ方
```
//プロジェクト→[プログラム名]のプロパティ→リンカー→入力→追加の依存ファイル
でlibファイルを追加することができました。



```

LNK2019	未解決の外部シンボル ～が関数～で参照されました。

C#でフィールドに
long buffer;と記述すると
タイトルの警告文が出ます。

そこで、初期化を行いたいのですが

buffer = new long();と記述してもエラーが出ます。
どなたか、C#のlong型を初期化する構文を教えて下さい。


よろしくお願い致します。

C# 割り当てられません　常に既定値0を使用しますと警告文がでる

お世話になります。
Edge複数プロセス、複数タブを開いた状態でWebDriverを使用せずに
開かれているタブ上のタイトルを列挙する方法を調べております。
（WebDriverを使用すれば、取得できるのは把握していますが、ドライバーを使用するには
　常にローカルのEdgeバージョンと同じバージョンのドライバーが必要なため却下しました。）

MS製のSPY++（V12　2012年製なのでEdgeが出来る前です。）
で、確認すると、個別のタブの状態が表示されています。
![イメージ説明](e7ed5777774048f06c21e2cd328b0883.png)
クラス名：Windows.Internal.Shell.TabProxyWindow

~~自作コードや、~~SPYの代替品でなどで調べると、SPYとは異なる表示となり
表示されているタブをまとめた形で表示されます。

◆Windows10のウィンドウ構成要素を２種類の方法で列挙するツールを作ってみた
[https://qiita.com/kob58im/items/3587d8e595e655e9391d]
![イメージ説明](c860339c81dad1331b1b146fa6039349.png)
クラス名：Chrome_WidgetWin_1

また、UIAUTOMATIONで列挙する方法もありますが、この場合Edgeのプロセスが複数ある場合
アクティブのプロセスのみ取得できる形となり、都度対象Edgeをアクティブにする必要が発生するため
こちらも却下としました。
◆How to get a list of open tabs from chrome? | C#
[リンク内容](https://stackoverflow.com/questions/40070703/how-to-get-a-list-of-open-tabs-from-chrome-c-sharp)

古いSPYでも欲しい情報が取れているので、何らかの方法で取得が可能だと考えておりますが
その方法が分からず困っております。

タブの実態？のクラス名「Chrome_WidgetWin_1」 や「TabProxyWindow」で検索すると
取得は出来ているようなので、なんらかの方法により実現は可能では無いかと考えております。
[リンク内容](https://twitter.com/benshi_orator/status/1395608086807650304)
[リンク内容](https://twitter.com/y_r_takanashi/status/1359802543618985984)

何卒宜しくお願い致します。

Edge（chromium）の開いているタブを列挙する

VBAで、WEB操作を自動化しています。
「Web ページからのメッセージ」のダイアログが出る場合、VBAで「OK」を押したく。

この質問は過去にもたくさんされているので、ネット検索しながらコードを切り貼りし
下記を作成しましたが、やはりどうしてもうまくいきません。

もしよろしければ、お知恵を貸していただけないでしょうか。
ちなみに、エラーは特に出ません。

動作環境
・OSは64ビットです。
・ブラウザはIEです。

```
Option Explicit

'DeclareステートメントにPtrSafe属性を追加；64ビット版Excel対応のため
Declare PtrSafe Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
(ByVal hwndParent As Long, ByVal hwndChildAfter As Long, _
ByVal lpszClass As String, ByVal lpszWindow As String) As Long

'ダイアログウィンドウを探す
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

'Postmassage
Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Const WM_COMMAND As Long = &H111&

'***************************************************************
Sub hoge()

===省略=== 
     
  Sleep 1000

 'Webページからのポップアップをクリック   
  Dim hwnd As LongPtr
        
  hwnd = FindWindow("#32770", "Web ページからのメッセージ")
  PostMessage hwnd, WM_COMMAND, vbOK, 0& 'システムダイアログのOKボタンを押す

End sub
```

VBAで「Web ページからのメッセージ」を操作したい

C#でソケット通信のプログラムを書いていて、解決できない問題があるので質問させてください
やりたいこと、System.Net.Sockets.Socket を再利用したいです。
以下のプログラムのようなことを例外なく実行させるには、何が足り何のでしょうか？
新しいインスタンスを作ることなく実行したいです

###発生している問題・エラーメッセージ
System.InvalidOperationException: 'ソケットがいったん切断されると、非同期、および異なる EndPoint でのみ再び受け取ることができます。  操作が完了するまで終了しないスレッド上で BeginConnect を呼び出さなければなりません。'


###該当のソースコード
    class Class1
    {
        Socket socket;
        public Class1()
        {
            socket = new Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp);

            var remoteIpEp = new IPEndPoint(IPAddress.Parse("127.0.0.1"), 54321);

            socket.Connect(remoteIpEp );
            socket.Disconnect(true);
            socket.Connect(remoteIpEp ); //ここで例外
            socket.Disconnect(true);
        }
}

###試したこと
・socket.SetSocketOption(SocketOptionLevel.IP, SocketOptionName.ReuseAddress, true);
・socket.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.DontLinger, true);
・socket.BeginConnectなど利用しても同じ例外にはまってしまいました。
・socket.Shutdown(SocketShutdown.Both);