vbjay

<#
.SYNOPSIS
    Generates detailed yarn peer dependency information.

.DESCRIPTION
    This script uses the `yarn explain peer-requirements` command to gather information about peer dependencies.
    It processes the output to determine if the dependencies are satisfied (Good) or not (Bad), and generates
    detailed commands for further inspection.

.PARAMETER IncludeGood

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)