VBScripts BLOG

<Types>
  <Type>
    <Name>System.String</Name>
      <Members>
        <ScriptMethod>
          <Name>GetRss</Name>
          <Script>
            $wc = New-Object Net.WebClien
            ([xml] ($wc.DownloadString($this))).rss
          </Script>
        </ScriptMethod>
      </Members>
  </Type>
</Types>

# Select a post title and press return to get the
# post body text.
$Url = "http://blogs.msdn.com/powershell/rss.xml"
$rss = [xml](new-object System.Net.WebClient).DownloadString($Url)
$feeds = $rss.rss.channel.item

[reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
$form = new-object windows.forms.form
$form.Text = "RSS titles"
$form.StartPosition = "CenterScreen"
$form.Size = New-Object System.Drawing.Size(600,400)
$form.KeyPreview = $true

# initialize listbox   
$listbox = new-object windows.forms.listbox
$listbox.Width = 500
$listbox.Location = New-Object System.Drawing.Size(10,10)

# initialize textbox
$textbox = new-object system.windows.forms.textbox
$textbox.Location = New-Object System.Drawing.Size(10,120)
$textbox.Multiline = $true
$textbox.Width = 500
$textbox.Height = 200
$textbox.ScrollBars = "Vertical"
$textbox.Visible  = $false

$index = -1

$form.add_keydown({if ($_.KeyCode -eq "Return")
    {
        $index = $listbox.selectedindex
        if ($index -gt -1)
        {
            #--------------start one line------------#
            $textbox.text = $feeds[$index] |
            Select-Object Description |
            ConvertTo-Html
            #--------------end one line--------------#
            $textbox.Visible  = $true
        }
    }
})

# Fill teh listbox with the RSS titles
foreach ($feed in $feeds)
{
    $listbox.items.add($feed.title)
}

# Add alle objects to the form
$form.controls.Add($listbox)
$form.Controls.Add($textbox)
$form.ShowDialog()