vbjay

#one time setup.  Run the folowing as admin answering Yes to the prompt
#Install-Module PSWindowsUpdate
$dt = [DateTime]::Now
$dt
$fl="C:\logs\patchserver-{0:M-d-yyyy}.log"-f $dt
$fl
get-service W3SVC| Stop-Service 4>&1 |Out-File $fl -Append
if ((Get-Service W3SVC).Status -eq "Running"){

Write-Error "IIS still running.  Run script again once stopped."4>&1 |Out-File $fl -Append

vbjay

Sub Main
	Dim input = {"12", "-643", "12.58", "12.5485758797457348957437", "$34,566,776", "C345a55t", "Cat"}

	Dim results = input.Select(Function(i) New With {
	.Input = i,
	.Integer = GetInteger(i),
	.Long = getlong(i),
	.Single = GetSingle(i),
	.Double = GetDouble(i),
	.Decimal = GetDecimal(i),

vbjay

<Query Kind="VBProgram">
  <Reference>&lt;RuntimeDirectory&gt;\Microsoft.VisualBasic.dll</Reference>
  <Reference>&lt;RuntimeDirectory&gt;\System.Net.Http.dll</Reference>
  <Namespace>Microsoft.VisualBasic</Namespace>
  <Namespace>System.Net.Http</Namespace>
  <Namespace>System.Threading.Tasks</Namespace>
</Query>

Async Sub Main
	Dim client As New HttpClient

vbjay

<Query Kind="Program">
  <Reference>&lt;ProgramFilesX86&gt;\Reference Assemblies\Microsoft\WindowsPowerShell\3.0\System.Management.Automation.dll</Reference>
  <Namespace>Microsoft.VisualBasic</Namespace>
  <Namespace>System.Threading.Tasks</Namespace>
  <Namespace>System.Management.Automation.Runspaces</Namespace>
  <Namespace>System.Collections.ObjectModel</Namespace>
  <Namespace>System.Management.Automation</Namespace>
</Query>

void Main()

vbjay

<Query Kind="VBProgram">
  <NuGetReference>RestSharp</NuGetReference>
  <Namespace>RestSharp</Namespace>
</Query>

Async Sub Main
	Dim client As New RestClient("https://jsonplaceholder.typicode.com")
	Dim req As New RestRequest("/todos/", method.GET)
	

vbjay

<Query Kind="VBProgram">
  <Namespace>System.Security.Cryptography</Namespace>
</Query>

Sub Main

	Dim numRange As Integer = Integer.Parse(Util.ReadLine("Enter how many random numbers you want", "1000000"))
	Dim min As Integer = Integer.Parse(Util.ReadLine("Enter smallest number you want", "0"))
	Dim max As Integer = Integer.Parse(Util.ReadLine("Enter largest number you want", "900"))
	Dim msg As String = $"creating {numRange:n0} random numbers"

vbjay

City|State short|State full|County|City alias
Holtsville|NY|New York|SUFFOLK|Internal Revenue Service
Holtsville|NY|New York|SUFFOLK|Holtsville
Adjuntas|PR|Puerto Rico|ADJUNTAS|URB San Joaquin
Adjuntas|PR|Puerto Rico|ADJUNTAS|Jard De Adjuntas
Adjuntas|PR|Puerto Rico|ADJUNTAS|Colinas Del Gigante
Adjuntas|PR|Puerto Rico|ADJUNTAS|Adjuntas
Aguada|PR|Puerto Rico|AGUADA|Comunidad Las Flores
Aguada|PR|Puerto Rico|AGUADA|URB Isabel La Catolica
Aguada|PR|Puerto Rico|AGUADA|Alts De Aguada

vbjay

Imports EqCheck

Module Module1

    Sub Main()



        Dim items As Tester() = {
            New A,

vbjay

Imports System.Runtime.CompilerServices

Module Extensions

    <Extension>
    Iterator Function Randomize(Of T)(items As IEnumerable(Of T)) As IEnumerable(Of T)
        Dim indexes As List(Of Integer) = Enumerable.Range(0, items.Count).ToList
        Dim rand As New Random
        While indexes.Count > 0
            Dim tmp As Integer = rand.Next(0, indexes.Count)

vbjay

'See http://mrbigglesworth79.blogspot.com/2011/05/oh-no-not-another-way-to-write-csv-file_02.html To where I got the code from 
' and then I modified it

Imports System.Runtime.CompilerServices
Imports System.IO
Imports System.Text
Imports System.Linq.Expressions

Namespace Exporting
    Module CSV