サンプル集

基本拾い物のPowershellサンプルを集めただけの記事です。自分用

どういう環境で使うか

・自動化をしたい
・OfficeがなくVBAが使えない
・マウスクリック作業が多いサーバ等々

マウスクリックを実行する

start iexplore.exe

# Set the average time to your system load and open an iexplorer page
Start-Sleep -Seconds 3

[system.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") | out-null

# Set the exactly position of cursor in some iexplore hyperlink between the (open parenthesis) below: 
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(1240,489)

function Click-MouseButton
{
    $signature=@' 
      [DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]
      public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);
'@ 

    $SendMouseClick = Add-Type -memberDefinition $signature -name "Win32MouseEventNew" -namespace Win32Functions -passThru 

        $SendMouseClick::mouse_event(0x00000002, 0, 0, 0, 0);
        $SendMouseClick::mouse_event(0x00000004, 0, 0, 0, 0);
}

Click-MouseButton

マウスの座標を調べる1

# PowerShellでマウスポインタの座標を取得する

# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms

# フォームの作成・ボタンの作成
$form = New-Object System.Windows.Forms.Form
$form.Size = "200,200"
$form.StartPosition = "CenterScreen"

$Button = New-Object System.Windows.Forms.Button
$Button.Location = "50,50"
$Button.Size = "100,50"
$Button.Text = "クリック！"

# クリックイベント
$click = {
    for ( $a = 0 ; $a -lt 10 ; $a++ )
    {
        $x = [System.Windows.Forms.Cursor]::Position.X # マウスのX座標
        $y = [System.Windows.Forms.Cursor]::Position.Y # マウスのY座標
        Write-Host "マウスの現在座標は($x,$y)です"
        Start-Sleep(1)
    }
    Write-Host "終わり"
}
$Button.Add_Click($click)

$form.Controls.Add($Button)
$Form.Showdialog()

マウスの座標を調べる2

$provider = New-Object Microsoft.CSharp.CSharpCodeProvider
$params = New-Object System.CodeDom.Compiler.CompilerParameters
$params.GenerateInMemory = $True
$params.TreatWarningsAsErrors = $True
$refs = "System.dll","mscorlib.dll","System.Drawing.dll","System.Windows.Forms.dll"
$params.ReferencedAssemblies.AddRange($refs)

# C Sharp
$txtCode = '
using System;
using System.Drawing;
using System.Windows.Forms;

public class MouseTrace {
	bool cap_stat = false;
	Form f1 = new Form();
	TextBox tb_x = new TextBox();
	TextBox tb_y = new TextBox();
	Button btn1 = new Button();
	Label lbl1 = new Label();
	Color c_on = Color.Green;
	Color c_off = Color.Red;
	System.Timers.Timer tm1 = new System.Timers.Timer(100.0);
	public MouseTrace(){
		Font font1 = new Font("ＭＳ ゴシック",16);
		f1.Text = "Mouse Trace";
		tb_x.Font = font1;
		tb_x.Location = new Point(10,10);
		tb_x.Text = "0";
		tb_x.TextAlign = HorizontalAlignment.Center;
		tb_x.Width = 100;
		tb_y.Font = font1;
		tb_y.Location = new Point(tb_x.Right+10,10);
		tb_y.Text = "0";
		tb_y.TextAlign = HorizontalAlignment.Center;
		tb_y.Width = 100;
		btn1.Location = new Point(10,tb_x.Bottom+10);
		btn1.Text = "Mouse Capture";
		btn1.Width = 110;
		btn1.MouseClick += new MouseEventHandler(btn1_MouseClick);
		lbl1.Location = new Point(btn1.Right+10,btn1.Top);
		lbl1.Text = "Off";
		lbl1.ForeColor = c_off;
		lbl1.Font = font1;
		f1.Size = new System.Drawing.Size(tb_y.Right+30,btn1.Bottom+50);
		f1.Controls.Add(tb_x);
		f1.Controls.Add(tb_y);
		f1.Controls.Add(btn1);
		f1.Controls.Add(lbl1);
		tm1.Elapsed += new System.Timers.ElapsedEventHandler(WriteMousePosition);
	}
	public void Show(){
		f1.ShowDialog();
	}
	private void WriteMousePosition(object source, System.Timers.ElapsedEventArgs e){
		// 画面上の絶対座標
		tb_x.Text = Cursor.Position.X.ToString();
		tb_y.Text = Cursor.Position.Y.ToString();
	}
	private void btn1_MouseClick(object sender, MouseEventArgs e){
		if(cap_stat){
			lbl1.ForeColor = c_off;
			lbl1.Text = "Off";
			cap_stat = false;
			tm1.Stop();
		}else{
			lbl1.ForeColor = c_on;
			lbl1.Text = "On";
			cap_stat = true;
			tm1.Start();
		}
	}
}
'

$results = $provider.CompileAssemblyFromSource($params, $txtCode)
$results.Errors
$mAssembly = $results.CompiledAssembly
$i = $mAssembly.CreateInstance("MouseTrace")
$i.Show()

PowwershellでUI Automationで電卓計算

# REQUIRES -Version 3.0

# This is a simple sample for access the MS UIAutomation in PowerShell. 
# In this sample:
#  1. Load the MS UIA via System.Reflection.Assembly
#  2. Launch the AUT ( calc.exe )
#  3. Find the AutomationElement via the AUT Process Id
#  4. Find buttons via 'ClassName' and 'Name' property
#  5. Click the '1', '+', '1', '=' buttons. 
# At last, we will get '2' in the result of calc App.

# Load MS UIAutomation assemblies
Write-Host "Loading MS UIA assemblies"
[void][System.Reflection.Assembly]::LoadWithPartialName("UIAutomationClient")
[void][System.Reflection.Assembly]::LoadWithPartialName("UIAutomationTypes")
[void][System.Reflection.Assembly]::LoadWithPartialName("UIAutomationProvider")
[void][System.Reflection.Assembly]::LoadWithPartialName("UIAutomationClientsideProviders")


# Register client side provider
Write-Host "Register client-side provider"
$client = [System.Reflection.Assembly]::LoadWithPartialName("UIAutomationClientsideProviders")
[Windows.Automation.ClientSettings]::RegisterClientSideProviderAssembly($client.GetName())

# Launch the AUT ( calc.exe ) & sleep 10 seconds for wait the process start
Write-Host "Launching the AUT"
$autProc =  Start-Process calc -PassThru
Start-Sleep -s 10

# Find the calc Element via the process Id
Write-Host "Searching the AUT Root element"
$rootElement = [Windows.Automation.AutomationElement]::RootElement
$condAUTProc = New-Object Windows.Automation.PropertyCondition([Windows.Automation.AutomationElement]::ProcessIdProperty, $autProc.Id)
$autElement = $rootElement.FindFirst([Windows.Automation.TreeScope]::Children, $condAUTProc)

# Find the buttons '1', '+', '='
Write-Host "Searching the button elements"
$condBtn = New-Object Windows.Automation.PropertyCondition([Windows.Automation.AutomationElement]::ClassNameProperty, "Button")

$condName = New-Object Windows.Automation.PropertyCondition([Windows.Automation.AutomationElement]::NameProperty, "1")
$condTarget = New-Object Windows.Automation.AndCondition($condBtn, $condName)
$btn1Element = $autElement.FindFirst([Windows.Automation.TreeScope]::Descendants, $condTarget)

$condName = New-Object Windows.Automation.PropertyCondition([Windows.Automation.AutomationElement]::NameProperty, "+")
$condTarget = New-Object Windows.Automation.AndCondition($condBtn, $condName)
$btnPlusElement = $autElement.FindFirst([Windows.Automation.TreeScope]::Descendants, $condTarget)

$condName = New-Object Windows.Automation.PropertyCondition([Windows.Automation.AutomationElement]::NameProperty, "=")
$condTarget = New-Object Windows.Automation.AndCondition($condBtn, $condName)
$btnEqualElement = $autElement.FindFirst([Windows.Automation.TreeScope]::Descendants, $condTarget)

# Click the buttons
Write-Host "Clicking the buttons"
$btn1Element.GetCurrentPattern([Windows.Automation.InvokePattern]::Pattern).Invoke()
Start-Sleep -s 1
$btnPlusElement.GetCurrentPattern([Windows.Automation.InvokePattern]::Pattern).Invoke()
Start-Sleep -s 1
$btn1Element.GetCurrentPattern([Windows.Automation.InvokePattern]::Pattern).Invoke()
Start-Sleep -s 1
$btnEqualElement.GetCurrentPattern([Windows.Automation.InvokePattern]::Pattern).Invoke()
Start-Sleep -s 1

Write-Host "Finished. Please check the results on the AUT."

powershellでsendkeys

add-type -AssemblyName System.Windows.Forms

# メモ帳を開く
notepad

# 500ミリ秒スリープ
start-sleep -Milliseconds 500
# aiueoと入力
[System.Windows.Forms.SendKeys]::SendWait("aiueo")