Update BTC script. Add speedtest script.

Author: Rodriguez

Fun/Get-BitcoinPriceChart.ps1

@@ -1,6 +1,6 @@
 $PriceData = [System.Collections.Specialized.OrderedDictionary]@{}
 
-$Data = (Invoke-RestMethod -Method Get -Uri 'https://api.coindesk.com/v1/bpi/historical/close.json' `
+$Data = (Invoke-RestMethod -Method Get -Uri 'http://api.coindesk.com/v1/bpi/historical/close.json' `
  -ContentType 'application/json').bpi | Out-String
 
 $Data.Trim() -split "`r`n" | ForEach-Object {
@@ -38,10 +38,10 @@ $Chart.Series['Price'].ChartArea = "ChartArea1"
 $Chart.Series['Price'].Color = "#62B5CC"
 $Chart.Series['Price'].Points.DataBindXY($PriceData.Keys, $PriceData.Values)
 
-# Display the chart on a form 
+# Display the chart on a form
 $Chart.Anchor = [System.Windows.Forms.AnchorStyles]::Bottom -bor
- [System.Windows.Forms.AnchorStyles]::Right -bor 
- [System.Windows.Forms.AnchorStyles]::Top -bor 
+ [System.Windows.Forms.AnchorStyles]::Right -bor
+ [System.Windows.Forms.AnchorStyles]::Top -bor
  [System.Windows.Forms.AnchorStyles]::Left
 $Form = New-Object Windows.Forms.Form
 $Form.Text = "Bitcoin Price Chart"

Get-WanSpeed.ps1

@@ -0,0 +1,100 @@
+<#PSScriptInfo
+
+.VERSION 2.0
+
+.GUID a6048a09-3e66-467a-acd4-ce3e97098a65
+
+.AUTHOR velecky@velecky.onmicrosoft.com modified by Nick Rodriguez
+
+.PROJECTURI https://www.powershellgallery.com/packages/Speedtest/2.0
+
+.DESCRIPTION
+ WAN speed test
+
+#>
+
+[CmdletBinding()]
+param(
+ [int]$Repetitions = 4
+)
+
+function Invoke-SpeedTest {
+ param(
+ [string]$UploadUrl
+ )
+
+ $topServerUrlSpilt = $UploadUrl -split 'upload'
+ $url = $topServerUrlSpilt[0] + 'random2000x2000.jpg'
+ $col = New-Object System.Collections.Specialized.NameValueCollection
+ $wc = New-Object System.Net.WebClient
+ $wc.QueryString = $col
+ $downloadElaspedTime = (Measure-Command { $webpage1 = $wc.DownloadData($url) }).TotalMilliseconds
+ $downSize = ($webpage1.length + $webpage2.length) / 1MB
+ $downloadSize = [Math]::Round($downSize, 2)
+ $downloadTimeSec = $downloadElaspedTime * 0.001
+ $downSpeed = ($downloadSize / $downloadTimeSec) * 8
+ $downloadSpeed = [Math]::Round($downSpeed, 2)
+
+ Write-Verbose "Downloaded $downloadSize MB in $downloadTimeSec seconds at a speed of $downloadSpeed mbps"
+
+ return $downloadSpeed
+}
+
+# Interact with speedtest page avoiding api
+$objXmlHttp = New-Object -ComObject MSXML2.ServerXMLHTTP
+$objXmlHttp.Open("GET", "http://www.speedtest.net/speedtest-config.php", $False)
+$objXmlHttp.Send()
+[xml]$content = $objXmlHttp.responseText
+
+# Select closest server based on lat/lon
+$oriLat = $content.settings.client.lat
+$oriLon = $content.settings.client.lon
+Write-Verbose "Latitude: $oriLat"
+Write-Verbose "Longitude: $oriLon"
+
+# Make another request, this time to get the server list from the site
+$objXmlHttp.Open("GET", "http://www.speedtest.net/speedtest-servers.php", $False)
+$objXmlHttp.Send()
+[xml]$ServerList = $objXmlHttp.responseText
+
+# Cons contains all of the information about every server in the speedtest.net database
+$cons = $ServerList.settings.servers.server
+
+# Calculate servers relative closeness by doing math against latitude and longitude
+Write-Verbose "Searching for closest geographical servers from list of $($cons.Count)..."
+foreach ($val in $cons) {
+ $R = 6371
+ $pi = [Math]::PI
+
+ [float]$dlat = ([float]$oriLat - [float]$val.lat) * $pi / 180
+ [float]$dlon = ([float]$oriLon - [float]$val.lon) * $pi / 180
+ [float]$a = [math]::Sin([float]$dLat / 2) * [math]::Sin([float]$dLat / 2) + [math]::Cos([float]$oriLat * $pi / 180 ) * [math]::Cos([float]$val.lat * $pi / 180 ) * [math]::Sin([float]$dLon / 2) * [math]::Sin([float]$dLon / 2)
+ [float]$c = 2 * [math]::Atan2([math]::Sqrt([float]$a ), [math]::Sqrt(1 - [float]$a))
+ [float]$d = [float]$R * [float]$c
+
+ $serverInformation += @([pscustomobject]@{
+ Distance = $d
+ Country = $val.country
+ Sponsor = $val.sponsor
+ Url = $val.url
+ })
+}
+
+$serverInformation = $serverInformation | Sort-Object -Property distance
+
+$speedResults = @()
+
+for ($i = 0; $i -lt $Repetitions; $i++) {
+ $url = $serverInformation[$i].url
+ Write-Verbose "Download attempt ($($i + 1) of $Repetitions) from $url..."
+ $speed = Invoke-SpeedTest $url
+ $speedResults += $speed
+}
+
+$results = $speedResults | Measure-Object -Average -Minimum -Maximum
+
+New-Object psobject -Property @{
+ "Fastest (mbps)" = $results.Maximum
+ "Slowest (mbps)" = $results.Minimum
+ "Average (mbps)" = $results.Average
+}