[Environment]::GetFolderPath('SendTo') | Invoke-Item
#ユーザー名取得 $user = $env:username #SendToフォルダパス $folder = 'C:\Users\' + $user + '\AppData\Roaming\Microsoft\Windows\SendTo' #フォルダを開く Invoke-Item $folderSendToフォルダは、「ユーザー」→「（ユーザー名）」→「AppData」→「Roaming」→「Microsoft」→「Windows」→「SendTo」と進んでいくとあります。
#天気情報取得
$city = 140020
$tenki = Invoke-RestMethod http://weather.livedoor.com/forecast/webservice/json/v1?city=$city
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
#フォーム
$form = New-Object System.Windows.Forms.Form
$form.Text = "天気予報"
$form.Size = New-Object System.Drawing.Size(200,180)
$form.StartPosition = "CenterScreen"
$form.BackColor = [System.Drawing.Color]::White
$form.MaximizeBox = $false
$form.MinimizeBox = $false
$form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedSingle
#タイトル
$title = New-Object System.Windows.Forms.Label
$title.Location = New-Object System.Drawing.Point(20, 20)
$title.Size = New-Object System.Drawing.Size(200,20)
$title.Text = $tenki.title
$title.Font = New-Object System.Drawing.Font($title.Font, [System.Drawing.FontStyle]::Bold)
$form.Controls.Add($title)
#ラベル1
$label1 = New-Object System.Windows.Forms.Label
$label1.Location = New-Object System.Drawing.Point(30, 50)
$label1.Size = New-Object System.Drawing.Size(200,20)
$label1.Text = $tenki.forecasts[1].dateLabel + ' ' + ([DateTime]::Parse($tenki.forecasts[1].date)).ToString("yyyy年MM年dd日")
$form.Controls.Add($label1)
#PictureBox
$pic = New-Object System.Windows.Forms.PictureBox
$pic.ImageLocation = $tenki.forecasts[1].image.url
$pic.Location = New-Object System.Drawing.Point(30, 80)
$pic.Size = New-Object System.Drawing.Size(50, 31)
$pic.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::Zoom
$form.Controls.Add($pic)
#予報
$telop = New-Object System.Windows.Forms.Label
$telop.Location = New-Object System.Drawing.Point(90, 80)
$telop.Size = New-Object System.Drawing.Size(70,20)
$telop.Text = $tenki.forecasts[1].telop
$form.Controls.Add($telop)
#最高気温
$tempmax = New-Object System.Windows.Forms.Label
$tempmax.Location = New-Object System.Drawing.Point(90, 100)
$tempmax.Size = New-Object System.Drawing.Size(30,20)
$tempmax.Text = $tenki.forecasts[1].temperature.max.celsius
$tempmax.ForeColor = [System.Drawing.Color]::Red
$form.Controls.Add($tempmax)
#最低気温
$tempmin = New-Object System.Windows.Forms.Label
$tempmin.Location = New-Object System.Drawing.Point(120, 100)
$tempmin.Size = New-Object System.Drawing.Size(30,20)
$tempmin.Text = $tenki.forecasts[1].temperature.min.celsius
$tempmin.ForeColor = [System.Drawing.Color]::Blue
$form.Controls.Add($tempmin)
#フォームを表示
$result = $form.ShowDialog()
#リソースを開放
$pic.Image.Dispose()
$pic.Image = $null
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
#フォーム
$form = New-Object System.Windows.Forms.Form
$form.Text = "イメージテスト"
$form.Size = New-Object System.Drawing.Size(300,200)
$form.StartPosition = "CenterScreen"
#PictureBox
$pic = New-Object System.Windows.Forms.PictureBox
$pic.Size = New-Object System.Drawing.Size(100, 100)
$pic.Image = [System.Drawing.Image]::FromFile("C:\work\pic\animal_buta.png")
$pic.Location = New-Object System.Drawing.Point(20,20)
$pic.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::Zoom
$form.Controls.Add($pic)
#フォームを表示
$result = $form.ShowDialog()
#リソースを開放
$pic.Image.Dispose()
$pic.Image = $null
################################################################################
# ChristmasTree.ps1
################################################################################
for($i = 0; $i -lt 10; $i++)
{
cls
Write-Host " Merry Christmas " -ForegroundColor Red -BackgroundColor Green
Write-Host ""
$mod = $i % 2
if ($mod -eq 0)
{
Write-Host " ☆" -ForegroundColor Yellow
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Red
Write-Host " *" -ForegroundColor Green
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Red
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -ForegroundColor Yellow
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Yellow
Write-Host " *" -NoNewline -ForegroundColor Red
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -ForegroundColor Red
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -NoNewline -ForegroundColor Red
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -NoNewline -ForegroundColor Red
Write-Host " *" -ForegroundColor Yellow
Write-Host " ||" -ForegroundColor DarkRed
Write-Host " ||" -ForegroundColor DarkRed
Write-Host ""
}
else
{
Write-Host " ☆" -ForegroundColor Yellow
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -ForegroundColor Yellow
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Yellow
Write-Host " *" -NoNewline -ForegroundColor Red
Write-Host " *" -ForegroundColor Green
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Red
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -NoNewline -ForegroundColor Yellow
Write-Host " *" -ForegroundColor Green
Write-Host ""
Write-Host " *" -NoNewline -ForegroundColor Yellow
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -NoNewline -ForegroundColor Yellow
Write-Host " *" -NoNewline -ForegroundColor Green
Write-Host " *" -ForegroundColor Red
Write-Host " ||" -ForegroundColor DarkRed
Write-Host " ||" -ForegroundColor DarkRed
Write-Host ""
}
Start-Sleep -m 1000
}
なんかものずごい力技！（汗）
var
i : Integer;
s : String;
n : Integer;
begin
s := S_InputBox('数字を入力してください。', '', 3);
n := StrToInt(s);
for i:=1 to n do begin
S_InsText(IntToStr(i));
S_Char(13);
end;
end;
マクロは、PPAマクロです。
Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub
ShowToolbarメソッドの第１引数に"Ribbon"、第２引数にacToolbarNoを指定すれば非表示、acToolbarYesを指定すれば表示になります。
Private Sub buttonChange_Click()
Application.CommandBars.ExecuteMso "MinimizeRibbon"
End Sub
リボンを最小化するには、CommandBarsオブジェクトのExecuteMsoメソッドで「MinimizeRibbon」を指定します。ただし、リボンが最小化されてる状態で実行するとリボンが表示されるようになっていますので注意が必要です。その場合は、GetPressedMsoメソッドでリボンの状態を確認するなどしてください。
【サイバー犯罪対策課】
— 警視庁サイバーセキュリティ対策本部 (@MPD_cybersec) 2017年12月18日
ウイルス付メールが拡散中。件名は『12月度発注書送付』。本文は添付ファイルの確認を求める内容となっていますが、添付されているエクセルファイルはウイルスです。ご注意ください。
Public Sub MakeForm()
CreateForm
DoCmd.Restore
End Sub
################################################################################
# Convert-C2A0.ps1
#
# 0xC2A0を0x20に変換する
#
################################################################################
#コードを変換
function ConvertStr{
param($code)
[Byte[]]$data = [System.Text.Encoding]::UTF8.GetBytes($code)
[byte[]]$b = @()
[bool]$flag = $false
for ($i=0; $i -lt $data.Count; $i++)
{
if ($data[$i].ToString("X2") -eq "C2")
{
$preIndex = $i
$flag = $true
}
elseif (($flag -eq $true) -and ($data[$i].ToString("X2") -eq "A0"))
{
$b += 0x20
$flag = $false
}
elseif (($flag -eq $true) -and ($data[$i].ToString("X2") -ne "A0"))
{
$b += $data[$preIndex]
$b += $data[$i]
$flag = $false
}
else
{
$b += $data[$i]
}
}
$str = [System.Text.Encoding]::UTF8.GetString($b)
return($str)
}
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
#フォーム
$form = New-Object System.Windows.Forms.Form
$form.Text = "Convert C2A0"
$form.Size = New-Object System.Drawing.Size(400,240)
$form.StartPosition = "CenterScreen"
#ラベル
$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(20,15)
$label.Size = New-Object System.Drawing.Size(250,20)
$label.Text = "コードを貼り付けて変換ボタンを押してください。"
$form.Controls.Add($label)
#テキストボックス
$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(20,40)
$textBox.Multiline = $True
$textBox.AcceptsReturn = $True
$textBox.AcceptsTab = $True
$textBox.WordWrap = $True
$textBox.ScrollBars = [System.Windows.Forms.ScrollBars]::Vertical
$textBox.Anchor = (([System.Windows.Forms.AnchorStyles]::Left) `
-bor ([System.Windows.Forms.AnchorStyles]::Top) `
-bor ([System.Windows.Forms.AnchorStyles]::Right) `
-bor ([System.Windows.Forms.AnchorStyles]::Bottom))
$textBox.Size = New-Object System.Drawing.Size(340,110)
$textBox.Add_KeyDown({if ($_.Control -and ($_.KeyCode -eq [System.windows.forms.Keys]::A))
{$textBox.SelectAll()}})
$form.Controls.Add($textBox)
#変換ボタン
$ConvertButton = New-Object System.Windows.Forms.Button
$ConvertButton.Location = New-Object System.Drawing.Point(270,10)
$ConvertButton.Size = New-Object System.Drawing.Size(75,23)
$ConvertButton.Text = "変換"
$ConvertButton.Anchor = (([System.Windows.Forms.AnchorStyles]::Left) `
-bor ([System.Windows.Forms.AnchorStyles]::Top))
$ConvertButton.Add_Click({$textBox.Text=ConvertStr $textBox.Text; `
[System.Windows.Forms.MessageBox]::Show("変換が完了しました。")})
$form.Controls.Add($ConvertButton)
#閉じるボタン
$ExitButton = New-Object System.Windows.Forms.Button
$ExitButton.Location = New-Object System.Drawing.Point(285,160)
$ExitButton.Size = New-Object System.Drawing.Size(75,23)
$ExitButton.Text = "閉じる"
$ExitButton.Anchor = (([System.Windows.Forms.AnchorStyles]::Right) `
-bor ([System.Windows.Forms.AnchorStyles]::Bottom))
$ExitButton.Add_Click({$form.Close()})
$form.Controls.Add($ExitButton)
#フォームを常に手前に表示
$form.Topmost = $True
#フォームをアクティブにし、テキストボックスにフォーカスを設定
$form.Add_Shown({$textBox.Select()})
#フォームを表示
$result = $form.ShowDialog()
少し解説すると、テキストボックスに貼り付けられた文字列を、まずUTF-8としてバイト型配列に変換します。次に、バイト型配列を１バイトずつチェックしていき、"0xC2" "0xA0"と並んで来た場合に"0x20"に置き換えるようにしています。あとは、返還後の文字列をテキストボックスに書き込んでいます。
