PowerShell2.0 : here-string(VB.net) で EnumWindows(Win32API) の実行

  here-string での実行



PowerShell では直接Win32API を呼び出せますが、この処理のように複雑な記述を
行う場合を含めて、C# や VB.net のコードをそのまま利用するほうが実現が容易です。

関連する記事

API Callback 関数の呼び出し

  
$source = @"
Imports System.Runtime.InteropServices
Imports System.Text

Public Class API_EnumWindows

	' ******************************************************
	' Callback 関数の定義( 通常 )
	' ******************************************************
	Public Delegate Function EnumWindowsCallbackNormal( _
	ByVal hWnd As Integer, _
	ByVal lParam As Integer) As Boolean
	' ******************************************************
	' Callback 呼び出し 関数の定義
	' ******************************************************
	<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
	 Public Shared Function EnumWindows( _
	 ByVal callback As EnumWindowsCallbackNormal, _
	 ByVal lParam As Integer) As Integer
	End Function

	' ******************************************************
	' Callback 関数の定義( 文字列引渡し用 )
	' ******************************************************
	Public Delegate Function EnumWindowsCallbackString( _
	   ByVal hWnd As Integer, _
	   ByVal lParam As String) As Boolean
	' ******************************************************
	' Callback 呼び出し 関数の定義
	' ※ 要 Ansi 文字変換 => CharSet:=CharSet.Ansi
	' ******************************************************
	<DllImport("user32.dll", EntryPoint:="EnumWindows", CharSet:=CharSet.Ansi)> _
	   Public Shared Function EnumWindowsString( _
	   ByVal callback As EnumWindowsCallbackString, _
	   ByVal lParam As String) As Integer
	End Function

	' ******************************************************
	' 情報取得用 API
	' ******************************************************
	<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
	Public Shared Function GetWindowText(ByVal hWnd As Integer, _
	 ByVal lpString As StringBuilder, _
	 ByVal nMaxCount As Integer) As Integer
	End Function

	<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
	Public Shared Function GetClassName(ByVal hwnd As Integer, _
	 ByVal lpClassName As StringBuilder, _
	 ByVal cch As Integer) As Integer
	End Function

	Const STRING_BUFFER_LENGTH As Integer = 255

	' ******************************************************
	' Callback 関数( 文字列用 )
	' ******************************************************
	Private Function ActiveProcessListString(ByVal hWnd As Integer, _
	  ByVal lParam As String) As Boolean

		Dim windowText As New StringBuilder(STRING_BUFFER_LENGTH)
		Dim className As New StringBuilder(STRING_BUFFER_LENGTH)

		GetWindowText(hWnd, windowText, STRING_BUFFER_LENGTH)
		GetClassName(hWnd, className, STRING_BUFFER_LENGTH)

		' lParam は、String
'		System.Console.WriteLine(lParam)

		System.Console.WriteLine( _
		  String.Format("{0}|{1}|{2}", _
		   windowText.ToString(), _
		   className.ToString(), _
		   hWnd.ToString()) _
		  )

		Return True

	End Function

	' ******************************************************
	' Callback 関数( 通常 )
	' ******************************************************
	Private Function ActiveProcessListNormal(ByVal hWnd As Integer, _
	  ByVal lParam As Integer) As Boolean

		Dim windowText As New StringBuilder(STRING_BUFFER_LENGTH)
		Dim className As New StringBuilder(STRING_BUFFER_LENGTH)

		GetWindowText(hWnd, windowText, STRING_BUFFER_LENGTH)
		GetClassName(hWnd, className, STRING_BUFFER_LENGTH)

		' lParam は、 Integer
'		System.Console.WriteLine(lParam)

		System.Console.WriteLine( _
		  String.Format("{0}|{1}|{2}", _
		   windowText.ToString(), _
		   className.ToString(), _
		   hWnd.ToString()) _
		  )

		Return True

	End Function

	' ******************************************************
	' 処理開始( 文字列を渡す )
	' ******************************************************
	Public Sub Call1()

		' Callback 関数のアドレスの渡し方
		EnumWindowsString( _
		 New EnumWindowsCallbackString(AddressOf ActiveProcessListString), _
		 "文字列を渡す")

	End Sub

	' ******************************************************
	' 処理開始( 通常 )
	' ******************************************************
	Public Sub Call2()

		' Callback 関数のアドレスの渡し方
		Dim func As EnumWindowsCallbackNormal = _
		 AddressOf ActiveProcessListNormal

		EnumWindows(func, 0)

	End Sub
End Class
"@
Add-Type -TypeDefinition $source -Language VisualBasic
$obj = New-Object API_EnumWindows
$ret = $obj.Call1()
Read-Host 
  




  ソースコードを外部に置く実行



この場合、ソースの拡張子で言語が決定されます

  
Add-Type -path "EnumWindows.vb"
$obj = New-Object API_EnumWindows
$ret = $obj.Call1()
Read-Host 
  


関連する記事

PowerShell2.0 : VB.net のフォームを呼び出して入力値を得る













  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  イラストAC  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ