木になる木

日々木になることを木にするのじゃ

Powershell TabPage WebBrowser

2010-02-16 00:20:48 | パソコン
Powershell で作る超適当タブブラウザ(^^)

---------------------------------------------------------------------------------
[VOID][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object System.Windows.Forms.Form
$form.Height = 768
$form.Width = 1024
$tabControl1 = New-object System.Windows.Forms.TabControl
$tabPage1 = new-object System.Windows.Forms.TabPage
$tabPage2 = new-object System.Windows.Forms.TabPage
$webBrowser1 = new-object System.Windows.Forms.WebBrowser
$webBrowser1.ScrollBarsEnabled = $true
$webBrowser2 = new-object System.Windows.Forms.WebBrowser
$webBrowser2.ScrollBarsEnabled = $true
$webBrowser1.Height = 700
$webBrowser1.Width = 1000
$webBrowser2.Height = 700
$webBrowser2.Width = 1000
$webBrowser1.ScrollBarsEnabled = $true
$webBrowser2.ScrollBarsEnabled = $true
$address1 = "http://www.goo.ne.jp/"
$webBrowser1.Navigate(($address1));
$address2 = "http://www.asahi.com/"
$webBrowser2.Navigate(($address2));
$tabPage1.Controls.AddRange(($webBrowser1))
$tabPage1.Text = "goo"
$tabPage2.Controls.AddRange(($webBrowser2))
$tabPage2.Text = "asahi新聞"
$tabControl1.Controls.AddRange(($tabPage1,$tabPage2))
$tabControl1.Location = New-object System.Drawing.Point(1, 1)
$tabControl1.Size = New-object System.Drawing.Size(1024, 768)
$form.Controls.AddRange(( $tabControl1 ))
[System.Windows.Forms.Application]::Run($form)

---------------------------------------------------------------------------------

Powershell Menu 表示

2010-02-13 12:28:46 | パソコン
http://pegalabo.net/archives/VB.NET/source/findMenu.html
を参考に
Powershell でメニューを表示してみた。
コードは以下
----
[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

$form = New-Object System.Windows.Forms.Form
$MainMenu1 = New-object System.Windows.Forms.MainMenu
$MainMenuItem0 = New-object System.Windows.Forms.MenuItem
$MainMenuItem1 = New-object System.Windows.Forms.MenuItem

$ContextMenu1 = new-Object System.Windows.Forms.ContextMenu
$ContextMenuItemA0 = new-Object System.Windows.Forms.MenuItem
$ContextMenuItemA1 = new-Object System.Windows.Forms.MenuItem
$ContextMenuItemA2 = new-Object System.Windows.Forms.MenuItem
$ContextMenuItemA3 = new-Object System.Windows.Forms.MenuItem

$ContextMenuItemB0 = new-Object System.Windows.Forms.MenuItem
$MenuItem2 = new-object System.Windows.Forms.MenuItem
$MainMenuItemA0 = New-object System.Windows.Forms.MenuItem
$MainMenuItemB0 = New-object System.Windows.Forms.MenuItem
$MainMenuItemA1 = New-object System.Windows.Forms.MenuItem
$MainMenuItemA2 = New-object System.Windows.Forms.MenuItem
$MainMenuItemA21 = New-object System.Windows.Forms.MenuItem
$MainMenuItemA22 = New-object System.Windows.Forms.MenuItem

$ContextMenu1.MenuItems.AddRange(($ContextMenuItemA0,$ContextMenuItemB0))

$ContextMenuItemA0.Index = 0
$ContextMenuItemA0.MenuItems.AddRange(($ContextMenuItemA1, $ContextMenuItemA2, $ContextMenuItemA3))
$ContextMenuItemA0.Text = "A"

$ContextMenuItemA1.Index = 0
$ContextMenuItemA1.Text = "A1"

$ContextMenuItemA2.Index = 1
$ContextMenuItemA2.Text = "A2"

$ContextMenuItemA3.Index = 2
$ContextMenuItemA3.Text = "A3"

$ContextMenuItemB0.Index = 1
$ContextMenuItemB0.Text = "B"


$MainMenu1.MenuItems.AddRange(($MainMenuItem0, $MenuItem2))

$MainMenuItem0.Index = 0
$MainMenuItem0.MenuItems.AddRange(($MainMenuItemA0,$MainMenuItemB0))
$MainMenuItem0.Text = "ファイル"



$MainMenuItemA0.Index = 0
$MainMenuItemA0.MenuItems.AddRange(($MainMenuItemA1, $MainMenuItemA2))
$MainMenuItemA0.Text = "新規作成"

$MainMenuItemB0.Index = 1
$MainMenuItemB0.Text = "終了"
$MainMenuItemB0.add_Click({ $form.close() })

$MainMenuItemA1.Index = 0
$MainMenuItemA1.Text = "プロジェクト"
$MainMenuItemA2.Index = 1

$MainMenuItemA2.MenuItems.AddRange(($MainMenuItemA21, $MainMenuItemA22))
$MainMenuItemA2.Text = "ファイルだ"
$MainMenuItemA21.Index = 0
$MainMenuItemA21.Text = "ファイル1"
$MainMenuItemA22.Index = 1
$MainMenuItemA22.Text = "ファイル2"
$MenuItem2.Index = 1
$MenuItem2.Text = ""

$form.Menu = $MainMenu1
$form.ContextMenu = $ContextMenu1

$button1 = New-Object System.Windows.Forms.Button
$button1.Location = New-Object System.Drawing.Point(10, 50)
$button1.Text = "クリック!"
$button1.add_Click({ $label.Text = "hello, world"})

$button2 = New-Object System.Windows.Forms.Button
$button2.Location = New-Object System.Drawing.Point(190, 50)
$button2.Text = "終了"
$button2.add_Click({ $form.close()})
#$button2.add_Click({ [System.Windows.Forms.Application]::Exit()})

$button3 = New-Object System.Windows.Forms.Button
$button3.Location = New-Object System.Drawing.Point(100, 50)
$button3.Text = "消去"
$button3.add_Click({ $label.Text = ""})

$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10, 10)
$form.Controls.AddRange(( $button1, $button2, $button3, $label))

[System.Windows.Forms.Application]::Run($form)


Powershell で button form

2010-02-10 21:01:42 | パソコン
http://www.atmarkit.co.jp/fdotnet/special/powershell02/powershell02_03.html
のスクリプトでボタンを表示するスクリプトを作成。
--ここから--
$form = New-Object System.Windows.Forms.Form
$button = New-Object System.Windows.Forms.Button
$button.Location = New-Object System.Drawing.Point(10, 50)
$button.Text = "クリック!"
$button.add_Click({ $label.Text = "hello, world"})
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10, 10)
$form.Controls.AddRange(($button, $label))
[System.Windows.Forms.Application]::Run($form)
--ここまで--

上記を button.ps1 のファイルで保存。
Powershell を立ち上げて button.ps1 を実行する。
PS C:Usersaaaa> .\button.ps1

以下のようなメッセージが出た場合は、

スクリプトの実行がシステムで無効になっているため、ファイル C:Usersaaabutton.ps1 を読み込めません。詳細については
、「get-help about_signing」と入力してヘルプを参照してください。
発生場所 行:1 文字:13
+ .button.ps1 <<<<
+ CategoryInfo : NotSpecified: (:) []、PSSecurityException
+ FullyQualifiedErrorId : RuntimeException

PS C:Windowssystem32> set-executionpolicy remotesigned

でポリシーを変更する。一般ユーザで実行するとエラーになるので
管理者権限で Powershell を立ち上げてから実行する。
上記変更後は .button.ps1 で実行できるようになる。



TC1100 に winodws 7 をインストール

2010-02-08 23:31:20 | パソコン
TC1100 に winodws 7 をインストールしてみた。
インストール直後は以下のように5つのドライバがインストールされない。



再起動で2つ減り以下のようになる。(Windows Updateで1つ減ります。Audio)



HPからドライバをダウンロードしてインストールすると不明なデバイスはなくなる。
Windows Update で入るビデオドライバでは回転出来ないので、Windows XP Tablet の
ものを入れる。
・Compaq TabletPC buttons(sp24241)
  Intel(R) 82801 DBM LPC Interface Controller - 8086:24CC
・Tablet PC ADI Soundmax Audio Driver(<-- これはWindows Update で入るので不要)
・Texas Instruments PCI1620 4IN1 CardReader Driver(sp29116) 104C:8201
を入れて
・NVIDIA Video Driver for Windows XP Tablet Edition(sp27014)
・Wacom Digitizer Driver(sp24581)
を入れ直す。

http://technet.microsoft.com/ja-jp/library/cc824693.aspx
ここにドライバの説明が少しある。