ControllingTheInter.net – Tech News, Legal and Daily Blog

VB.net NeuralNetwork Code

I am currently working on getting this code to operate as a POF, but it seems if the sizing of the layers are not correct then the network will not work to begin with. This sample using 2/4/2 appears to work fine and once trained works properly.

Public Shared r As New Random()
    Dim network As NeuralNetwork

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim layerList As New List(Of Integer)
        With layerList
            .Add(2)
            .Add(4)
            .Add(2)
        End With

        network = New NeuralNetwork(1.0, layerList)

        Dim inputs As New List(Of Double)
        inputs.Add(0)
        inputs.Add(1)

        Dim Trainedoutputs As New List(Of Double)
        Trainedoutputs.Add(1)
        Trainedoutputs.Add(0)

        Dim inputs2 As New List(Of Double)
        inputs2.Add(1)
        inputs2.Add(0)

        Dim Trainedoutputs2 As New List(Of Double)
        Trainedoutputs2.Add(0)
        Trainedoutputs2.Add(1)

        OutputNetwork(network)


        Dim TotalCycles As Integer = 600000
        For i = 0 To TotalCycles
            If i <> 0 AndAlso i Mod 100000 = 0 Then
                Dim ots As List(Of Double) = network.Execute(inputs)
                Debug.WriteLine(ots(0))
                Debug.WriteLine(ots(1))
                Debug.WriteLine(i & "-" & CDbl(100 / (TotalCycles / i)) & "%")
            End If
            network.Train(inputs, Trainedoutputs)
            network.Train(inputs2, Trainedoutputs2)
        Next

        OutputNetwork(network)
    End Sub

    Private Sub OutputNetwork(NN As NeuralNetwork)
        For ii = NN.LayerCount - 1 To 0 Step -1
            Debug.WriteLine("Layer: " & ii)
            For jj = 0 To NN.Layers(ii).NeuronCount - 1
                Dim iNeuron As Neuron = NN.Layers(ii).Neurons(jj)
                Debug.WriteLine("Neruon: " & jj & " Bias: " & iNeuron.Bias)
                For kk = 0 To iNeuron.DendriteCount - 1
                    Debug.WriteLine(vbTab & iNeuron.Dendrites(kk).Weight)
                Next kk
            Next jj
        Next ii
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim inputs As New List(Of Double)
        inputs.Add(0)
        inputs.Add(1)
        Dim ots As List(Of Double) = network.Execute(inputs)
        Debug.WriteLine(ots(0))
        Debug.WriteLine(ots(1))
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim inputs2 As New List(Of Double)
        inputs2.Add(1)
        inputs2.Add(0)
        Dim ots2 As List(Of Double) = network.Execute(inputs2)
        Debug.WriteLine(ots2(0))
        Debug.WriteLine(ots2(1))
    End Sub
End Class

Public Class Dendrite
    Dim r As New Random
    Dim _weight As Double

    Property Weight As Double
        Get
            Return _weight
        End Get
        Set(value As Double)
            _weight = value
        End Set
    End Property

    Public Sub New()
        Me.Weight = r.NextDouble()
    End Sub
End Class


Public Class Neuron
    Dim r As New Random
    Dim _dendrites As New List(Of Dendrite)
    Dim _dendriteCount As Integer
    Dim _bias As Double
    Dim _value As Double
    Dim _delta As Double

    Public Property Dendrites As List(Of Dendrite)
        Get
            Return _dendrites
        End Get
        Set(value As List(Of Dendrite))
            _dendrites = value
        End Set
    End Property

    Public Property Bias As Double
        Get
            Return _bias
        End Get
        Set(value As Double)
            _bias = value
        End Set
    End Property

    Public Property Value As Double
        Get
            Return _value
        End Get
        Set(value As Double)
            _value = value
        End Set
    End Property

    Public Property Delta As Double
        Get
            Return _delta
        End Get
        Set(value As Double)
            _delta = value
        End Set
    End Property

    Public ReadOnly Property DendriteCount As Integer
        Get
            Return _dendrites.Count
        End Get
    End Property

    Public Sub New()
        Me.Bias = r.NextDouble()
    End Sub
End Class

Public Class Layer
    Dim _neurons As New List(Of Neuron)
    Dim _neuronCount As Integer

    Public Property Neurons As List(Of Neuron)
        Get
            Return _neurons
        End Get
        Set(value As List(Of Neuron))
            _neurons = value
        End Set
    End Property

    Public ReadOnly Property NeuronCount As Integer
        Get
            Return _neurons.Count
        End Get
    End Property

    Public Sub New(neuronNum As Integer)
        _neuronCount = neuronNum
    End Sub
End Class

Public Class NeuralNetwork
    Dim _layers As New List(Of Layer)
    Dim _learningRate As Double

    Public Property Layers As List(Of Layer)
        Get
            Return _layers
        End Get
        Set(value As List(Of Layer))
            _layers = value
        End Set
    End Property

    Public Property LearningRate As Double
        Get
            Return _learningRate
        End Get
        Set(value As Double)
            _learningRate = value
        End Set
    End Property

    Public ReadOnly Property LayerCount As Integer
        Get
            Return _layers.Count
        End Get
    End Property

    Sub New(LearningRate As Double, nLayers As List(Of Integer))
        If nLayers.Count < 2 Then Exit Sub

        Me.LearningRate = LearningRate

        For ii As Integer = 0 To nLayers.Count - 1

            Dim l As Layer = New Layer(nLayers(ii) - 1)
            Me.Layers.Add(l)

            For jj As Integer = 0 To nLayers(ii) - 1
                l.Neurons.Add(New Neuron())
            Next

            For Each n As Neuron In l.Neurons
                If ii = 0 Then n.Bias = 0

                If ii > 0 Then
                    For k As Integer = 0 To nLayers(ii - 1) - 1
                        n.Dendrites.Add(New Dendrite)
                    Next
                End If

            Next

        Next
    End Sub
    'Function sigmoid(x As Double) As Double
    ' Return 1 / (1 + Math.Exp(-x))
    ' End Function
    Function sigmoid(x As Double) As Double
        Return 1 / (1 + Math.Exp(x * -1))
    End Function

    Function Execute(inputs As List(Of Double)) As List(Of Double)
        If inputs.Count <> Me.Layers(0).NeuronCount Then
            Return Nothing
        End If

        For ii As Integer = 0 To Me.LayerCount - 1
            Dim curLayer As Layer = Me.Layers(ii)

            For jj As Integer = 0 To curLayer.NeuronCount - 1
                Dim curNeuron As Neuron = curLayer.Neurons(jj)

                If ii = 0 Then
                    curNeuron.Value = inputs(jj)
                Else
                    curNeuron.Value = 0
                    For k = 0 To Me.Layers(ii - 1).NeuronCount - 1
                        curNeuron.Value = curNeuron.Value + Me.Layers(ii - 1).Neurons(k).Value * curNeuron.Dendrites(k).Weight
                    Next k

                    curNeuron.Value = Sigmoid(curNeuron.Value + curNeuron.Bias)
                End If

            Next
        Next

        Dim outputs As New List(Of Double)
        Dim la As Layer = Me.Layers(Me.LayerCount - 1)
        For ii As Integer = 0 To la.NeuronCount - 1
            outputs.Add(la.Neurons(ii).Value)
        Next

        Return outputs
    End Function

    Public Function Train(inputs As List(Of Double), outputs As List(Of Double)) As Boolean
        If inputs.Count <> Me.Layers(0).NeuronCount Or outputs.Count <> Me.Layers(Me.LayerCount - 1).NeuronCount Then
            Debug.WriteLine("output.count <> Layers " & Me.Layers(Me.LayerCount - 1).NeuronCount)
            Return False
        End If

        Execute(inputs)

        For ii = 0 To Me.Layers(Me.LayerCount - 1).NeuronCount - 1
            Dim curNeuron As Neuron = Me.Layers(Me.LayerCount - 1).Neurons(ii)

            curNeuron.Delta = curNeuron.Value * (1 - curNeuron.Value) * (outputs(ii) - curNeuron.Value)

            For jj = Me.LayerCount - 2 To 1 Step -1
                For kk = 0 To Me.Layers(jj).NeuronCount - 1
                    Dim iNeuron As Neuron = Me.Layers(jj).Neurons(kk)
                    iNeuron.Delta = iNeuron.Value * (1 - iNeuron.Value) * Me.Layers(jj + 1).Neurons(ii).Dendrites(kk).Weight * Me.Layers(jj + 1).Neurons(ii).Delta
                Next kk
            Next jj
        Next ii


        For ii = Me.LayerCount - 1 To 0 Step -1
            For jj = 0 To Me.Layers(ii).NeuronCount - 1
                Dim iNeuron As Neuron = Me.Layers(ii).Neurons(jj)
                iNeuron.Bias = iNeuron.Bias + (Me.LearningRate * iNeuron.Delta)

                For kk = 0 To iNeuron.DendriteCount - 1
                    iNeuron.Dendrites(kk).Weight = iNeuron.Dendrites(kk).Weight + (Me.LearningRate * Me.Layers(ii - 1).Neurons(kk).Value * iNeuron.Delta)
                Next kk
            Next jj
        Next ii

        Return True
    End Function




    'https://visualstudiomagazine.com/articles/2013/06/01/neural-network-activation-functions.aspx
    Public Function Activation(ByVal x As Double, ByVal activationType As String, ByVal layer As String) As Double
        If activationType = "logsigmoid" Then
            Return LogSigmoid(x)
        ElseIf activationType = "hyperbolictangent" Then
            Return HyperbolicTangtent(x)
        ElseIf activationType = "softmax" Then
            Return SoftMax(x, layer)
        Else
            Throw New Exception("Not implemented")
        End If
    End Function

    Public Function LogSigmoid(ByVal x As Double) As Double
        If x < -45.0 Then
            Return 0.0
        ElseIf x > 45.0 Then
            Return 1.0
        Else
            Return 1.0 / (1.0 + Math.Exp(-x))
        End If
    End Function

    Public Function HyperbolicTangtent(ByVal x As Double) As Double
        If x < -45.0 Then
            Return -1.0
        ElseIf x > 45.0 Then
            Return 1.0
        Else
            Return Math.Tanh(x)
        End If
    End Function

    Public Function SoftMax(ByVal x As Double, ByVal layer As String) As Double
        Dim max As Double = Double.MinValue

        If layer = "ih" Then
            max = If((ihSum0 > ihSum1), ihSum0, ihSum1)
        ElseIf layer = "ho" Then
            max = If((hoSum0 > hoSum1), hoSum0, hoSum1)
        End If

        Dim scale As Double = 0.0

        If layer = "ih" Then
            scale = Math.Exp(ihSum0 - max) + Math.Exp(ihSum1 - max)
        ElseIf layer = "ho" Then
            scale = Math.Exp(hoSum0 - max) + Math.Exp(hoSum1 - max)
        End If

        Return Math.Exp(x - max) / scale
    End Function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

Public Shared r As New Random()

Dim network As NeuralNetwork

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim layerList As New List(Of Integer)

With layerList

.Add(2)

.Add(4)

.Add(2)

End With

network = New NeuralNetwork(1.0, layerList)

Dim inputs As New List(Of Double)

inputs.Add(0)

inputs.Add(1)

Dim Trainedoutputs As New List(Of Double)

Trainedoutputs.Add(1)

Trainedoutputs.Add(0)

Dim inputs2 As New List(Of Double)

inputs2.Add(1)

inputs2.Add(0)

Dim Trainedoutputs2 As New List(Of Double)

Trainedoutputs2.Add(0)

Trainedoutputs2.Add(1)

OutputNetwork(network)

Dim TotalCycles As Integer = 600000

For i = 0 To TotalCycles

If i <> 0 AndAlso i Mod 100000 = 0 Then

Dim ots As List(Of Double) = network.Execute(inputs)

Debug.WriteLine(ots(0))

Debug.WriteLine(ots(1))

Debug.WriteLine(i & "-" & CDbl(100 / (TotalCycles / i)) & "%")

End If

network.Train(inputs, Trainedoutputs)

network.Train(inputs2, Trainedoutputs2)

OutputNetwork(network)

End Sub

Private Sub OutputNetwork(NN As NeuralNetwork)

For ii = NN.LayerCount - 1 To 0 Step -1

Debug.WriteLine("Layer: " & ii)

For jj = 0 To NN.Layers(ii).NeuronCount - 1

Dim iNeuron As Neuron = NN.Layers(ii).Neurons(jj)

Debug.WriteLine("Neruon: " & jj & " Bias: " & iNeuron.Bias)

For kk = 0 To iNeuron.DendriteCount - 1

Debug.WriteLine(vbTab & iNeuron.Dendrites(kk).Weight)

Next kk

Next jj

Next ii

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim inputs As New List(Of Double)

inputs.Add(0)

inputs.Add(1)

Dim ots As List(Of Double) = network.Execute(inputs)

Debug.WriteLine(ots(0))

Debug.WriteLine(ots(1))

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim inputs2 As New List(Of Double)

inputs2.Add(1)

inputs2.Add(0)

Dim ots2 As List(Of Double) = network.Execute(inputs2)

Debug.WriteLine(ots2(0))

Debug.WriteLine(ots2(1))

End Sub

End Class

Public Class Dendrite

Dim r As New Random

Dim _weight As Double

Property Weight As Double

Get

Return _weight

End Get

Set(value As Double)

_weight = value

End Set

End Property

Public Sub New()

Me.Weight = r.NextDouble()

End Sub

End Class

Public Class Neuron

Dim r As New Random

Dim _dendrites As New List(Of Dendrite)

Dim _dendriteCount As Integer

Dim _bias As Double

Dim _value As Double

Dim _delta As Double

Public Property Dendrites As List(Of Dendrite)

Get

Return _dendrites

End Get

Set(value As List(Of Dendrite))

_dendrites = value

End Set

End Property

Public Property Bias As Double

Get

Return _bias

End Get

Set(value As Double)

_bias = value

End Set

End Property

Public Property Value As Double

Get

Return _value

End Get

Set(value As Double)

_value = value

End Set

End Property

Public Property Delta As Double

Get

Return _delta

End Get

Set(value As Double)

_delta = value

End Set

End Property

Public ReadOnly Property DendriteCount As Integer

Get

Return _dendrites.Count

End Get

End Property

Public Sub New()

Me.Bias = r.NextDouble()

End Sub

End Class

Public Class Layer

Dim _neurons As New List(Of Neuron)

Dim _neuronCount As Integer

Public Property Neurons As List(Of Neuron)

Get

Return _neurons

End Get

Set(value As List(Of Neuron))

_neurons = value

End Set

End Property

Public ReadOnly Property NeuronCount As Integer

Get

Return _neurons.Count

End Get

End Property

Public Sub New(neuronNum As Integer)

_neuronCount = neuronNum

End Sub

End Class

Public Class NeuralNetwork

Dim _layers As New List(Of Layer)

Dim _learningRate As Double

Public Property Layers As List(Of Layer)

Get

Return _layers

End Get

Set(value As List(Of Layer))

_layers = value

End Set

End Property

Public Property LearningRate As Double

Get

Return _learningRate

End Get

Set(value As Double)

_learningRate = value

End Set

End Property

Public ReadOnly Property LayerCount As Integer

Get

Return _layers.Count

End Get

End Property

Sub New(LearningRate As Double, nLayers As List(Of Integer))

If nLayers.Count < 2 Then Exit Sub

Me.LearningRate = LearningRate

For ii As Integer = 0 To nLayers.Count - 1

Dim l As Layer = New Layer(nLayers(ii) - 1)

Me.Layers.Add(l)

For jj As Integer = 0 To nLayers(ii) - 1

l.Neurons.Add(New Neuron())

For Each n As Neuron In l.Neurons

If ii = 0 Then n.Bias = 0

If ii > 0 Then

For k As Integer = 0 To nLayers(ii - 1) - 1

n.Dendrites.Add(New Dendrite)

End If

End Sub

'Function sigmoid(x As Double) As Double

' Return 1 / (1 + Math.Exp(-x))

' End Function

Function sigmoid(x As Double) As Double

Return 1 / (1 + Math.Exp(x * -1))

End Function

Function Execute(inputs As List(Of Double)) As List(Of Double)

If inputs.Count <> Me.Layers(0).NeuronCount Then

Return Nothing

End If

For ii As Integer = 0 To Me.LayerCount - 1

Dim curLayer As Layer = Me.Layers(ii)

For jj As Integer = 0 To curLayer.NeuronCount - 1

Dim curNeuron As Neuron = curLayer.Neurons(jj)

If ii = 0 Then

curNeuron.Value = inputs(jj)

Else

curNeuron.Value = 0

For k = 0 To Me.Layers(ii - 1).NeuronCount - 1

curNeuron.Value = curNeuron.Value + Me.Layers(ii - 1).Neurons(k).Value * curNeuron.Dendrites(k).Weight

Next k

curNeuron.Value = Sigmoid(curNeuron.Value + curNeuron.Bias)

End If

Dim outputs As New List(Of Double)

Dim la As Layer = Me.Layers(Me.LayerCount - 1)

For ii As Integer = 0 To la.NeuronCount - 1

outputs.Add(la.Neurons(ii).Value)

Return outputs

End Function

Public Function Train(inputs As List(Of Double), outputs As List(Of Double)) As Boolean

If inputs.Count <> Me.Layers(0).NeuronCount Or outputs.Count <> Me.Layers(Me.LayerCount - 1).NeuronCount Then

Debug.WriteLine("output.count <> Layers " & Me.Layers(Me.LayerCount - 1).NeuronCount)

Return False

End If

Execute(inputs)

For ii = 0 To Me.Layers(Me.LayerCount - 1).NeuronCount - 1

Dim curNeuron As Neuron = Me.Layers(Me.LayerCount - 1).Neurons(ii)

curNeuron.Delta = curNeuron.Value * (1 - curNeuron.Value) * (outputs(ii) - curNeuron.Value)

For jj = Me.LayerCount - 2 To 1 Step -1

For kk = 0 To Me.Layers(jj).NeuronCount - 1

Dim iNeuron As Neuron = Me.Layers(jj).Neurons(kk)

iNeuron.Delta = iNeuron.Value * (1 - iNeuron.Value) * Me.Layers(jj + 1).Neurons(ii).Dendrites(kk).Weight * Me.Layers(jj + 1).Neurons(ii).Delta

Next kk

Next jj

Next ii

For ii = Me.LayerCount - 1 To 0 Step -1

For jj = 0 To Me.Layers(ii).NeuronCount - 1

Dim iNeuron As Neuron = Me.Layers(ii).Neurons(jj)

iNeuron.Bias = iNeuron.Bias + (Me.LearningRate * iNeuron.Delta)

For kk = 0 To iNeuron.DendriteCount - 1

iNeuron.Dendrites(kk).Weight = iNeuron.Dendrites(kk).Weight + (Me.LearningRate * Me.Layers(ii - 1).Neurons(kk).Value * iNeuron.Delta)

Next kk

Next jj

Next ii

Return True

End Function

'https://visualstudiomagazine.com/articles/2013/06/01/neural-network-activation-functions.aspx

Public Function Activation(ByVal x As Double, ByVal activationType As String, ByVal layer As String) As Double

If activationType = "logsigmoid" Then

Return LogSigmoid(x)

ElseIf activationType = "hyperbolictangent" Then

Return HyperbolicTangtent(x)

ElseIf activationType = "softmax" Then

Return SoftMax(x, layer)

Else

Throw New Exception("Not implemented")

End If

End Function

Public Function LogSigmoid(ByVal x As Double) As Double

If x < -45.0 Then

Return 0.0

ElseIf x > 45.0 Then

Return 1.0

Else

Return 1.0 / (1.0 + Math.Exp(-x))

End If

End Function

Public Function HyperbolicTangtent(ByVal x As Double) As Double

If x < -45.0 Then

Return -1.0

ElseIf x > 45.0 Then

Return 1.0

Else

Return Math.Tanh(x)

End If

End Function

Public Function SoftMax(ByVal x As Double, ByVal layer As String) As Double

Dim max As Double = Double.MinValue

If layer = "ih" Then

max = If((ihSum0 > ihSum1), ihSum0, ihSum1)

ElseIf layer = "ho" Then

max = If((hoSum0 > hoSum1), hoSum0, hoSum1)

End If

Dim scale As Double = 0.0

If layer = "ih" Then

scale = Math.Exp(ihSum0 - max) + Math.Exp(ihSum1 - max)

ElseIf layer = "ho" Then

scale = Math.Exp(hoSum0 - max) + Math.Exp(hoSum1 - max)

End If

Return Math.Exp(x - max) / scale

End Function

Powershell – Caching Active Directory Get-AdUser using SHA and JSON.

Using this method my Get-user went from 86 seconds down to 0.0009 seconds the second time around.

if (-not $CashedQuerys)

{
    $CashedQuerys = @{}
}
function Cached-Get-ADUser
{
    [CmdletBinding()]
    param(
        [Parameter(Mandatory = $false, Position = 0)]
        #[ValidateNotNullOrEmpty()]
        [Alias('ID','Alias', 'DistinguishedName', 'Guid', 'PrimarySmtpAddress', 'SamAccountName')]
        [string]$Identity,

        [Parameter(Position = 1)]
        [ValidateSet('Negotiate', 'Baisc')]
        [string]$AuthType = 'Negotiate',

        [Parameter()]
        [System.Management.Automation.PSCredential]$Credential = $null,

        [Parameter()]
        [string]$Partition,

        [Parameter()]
        [string]$Properties,

 

        [Parameter()]

        [string]$Server = $null,

 

        [Parameter()]

        [string]$Filter,

 

        [Parameter()]

        [int]$ResultSetSize,

 

        [Parameter()]

        [string]$SearchBase,

 

        [Parameter()]

        [ValidateSet($null, 'Base', 'OneLevel', 'SubTree')]

        [string]$SearchScope = $null,

 

        [Parameter()]

        [ValidateSet($false, $true)]

        [string]$SetInsteadofGetCache = $false

        )

 

        $Parameters = @{

        Identity = $Identity

        AuthType = $AuthType

        Credential = $Credential

        Partition = $Partition

        Properties = $Properties

        Server = $Server

        Filter = $Filter

        ResultSetSize = $ResultSetSize

        SearchBase = $SearchBase

        SearchScope = $SearchScope

    }

 

    #Get-ADUser @Parameters

    $start = Get-Date

 

    $filteredParameters = @{}   

 

    foreach ($key in $Parameters.Keys)

    {

        $value = $Parameters[$key]

        if ($value -ne $null -and $value -ne '')

        {

            $filteredParameters.Add($key, $value)

        }

    }

 

    $GeneratedJSON = $filteredParameters | ConvertTo-Json

 

    #$hash = ($GeneratedJSON | ConvertTo-SecureString -AsPlainText -Force | Get-Hash -Algorithm SHA256).Hash

 

    $hasher = [System.Security.Cryptography.HashAlgorithm]::Create('sha256')

    $hash = $hasher.ComputeHash([System.Text.Encoding]::UTF8.GetBytes($GeneratedJSON))

 

    $hashString = [System.BitConverter]::ToString($hash).Replace('-', '')

 

    if ($SetInsteadofGetCache -eq $false)

    {

        if ( $CashedQuerys.ContainsKey($hashString) )

        {

            $end = Get-Date

            $time = ($end - $start).TotalMilliseconds

            write-host "Cashed Result returned in: " $($time / 1000 / 60) $($GeneratedJSON.Replace("`n", ''))

            return $CashedQuerys.Item($hashString)

        }

    }

   

 

    #The command below flattens the hashtable to an array and slatting does not work as expected.

    #$Parameters = $Parameters.GetEnumerator() | Where-Object { $_.Value -ne $null -and $_.Value -ne '' }

    #Splatting

    $Result = Get-ADUser @filteredParameters

 

    if ($CashedQuerys.ContainsKey($hashString))

    {

        $CashedQuerys.Item($hashString) = $Result

    }

    else

    {

        $CashedQuerys.Add($hashString, $Result)

    }

 

 

 

    $end = Get-Date

    $time = ($end - $start).TotalMilliseconds

    write-host "Result returned in: " $($time / 1000 / 60) $($GeneratedJSON.Replace('`n', ''))

    return $Result

}

 

#Get-Item Function:Get-ADUser | Select-Object -ExpandProperty Definition

#$test = Get-ADUser -Identity EID

#PS P:\> $test.GetType()

#IsPublic IsSerial Name                                     BaseType                                                                                                                                                                                                                                                                                                                                                                                                                

#-------- -------- ----                                     --------                                                                                                                                                                                                                                                                                                                                                                                                                

#True     False    ADUser                                   Microsoft.ActiveDirectory.Management.ADAccount   

#[Microsoft.ActiveDirectory.Management.ADAccount] | gm

 

$First = Cached-Get-ADUser -Filter *

$Second = Cached-Get-ADUser -Identity EID

#$First = Cached-Get-ADUser -Filter * -SetInsteadofGetCache True

$First = Cached-Get-ADUser -Filter *

write-host $First.Count $Second.Name

exit

#There is an issue here where a new query created at a later time could have a different result set. This can only work with testing?

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

if (-not $CashedQuerys)

{

$CashedQuerys = @{}

}

function Cached-Get-ADUser

{

[CmdletBinding()]

param(

[Parameter(Mandatory = $false, Position = 0)]

#[ValidateNotNullOrEmpty()]

[Alias('ID','Alias', 'DistinguishedName', 'Guid', 'PrimarySmtpAddress', 'SamAccountName')]

[string]$Identity,

[Parameter(Position = 1)]

[ValidateSet('Negotiate', 'Baisc')]

[string]$AuthType = 'Negotiate',

[Parameter()]

[System.Management.Automation.PSCredential]$Credential = $null,

[Parameter()]

[string]$Partition,

[Parameter()]

[string]$Properties,

[Parameter()]

[string]$Server = $null,

[Parameter()]

[string]$Filter,

[Parameter()]

[int]$ResultSetSize,

[Parameter()]

[string]$SearchBase,

[Parameter()]

[ValidateSet($null, 'Base', 'OneLevel', 'SubTree')]

[string]$SearchScope = $null,

[Parameter()]

[ValidateSet($false, $true)]

[string]$SetInsteadofGetCache = $false

)

$Parameters = @{

Identity = $Identity

AuthType = $AuthType

Credential = $Credential

Partition = $Partition

Properties = $Properties

Server = $Server

Filter = $Filter

ResultSetSize = $ResultSetSize

SearchBase = $SearchBase

SearchScope = $SearchScope

}

#Get-ADUser @Parameters

$start = Get-Date

$filteredParameters = @{}

foreach ($key in $Parameters.Keys)

{

$value = $Parameters[$key]

if ($value -ne $null -and $value -ne '')

{

$filteredParameters.Add($key, $value)

}

$GeneratedJSON = $filteredParameters | ConvertTo-Json

#$hash = ($GeneratedJSON | ConvertTo-SecureString -AsPlainText -Force | Get-Hash -Algorithm SHA256).Hash

$hasher = [System.Security.Cryptography.HashAlgorithm]::Create('sha256')

$hash = $hasher.ComputeHash([System.Text.Encoding]::UTF8.GetBytes($GeneratedJSON))

$hashString = [System.BitConverter]::ToString($hash).Replace('-', '')

if ($SetInsteadofGetCache -eq $false)

{

if ( $CashedQuerys.ContainsKey($hashString) )

{

$end = Get-Date

$time = ($end - $start).TotalMilliseconds

write-host "Cashed Result returned in: " $($time / 1000 / 60) $($GeneratedJSON.Replace("`n", ''))

return $CashedQuerys.Item($hashString)

}

#The command below flattens the hashtable to an array and slatting does not work as expected.

#$Parameters = $Parameters.GetEnumerator() | Where-Object { $_.Value -ne $null -and $_.Value -ne '' }

#Splatting

$Result = Get-ADUser @filteredParameters

if ($CashedQuerys.ContainsKey($hashString))

{

$CashedQuerys.Item($hashString) = $Result

}

else

{

$CashedQuerys.Add($hashString, $Result)

}

$end = Get-Date

$time = ($end - $start).TotalMilliseconds

write-host "Result returned in: " $($time / 1000 / 60) $($GeneratedJSON.Replace('`n', ''))

return $Result

}

#Get-Item Function:Get-ADUser | Select-Object -ExpandProperty Definition

#$test = Get-ADUser -Identity EID

#PS P:\> $test.GetType()

#IsPublic IsSerial Name BaseType

#-------- -------- ---- --------

#True False ADUser Microsoft.ActiveDirectory.Management.ADAccount

#[Microsoft.ActiveDirectory.Management.ADAccount] | gm

$First = Cached-Get-ADUser -Filter *

$Second = Cached-Get-ADUser -Identity EID

#$First = Cached-Get-ADUser -Filter * -SetInsteadofGetCache True

$First = Cached-Get-ADUser -Filter *

write-host $First.Count $Second.Name

exit

#There is an issue here where a new query created at a later time could have a different result set. This can only work with testing?

Adding Queue support with Task that support Argument’s and Parameters

Proof of concept on how to queue items and execute them. Watch for memory leaks in this POC the GC has been tested and appears to work.

Imports System.Runtime.InteropServices
Imports System.Threading
Imports System.Windows.Forms.VisualStyles

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private tasks As New Queue(Of Action)
    Private Sub SomeWork()
        System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " Starting work")
        Threading.Thread.Sleep(200)
        System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " Work completed")
    End Sub

    Private RunningThread As Integer
    Private Lock As New Object
    Private tasksWithParams As New Queue(Of Task(Of Object))

    Private Function SomeWorkWithParams(ByVal id As Object, ByRef o As Object) As Object

        Dim MyDict As Dictionary(Of String, String) = id
        'System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Starting work on item - " & id & "-" & MyDict.First.Value)
        'Threading.Thread.Sleep(2)
        'System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Work completed - " & id & "-" & MyDict.First.Value)
        Callback()
        'o = Nothing
        Return False
    End Function

    Dim GCInterval As Integer = 0
    Private Sub Callback()
        If GCInterval Mod 1000 = 0 Then
            System.Diagnostics.Debug.WriteLine("Cleaning up garbage mod 100")
            GC.Collect()
        End If
        GCInterval += 1
        'If tasks.Count > 0 Then
        If tasksWithParams.Count > 0 Then
            'Dim Task As Action
            Dim t As Task
            SyncLock (Lock)
                'Task = tasks.Dequeue
                System.Diagnostics.Debug.WriteLine(tasksWithParams.Count & " left in queue")
                t = tasksWithParams.Dequeue
                t.Start()
            End SyncLock
            'Task.BeginInvoke(AddressOf Callback, Nothing)
        Else
            Threading.Interlocked.Decrement(RunningThread)
            System.Diagnostics.Debug.WriteLine("Cleaning up garbage queue finished")
            GC.Collect()
        End If
    End Sub

    Private Function AddItemTOQueue(t As Task(Of Object), ByVal I As Object, ByVal o As Object)
        'Dim Task As New Action(AddressOf SomeWork)
        If RunningThread < 1 Then
            'Task.BeginInvoke(AddressOf Callback, MyArgument)
            t.Start()
            Threading.Interlocked.Increment(RunningThread)
        Else
            SyncLock (Lock)
                'tasks.Enqueue(Task)
                tasksWithParams.Enqueue(t)
            End SyncLock
        End If
        Return True
    End Function

    Dim Ii As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim MyArgument As New Dictionary(Of String, String)
        For i = 0 To 4999
            Ii += 1
            MyArgument = New Dictionary(Of String, String)
            MyArgument.Add("Test" & Ii, "test" & Ii)

            Dim t As Task(Of Object) = New Threading.Tasks.Task(Of Object)(Function() SomeWorkWithParams(MyArgument, 3))
            AddItemTOQueue(t, 5, 7)
            'MyArgument = Nothing
        Next
    End Sub
End Class

Imports System.Runtime.InteropServices

Imports System.Threading

Imports System.Windows.Forms.VisualStyles

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private tasks As New Queue(Of Action)

Private Sub SomeWork()

System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " Starting work")

Threading.Thread.Sleep(200)

System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " Work completed")

End Sub

Private RunningThread As Integer

Private Lock As New Object

Private tasksWithParams As New Queue(Of Task(Of Object))

Private Function SomeWorkWithParams(ByVal id As Object, ByRef o As Object) As Object

Dim MyDict As Dictionary(Of String, String) = id

'System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Starting work on item - " & id & "-" & MyDict.First.Value)

'Threading.Thread.Sleep(2)

'System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Work completed - " & id & "-" & MyDict.First.Value)

Callback()

'o = Nothing

Return False

End Function

Dim GCInterval As Integer = 0

Private Sub Callback()

If GCInterval Mod 1000 = 0 Then

System.Diagnostics.Debug.WriteLine("Cleaning up garbage mod 100")

GC.Collect()

End If

GCInterval += 1

'If tasks.Count > 0 Then

If tasksWithParams.Count > 0 Then

'Dim Task As Action

Dim t As Task

SyncLock (Lock)

'Task = tasks.Dequeue

System.Diagnostics.Debug.WriteLine(tasksWithParams.Count & " left in queue")

t = tasksWithParams.Dequeue

t.Start()

End SyncLock

'Task.BeginInvoke(AddressOf Callback, Nothing)

Else

Threading.Interlocked.Decrement(RunningThread)

System.Diagnostics.Debug.WriteLine("Cleaning up garbage queue finished")

GC.Collect()

End If

End Sub

Private Function AddItemTOQueue(t As Task(Of Object), ByVal I As Object, ByVal o As Object)

'Dim Task As New Action(AddressOf SomeWork)

If RunningThread < 1 Then

'Task.BeginInvoke(AddressOf Callback, MyArgument)

t.Start()

Threading.Interlocked.Increment(RunningThread)

Else

SyncLock (Lock)

'tasks.Enqueue(Task)

tasksWithParams.Enqueue(t)

End SyncLock

End If

Return True

End Function

Dim Ii As Integer = 0

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim MyArgument As New Dictionary(Of String, String)

For i = 0 To 4999

Ii += 1

MyArgument = New Dictionary(Of String, String)

MyArgument.Add("Test" & Ii, "test" & Ii)

Dim t As Task(Of Object) = New Threading.Tasks.Task(Of Object)(Function() SomeWorkWithParams(MyArgument, 3))

AddItemTOQueue(t, 5, 7)

'MyArgument = Nothing

End Sub

End Class

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace CSharpQueue
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            Dictionary<string, string> MyArgument = new Dictionary<string, string>();
            for (var i = 0; i <= 4999; i++)
            {
                Ii += 1;
                MyArgument = new Dictionary<string, string>();
                MyArgument.Add("Test" + Ii, "test" + Ii);

                object Myval = 3;

                Task<bool> t = new System.Threading.Tasks.Task<bool>(() => Convert.ToBoolean(SomeWorkWithParams(MyArgument, ref Myval)));
                AddItemTOQueue(t, 5, 7);
            }
        }


        private Queue<Action> tasks = new Queue<Action>();
        private void SomeWork()
        {
            System.Diagnostics.Debug.WriteLine(System.Threading.Thread.CurrentThread.ManagedThreadId + " Starting work");
            System.Threading.Thread.Sleep(200);
            System.Diagnostics.Debug.WriteLine(System.Threading.Thread.CurrentThread.ManagedThreadId + " Work completed");
        }

        private int RunningThread;
        private object Lock = new object();
        private Queue<Task<bool>> tasksWithParams = new Queue<Task<bool>>();

        private object SomeWorkWithParams(object id, ref object o)
        {
            Dictionary<string, string> MyDict = (Dictionary<string, string>)id;
            // System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Starting work on item - " & id & "-" & MyDict.First.Value)
            // Threading.Thread.Sleep(2)
            // System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Work completed - " & id & "-" & MyDict.First.Value)
            Callback();
            // o = Nothing
            return Convert.ToBoolean(new Random().Next(0, 2));
        }

        private int GCInterval = 0;
        private void Callback()
        {
            if (GCInterval % 1000 == 0)
            {
                System.Diagnostics.Debug.WriteLine("Cleaning up garbage mod 100");
                GC.Collect();
            }
            GCInterval += 1;
            // If tasks.Count > 0 Then
            if (tasksWithParams.Count > 0)
            {
                // Dim Task As Action
                Task<bool> t;
                lock ((Lock))
                {
                    // Task = tasks.Dequeue
                    System.Diagnostics.Debug.WriteLine(tasksWithParams.Count + " left in queue");
                    t = tasksWithParams.Dequeue();
                    t.Start();
                }
            }
            else
            {
                System.Threading.Interlocked.Decrement(ref RunningThread);
                System.Diagnostics.Debug.WriteLine("Cleaning up garbage queue finished");
                GC.Collect();
            }
        }

        private bool AddItemTOQueue(Task<bool> t, object I, object o)
        {
            // Dim Task As New Action(AddressOf SomeWork)
            if (RunningThread < 1)
            {
                // Task.BeginInvoke(AddressOf Callback, MyArgument)
                t.Start();
                System.Threading.Interlocked.Increment(ref RunningThread);
            }
            else
                lock ((Lock))
                    // tasks.Enqueue(Task)
                    tasksWithParams.Enqueue(t);
            return true;
        }

        private int Ii = 0;

    }
}

100

101

102

103

104

105

106

107

108

109

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace CSharpQueue

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

Dictionary<string, string> MyArgument = new Dictionary<string, string>();

for (var i = 0; i <= 4999; i++)

{

Ii += 1;

MyArgument = new Dictionary<string, string>();

MyArgument.Add("Test" + Ii, "test" + Ii);

object Myval = 3;

Task<bool> t = new System.Threading.Tasks.Task<bool>(() => Convert.ToBoolean(SomeWorkWithParams(MyArgument, ref Myval)));

AddItemTOQueue(t, 5, 7);

}

private Queue<Action> tasks = new Queue<Action>();

private void SomeWork()

{

System.Diagnostics.Debug.WriteLine(System.Threading.Thread.CurrentThread.ManagedThreadId + " Starting work");

System.Threading.Thread.Sleep(200);

System.Diagnostics.Debug.WriteLine(System.Threading.Thread.CurrentThread.ManagedThreadId + " Work completed");

}

private int RunningThread;

private object Lock = new object();

private Queue<Task<bool>> tasksWithParams = new Queue<Task<bool>>();

private object SomeWorkWithParams(object id, ref object o)

{

Dictionary<string, string> MyDict = (Dictionary<string, string>)id;

// System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Starting work on item - " & id & "-" & MyDict.First.Value)

// Threading.Thread.Sleep(2)

// System.Diagnostics.Debug.WriteLine(Threading.Thread.CurrentThread.ManagedThreadId & " SomeWorkWithParams Work completed - " & id & "-" & MyDict.First.Value)

Callback();

// o = Nothing

return Convert.ToBoolean(new Random().Next(0, 2));

}

private int GCInterval = 0;

private void Callback()

{

if (GCInterval % 1000 == 0)

{

System.Diagnostics.Debug.WriteLine("Cleaning up garbage mod 100");

GC.Collect();

}

GCInterval += 1;

// If tasks.Count > 0 Then

if (tasksWithParams.Count > 0)

{

// Dim Task As Action

Task<bool> t;

lock ((Lock))

{

// Task = tasks.Dequeue

System.Diagnostics.Debug.WriteLine(tasksWithParams.Count + " left in queue");

t = tasksWithParams.Dequeue();

t.Start();

}

else

{

System.Threading.Interlocked.Decrement(ref RunningThread);

System.Diagnostics.Debug.WriteLine("Cleaning up garbage queue finished");

GC.Collect();

}

private bool AddItemTOQueue(Task<bool> t, object I, object o)

{

// Dim Task As New Action(AddressOf SomeWork)

if (RunningThread < 1)

{

// Task.BeginInvoke(AddressOf Callback, MyArgument)

t.Start();

System.Threading.Interlocked.Increment(ref RunningThread);

}

else

lock ((Lock))

// tasks.Enqueue(Task)

tasksWithParams.Enqueue(t);

return true;

}

private int Ii = 0;

}

Hooking WSASend/WSASend/Recv/Send with Easyhook and c#

Use a version of Visual Studio that can clone the Git repository and add the following modifications to the project.

using System;
using System.Diagnostics;
using System.IO;
using System.Reflection;
using System.Runtime.Remoting;
using EasyHook;
using PacketLoggerHook;

namespace PacketLogger
{
    internal class Program
    {
        public static void Main(string[] args)
        {
            if (args.Length != 1)
            {
                Console.Error.WriteLine("Usage: PacketLogger.exe <process_name>");
                //return;
            }

            string channelName = null;

            RemoteHooking.IpcCreateServer<ServerInterface>(ref channelName, WellKnownObjectMode.Singleton);
            var injectionLibrary =
                Path.Combine(
                    Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location) ??
                    throw new InvalidOperationException(),
                    "PacketLoggerHook.dll");

            Console.WriteLine("Hooking");
            injectionLibrary = @"C:\Users\UserName\Source\Repos\PacketLogger\PacketLoggerHook\bin\Debug\PacketLoggerHook.dll";

            foreach (var process in Process.GetProcesses())
            {
                if (process.ProcessName == args[0])
                {
                    Console.WriteLine("Found a process: {0}", process.ProcessName);
                    RemoteHooking.Inject(
                        process.Id,
                        injectionLibrary,
                        injectionLibrary,
                        channelName
                    );
                    break;
                }
            }

            Console.WriteLine("Press any key to exit");
            Console.ReadKey();
        }
    }
}

using System;

using System.Diagnostics;

using System.IO;

using System.Reflection;

using System.Runtime.Remoting;

using EasyHook;

using PacketLoggerHook;

namespace PacketLogger

{

internal class Program

{

public static void Main(string[] args)

{

if (args.Length != 1)

{

Console.Error.WriteLine("Usage: PacketLogger.exe <process_name>");

//return;

}

string channelName = null;

RemoteHooking.IpcCreateServer<ServerInterface>(ref channelName, WellKnownObjectMode.Singleton);

var injectionLibrary =

Path.Combine(

Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location) ??

throw new InvalidOperationException(),

"PacketLoggerHook.dll");

Console.WriteLine("Hooking");

injectionLibrary = @"C:\Users\UserName\Source\Repos\PacketLogger\PacketLoggerHook\bin\Debug\PacketLoggerHook.dll";

foreach (var process in Process.GetProcesses())

{

if (process.ProcessName == args[0])

{

Console.WriteLine("Found a process: {0}", process.ProcessName);

RemoteHooking.Inject(

process.Id,

injectionLibrary,

channelName

);

break;

}

Console.WriteLine("Press any key to exit");

Console.ReadKey();

}

using System;
using System.Runtime.InteropServices;
using System.Threading;
using EasyHook;

namespace PacketLoggerHook
{
    public class InjectionEntryPoint : IEntryPoint
    {
        private readonly ServerInterface _server;
        private readonly string _channelName;
        private LocalHook _wsaSendHook;
        private LocalHook _wsaRecvHook;
        private LocalHook _SendHook;
        private LocalHook _RecvHook;

        public InjectionEntryPoint(RemoteHooking.IContext context, string channelName)
        {
            _server = RemoteHooking.IpcConnectClient<ServerInterface>(channelName);
            _channelName = channelName;
        }

        public void Run(RemoteHooking.IContext context, string channelName)
        {
            _server.Log("Running");

            _server.IsInstalled(RemoteHooking.GetCurrentProcessId());

            _server.Log("Installed");

            _wsaSendHook = LocalHook.Create(
                LocalHook.GetProcAddress("Ws2_32.dll", "WSASend"),
                new WSASend_Delegate(WSASend_Hook),
                this
            );
            _wsaRecvHook = LocalHook.Create(
                LocalHook.GetProcAddress("Ws2_32.dll", "WSARecv"),
                new WSARecv_Delegate(WSARecv_Hook),
                this
            );

            _wsaSendHook.ThreadACL.SetExclusiveACL(new[] {0});
            _wsaRecvHook.ThreadACL.SetExclusiveACL(new[] {0});

            
            _SendHook = LocalHook.Create(
                LocalHook.GetProcAddress("Ws2_32.dll", "send"),
                new Send_Delegate(Send_Hook),
                this
            );
            _SendHook.ThreadACL.SetExclusiveACL(new[] { 0 });
             
            
            _RecvHook = LocalHook.Create(
                LocalHook.GetProcAddress("Ws2_32.dll", "recv"),
                new Recv_Delegate(Recv_Hook),
                this
            );
            _RecvHook.ThreadACL.SetExclusiveACL(new[] { 0 });
           

            _server.Log("Hook WSASend/WSARecv/Send/Recv installed");

            RemoteHooking.WakeUpProcess();

            while (true)
            {
                Thread.Sleep(500);
            }
        }

        public void Stop()
        {
            _wsaSendHook.Dispose();
            _wsaRecvHook.Dispose();
            _SendHook.Dispose();
            _RecvHook.Dispose();
            LocalHook.Release();
        }

        #region WSASend Hook

        [UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]
        delegate int WSASend_Delegate(
            IntPtr s,
            IntPtr lpBuffers,
            uint dwBufferCount,
            IntPtr lpNumberOfBytesSent,
            uint dwFlags,
            uint lpOverlapped,
            uint lpCompletionRoutine
        );

        [DllImport("Ws2_32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        static extern int WSASend(
            IntPtr s,
            IntPtr lpBuffers,
            uint dwBufferCount,
            IntPtr lpNumberOfBytesSent,
            uint dwFlags,
            uint lpOverlapped,
            uint lpCompletionRoutine
        );

        int WSASend_Hook(
            IntPtr s,
            IntPtr lpBuffers,
            uint dwBufferCount,
            IntPtr lpNumberOfBytesSent,
            uint dwFlags,
            uint lpOverlapped,
            uint lpCompletionRoutine
        )
        {
            var result = WSASend(s, lpBuffers, dwBufferCount, lpNumberOfBytesSent, dwFlags, lpOverlapped,
                lpCompletionRoutine);

            var respSize = Marshal.ReadInt32(lpNumberOfBytesSent);
            if (respSize > 0)
            {
                var data = new byte[respSize];
                Marshal.Copy(Marshal.ReadIntPtr(lpBuffers, 4), data, 0, respSize);
                _server.Log("WSASend", data);
            }

            return result;
        }

        #endregion

        #region WSARecv Hook

        [UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]
        delegate int WSARecv_Delegate(
            IntPtr s,
            IntPtr lpBuffers,
            uint dwBufferCount,
            IntPtr lpNumberOfBytesRecvd,
            uint lpFlags,
            uint lpOverlapped,
            uint lpCompletionRoutine
        );

        [DllImport("Ws2_32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        static extern int WSARecv(
            IntPtr s,
            IntPtr lpBuffers,
            uint dwBufferCount,
            IntPtr lpNumberOfBytesRecvd,
            uint lpFlags,
            uint lpOverlapped,
            uint lpCompletionRoutine
        );

        int WSARecv_Hook(
            IntPtr s,
            IntPtr lpBuffers,
            uint dwBufferCount,
            IntPtr lpNumberOfBytesRecvd,
            uint lpFlags,
            uint lpOverlapped,
            uint lpCompletionRoutine)
        {
            var result = WSARecv(s, lpBuffers, dwBufferCount, lpNumberOfBytesRecvd, lpFlags, lpOverlapped,
                lpCompletionRoutine);

            var respSize = Marshal.ReadInt32(lpNumberOfBytesRecvd);
            if (respSize > 0)
            {
                var data = new byte[respSize];
                Marshal.Copy(Marshal.ReadIntPtr(lpBuffers, 4), data, 0, respSize);
                _server.Log("WSARecv", data);
            }

            return result;
        }

        #endregion



        #region Recv Hook

        [UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]
        delegate int Recv_Delegate(
            uint s,
            IntPtr buf,
            int len,
            int flags
        );

        [DllImportAttribute("Ws2_32.dll", CallingConvention= CallingConvention.StdCall, SetLastError = true, CharSet = CharSet.Auto)]
        static extern int recv(
            uint s,
            IntPtr buf,
            int len,
            int flags
        );

        int Recv_Hook(
            uint s,
            IntPtr buf,
            int len,
            int flags)
        {
            //_server.Log("recv", System.Text.ASCIIEncoding.ASCII.GetBytes("Got receive request"));
            int result = recv(s, buf, len, flags);
            //_server.Log("recv", System.Text.ASCIIEncoding.ASCII.GetBytes("Got receive done: " + result));
            var respSize = result; //Marshal.ReadInt32(result);
            if (respSize > 0)
            {
                _server.Log("Recv", System.Text.ASCIIEncoding.ASCII.GetBytes(Marshal.PtrToStringAnsi(buf)));
                //var data = new byte[respSize];
                //Marshal.Copy(Marshal.ReadIntPtr(buf, 4), data, 0, respSize);
                //_server.Log("Recv", System.Text.ASCIIEncoding.ASCII.GetBytes(buf));
            }

            return result;
        }

        #endregion

        #region Send Hook

        [UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]
        delegate int Send_Delegate(
            IntPtr s,
            //[MarshalAsAttribute(UnmanagedType.LPWStr)] string buf,
            IntPtr buf,
            int len,
            int flags
        );

        [DllImportAttribute("Ws2_32.dll", CallingConvention = CallingConvention.StdCall, SetLastError = true, CharSet = CharSet.Unicode)]
        static extern int send(
            IntPtr s,
            //[MarshalAsAttribute(UnmanagedType.LPWStr)] string buf,
            IntPtr buf,
            int len,
            int flags
        );

        int Send_Hook(
            IntPtr s,
            //[MarshalAsAttribute(UnmanagedType.LPWStr)] string buf,
            IntPtr buf,
            int len,
            int flags
        )
        {
            //_server.Log("send", System.Text.ASCIIEncoding.ASCII.GetBytes("Got Send request " + buf));
            //_server.Log("send2", System.Text.ASCIIEncoding.ASCII.GetBytes(Marshal.PtrToStringAnsi(buf)));
            var result = send(s, buf, len, flags);
            //_server.Log("send", System.Text.ASCIIEncoding.Unicode.GetBytes("Got Send request " + buf));
            //_server.Log("send", System.Text.ASCIIEncoding.ASCII.GetBytes("Got Send done: " + result));

            var respSize = result; //Marshal.ReadInt32(lpNumberOfBytesSent);
            if (respSize > 0)
            {
                var data = new byte[respSize];
                //Marshal.Copy(Marshal.ReadIntPtr(buf, 4), data, 0, respSize);
                Marshal.Copy(buf, data, 0, respSize);
                _server.Log("send", data);
            }

            return result;
        }

        #endregion



    }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

using System;

using System.Runtime.InteropServices;

using System.Threading;

using EasyHook;

namespace PacketLoggerHook

{

public class InjectionEntryPoint : IEntryPoint

{

private readonly ServerInterface _server;

private readonly string _channelName;

private LocalHook _wsaSendHook;

private LocalHook _wsaRecvHook;

private LocalHook _SendHook;

private LocalHook _RecvHook;

public InjectionEntryPoint(RemoteHooking.IContext context, string channelName)

{

_server = RemoteHooking.IpcConnectClient<ServerInterface>(channelName);

_channelName = channelName;

}

public void Run(RemoteHooking.IContext context, string channelName)

{

_server.Log("Running");

_server.IsInstalled(RemoteHooking.GetCurrentProcessId());

_server.Log("Installed");

_wsaSendHook = LocalHook.Create(

LocalHook.GetProcAddress("Ws2_32.dll", "WSASend"),

new WSASend_Delegate(WSASend_Hook),

this

);

_wsaRecvHook = LocalHook.Create(

LocalHook.GetProcAddress("Ws2_32.dll", "WSARecv"),

new WSARecv_Delegate(WSARecv_Hook),

this

);

_wsaSendHook.ThreadACL.SetExclusiveACL(new[] {0});

_wsaRecvHook.ThreadACL.SetExclusiveACL(new[] {0});

_SendHook = LocalHook.Create(

LocalHook.GetProcAddress("Ws2_32.dll", "send"),

new Send_Delegate(Send_Hook),

this

);

_SendHook.ThreadACL.SetExclusiveACL(new[] { 0 });

_RecvHook = LocalHook.Create(

LocalHook.GetProcAddress("Ws2_32.dll", "recv"),

new Recv_Delegate(Recv_Hook),

this

);

_RecvHook.ThreadACL.SetExclusiveACL(new[] { 0 });

_server.Log("Hook WSASend/WSARecv/Send/Recv installed");

RemoteHooking.WakeUpProcess();

while (true)

{

Thread.Sleep(500);

}

public void Stop()

{

_wsaSendHook.Dispose();

_wsaRecvHook.Dispose();

_SendHook.Dispose();

_RecvHook.Dispose();

LocalHook.Release();

}

#region WSASend Hook

[UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]

delegate int WSASend_Delegate(

IntPtr s,

IntPtr lpBuffers,

uint dwBufferCount,

IntPtr lpNumberOfBytesSent,

uint dwFlags,

uint lpOverlapped,

uint lpCompletionRoutine

);

[DllImport("Ws2_32.dll", SetLastError = true, CharSet = CharSet.Auto)]

static extern int WSASend(

IntPtr s,

IntPtr lpBuffers,

uint dwBufferCount,

IntPtr lpNumberOfBytesSent,

uint dwFlags,

uint lpOverlapped,

uint lpCompletionRoutine

);

int WSASend_Hook(

IntPtr s,

IntPtr lpBuffers,

uint dwBufferCount,

IntPtr lpNumberOfBytesSent,

uint dwFlags,

uint lpOverlapped,

uint lpCompletionRoutine

)

{

var result = WSASend(s, lpBuffers, dwBufferCount, lpNumberOfBytesSent, dwFlags, lpOverlapped,

lpCompletionRoutine);

var respSize = Marshal.ReadInt32(lpNumberOfBytesSent);

if (respSize > 0)

{

var data = new byte[respSize];

Marshal.Copy(Marshal.ReadIntPtr(lpBuffers, 4), data, 0, respSize);

_server.Log("WSASend", data);

}

return result;

}

#endregion

#region WSARecv Hook

[UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]

delegate int WSARecv_Delegate(

IntPtr s,

IntPtr lpBuffers,

uint dwBufferCount,

IntPtr lpNumberOfBytesRecvd,

uint lpFlags,

uint lpOverlapped,

uint lpCompletionRoutine

);

[DllImport("Ws2_32.dll", SetLastError = true, CharSet = CharSet.Auto)]

static extern int WSARecv(

IntPtr s,

IntPtr lpBuffers,

uint dwBufferCount,

IntPtr lpNumberOfBytesRecvd,

uint lpFlags,

uint lpOverlapped,

uint lpCompletionRoutine

);

int WSARecv_Hook(

IntPtr s,

IntPtr lpBuffers,

uint dwBufferCount,

IntPtr lpNumberOfBytesRecvd,

uint lpFlags,

uint lpOverlapped,

uint lpCompletionRoutine)

{

var result = WSARecv(s, lpBuffers, dwBufferCount, lpNumberOfBytesRecvd, lpFlags, lpOverlapped,

lpCompletionRoutine);

var respSize = Marshal.ReadInt32(lpNumberOfBytesRecvd);

if (respSize > 0)

{

var data = new byte[respSize];

Marshal.Copy(Marshal.ReadIntPtr(lpBuffers, 4), data, 0, respSize);

_server.Log("WSARecv", data);

}

return result;

}

#endregion

#region Recv Hook

[UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]

delegate int Recv_Delegate(

uint s,

IntPtr buf,

int len,

int flags

);

[DllImportAttribute("Ws2_32.dll", CallingConvention= CallingConvention.StdCall, SetLastError = true, CharSet = CharSet.Auto)]

static extern int recv(

uint s,

IntPtr buf,

int len,

int flags

);

int Recv_Hook(

uint s,

IntPtr buf,

int len,

int flags)

{

//_server.Log("recv", System.Text.ASCIIEncoding.ASCII.GetBytes("Got receive request"));

int result = recv(s, buf, len, flags);

//_server.Log("recv", System.Text.ASCIIEncoding.ASCII.GetBytes("Got receive done: " + result));

var respSize = result; //Marshal.ReadInt32(result);

if (respSize > 0)

{

_server.Log("Recv", System.Text.ASCIIEncoding.ASCII.GetBytes(Marshal.PtrToStringAnsi(buf)));

//var data = new byte[respSize];

//Marshal.Copy(Marshal.ReadIntPtr(buf, 4), data, 0, respSize);

//_server.Log("Recv", System.Text.ASCIIEncoding.ASCII.GetBytes(buf));

}

return result;

}

#endregion

#region Send Hook

[UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet = CharSet.Unicode, SetLastError = true)]

delegate int Send_Delegate(

IntPtr s,

//[MarshalAsAttribute(UnmanagedType.LPWStr)] string buf,

IntPtr buf,

int len,

int flags

);

[DllImportAttribute("Ws2_32.dll", CallingConvention = CallingConvention.StdCall, SetLastError = true, CharSet = CharSet.Unicode)]

static extern int send(

IntPtr s,

//[MarshalAsAttribute(UnmanagedType.LPWStr)] string buf,

IntPtr buf,

int len,

int flags

);

int Send_Hook(

IntPtr s,

//[MarshalAsAttribute(UnmanagedType.LPWStr)] string buf,

IntPtr buf,

int len,

int flags

)

{

//_server.Log("send", System.Text.ASCIIEncoding.ASCII.GetBytes("Got Send request " + buf));

//_server.Log("send2", System.Text.ASCIIEncoding.ASCII.GetBytes(Marshal.PtrToStringAnsi(buf)));

var result = send(s, buf, len, flags);

//_server.Log("send", System.Text.ASCIIEncoding.Unicode.GetBytes("Got Send request " + buf));

//_server.Log("send", System.Text.ASCIIEncoding.ASCII.GetBytes("Got Send done: " + result));

var respSize = result; //Marshal.ReadInt32(lpNumberOfBytesSent);

if (respSize > 0)

{

var data = new byte[respSize];

//Marshal.Copy(Marshal.ReadIntPtr(buf, 4), data, 0, respSize);

Marshal.Copy(buf, data, 0, respSize);

_server.Log("send", data);

}

return result;

}

#endregion

}

Using Google Calendar with VB and ASP.NET

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    main()
End Sub

'' Calendar scopes which is initialized on the main method.
Dim scopes As IList(Of String) = New List(Of String)()
'' Calendar service.
Dim service As Google.Apis.Calendar.v3.CalendarService

Sub main()
    scopes.Add(Google.Apis.Calendar.v3.CalendarService.Scope.Calendar)
    service = GetCalendarService()
    LoadCalendars()
    Dim CalendarToTarget = GetCalendarIDFromSummary("MyCalendarSummary")
    Getevent_id(CalendarToTarget, "Summary")
    'InsertCalendar(CalendarToTarget, New DateTime(2023, 1, 27, 10, 0, 0), 2, "Test")
End Sub

Private Function GetCalendarService() As Google.Apis.Calendar.v3.CalendarService 'Google.Apis.Auth.OAuth2.ServiceAccountCredential
    'access json file and send to google 
    Dim MyToken As New Google.Apis.Auth.OAuth2.Responses.TokenResponse ' With refreshToken = Refresh_token
    'Dim credential As Google.Apis.Auth.OAuth2.UserCredential
    Dim credential As Google.Apis.Auth.OAuth2.ServiceAccountCredential
    Using stream As New IO.FileStream("client_secrets.json", IO.FileMode.Open, IO.FileAccess.Read)
        Dim MyInint = New Google.Apis.Auth.OAuth2.ServiceAccountCredential.Initializer("svc-texttospeech@ancient-edition-306401.iam.gserviceaccount.com").FromPrivateKey("-----BEGIN PRIVATE KEY-----MIIEvQIBADANBgkqhkiG9xxxxxxxxxx-----END PRIVATE KEY-----")
        MyInint.Scopes = scopes
        credential = New Google.Apis.Auth.OAuth2.ServiceAccountCredential(MyInint)
    End Using
    Return New Google.Apis.Calendar.v3.CalendarService(New Google.Apis.Services.BaseClientService.Initializer() With {.ApplicationName = "GoogleTextToSpeech", .HttpClientInitializer = credential})
End Function
Private Function GetCalendarServiceAsUser() As Google.Apis.Calendar.v3.CalendarService
    Dim credential As Google.Apis.Auth.OAuth2.UserCredential
    Using stream = New FileStream("client_secrets.json", FileMode.Open, FileAccess.ReadWrite)
        Dim credPath As String = "token.json"
        credential = Google.Apis.Auth.OAuth2.GoogleWebAuthorizationBroker.AuthorizeAsync(Google.Apis.Auth.OAuth2.GoogleClientSecrets.Load(stream).Secrets, scopes, "user", CancellationToken.None, New FileDataStore(credPath, True)).Result
    End Using
    Return New Google.Apis.Calendar.v3.CalendarService(New Google.Apis.Services.BaseClientService.Initializer() With {.ApplicationName = "GoogleTextToSpeech", .HttpClientInitializer = credential})
End Function

Public Function Getevent_id(CalendarID As String, testo As String)

    Dim EventRequest As Google.Apis.Calendar.v3.EventsResource.ListRequest = service.Events.List(CalendarID)
    EventRequest.OrderBy = Google.Apis.Calendar.v3.EventsResource.ListRequest.OrderByEnum.Updated
    EventRequest.TimeMin = New DateTime(Date.Now.Year, 1, 1, 0, 0, 0)
    '
    'EventRequest.Q = testo
    '
    For Each CalendarEvent As Google.Apis.Calendar.v3.Data.Event In EventRequest.Execute.Items
        'If CalendarEvent.Start.DateTime > Date.Parse("01-01-2023") Then
        Debug.WriteLine(CalendarEvent.Summary & " - " & CalendarEvent.Description & " START:  " & CalendarEvent.Start.DateTime & " STATUS: " & CalendarEvent.Status)
        ' End If
    Next
    Return 0
End Function

Sub InsertCalendar(CalendarID As String, StartDate As DateTime, Duration As Double, Description As String)
    Dim EventRequest As Google.Apis.Calendar.v3.EventsResource.ListRequest = service.Events.List(CalendarID)
    Dim CalendarEvent As New Google.Apis.Calendar.v3.Data.Event
    Dim StartDateTime As New Google.Apis.Calendar.v3.Data.EventDateTime

    StartDateTime.DateTime = StartDate
    Dim b As Date
    b = StartDate.AddHours(Duration)
    Dim EndDateTime As New Google.Apis.Calendar.v3.Data.EventDateTime
    EndDateTime.DateTime = b
    CalendarEvent.Start = StartDateTime
    CalendarEvent.End = EndDateTime
    'CalendarEvent.Id = System.Guid.NewGuid.ToString 'Let google generate this for us
    CalendarEvent.Description = Description

    service.Events.Insert(CalendarEvent, CalendarID).Execute()
End Sub

Private objCalendars As Google.Apis.Calendar.v3.Data.CalendarList '///Holds all calendars.
Private Sub LoadCalendars()
    Dim objCalendarListRequest As Google.Apis.Calendar.v3.CalendarListResource.ListRequest = service.CalendarList.List

    If False Then 'This only needs to be executed once if the calendar is not accepted programmatically once already.
        Dim MyCalendarItem = New Google.Apis.Calendar.v3.Data.CalendarListEntry() 'Calendar Invites must be accepted by their ID before queryed.
        MyCalendarItem.Id = "c_be3cf2fda38d9966ahahahashadfafac8780e7ecc69c@group.calendar.google.com"
        Dim MyInsertRequest As Google.Apis.Calendar.v3.CalendarListResource.InsertRequest = service.CalendarList.Insert(MyCalendarItem)
        Debug.WriteLine(MyInsertRequest.Execute.Summary)
    End If


    objCalendars = objCalendarListRequest.Execute()
    If objCalendars Is Nothing Or objCalendars.Items.Count = 0 Then
        '** No calendars.  Something is wrong.  Give up and die.
        Debug.WriteLine("No calendars found?  That's weird.")
    Else
        For Each objCal As Google.Apis.Calendar.v3.Data.CalendarListEntry In objCalendars.Items
            Console.WriteLine("Calendar: " & objCal.Summary)
        Next
    End If
End Sub
Private Function GetCalendarIDFromSummary(ByVal Summary) As String
    If objCalendars IsNot Nothing AndAlso objCalendars.Items.Count > 0 Then
        For Each objCal As Google.Apis.Calendar.v3.Data.CalendarListEntry In objCalendars.Items
            Debug.WriteLine(objCal.Summary & " " & objCal.Description)
            If objCal.Summary = Summary Then
                Return objCal.Id
            End If
        Next
    End If
    Return "" 'Should have found a match if objCalendars was properly loaded.
End Function

100

101

102

103

104

105

106

107

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

main()

End Sub

'' Calendar scopes which is initialized on the main method.

Dim scopes As IList(Of String) = New List(Of String)()

'' Calendar service.

Dim service As Google.Apis.Calendar.v3.CalendarService

Sub main()

scopes.Add(Google.Apis.Calendar.v3.CalendarService.Scope.Calendar)

service = GetCalendarService()

LoadCalendars()

Dim CalendarToTarget = GetCalendarIDFromSummary("MyCalendarSummary")

Getevent_id(CalendarToTarget, "Summary")

'InsertCalendar(CalendarToTarget, New DateTime(2023, 1, 27, 10, 0, 0), 2, "Test")

End Sub

Private Function GetCalendarService() As Google.Apis.Calendar.v3.CalendarService 'Google.Apis.Auth.OAuth2.ServiceAccountCredential

'access json file and send to google

Dim MyToken As New Google.Apis.Auth.OAuth2.Responses.TokenResponse ' With refreshToken = Refresh_token

'Dim credential As Google.Apis.Auth.OAuth2.UserCredential

Dim credential As Google.Apis.Auth.OAuth2.ServiceAccountCredential

Using stream As New IO.FileStream("client_secrets.json", IO.FileMode.Open, IO.FileAccess.Read)

Dim MyInint = New Google.Apis.Auth.OAuth2.ServiceAccountCredential.Initializer("svc-texttospeech@ancient-edition-306401.iam.gserviceaccount.com").FromPrivateKey("-----BEGIN PRIVATE KEY-----MIIEvQIBADANBgkqhkiG9xxxxxxxxxx-----END PRIVATE KEY-----")

MyInint.Scopes = scopes

credential = New Google.Apis.Auth.OAuth2.ServiceAccountCredential(MyInint)

End Using

Return New Google.Apis.Calendar.v3.CalendarService(New Google.Apis.Services.BaseClientService.Initializer() With {.ApplicationName = "GoogleTextToSpeech", .HttpClientInitializer = credential})

End Function

Private Function GetCalendarServiceAsUser() As Google.Apis.Calendar.v3.CalendarService

Dim credential As Google.Apis.Auth.OAuth2.UserCredential

Using stream = New FileStream("client_secrets.json", FileMode.Open, FileAccess.ReadWrite)

Dim credPath As String = "token.json"

credential = Google.Apis.Auth.OAuth2.GoogleWebAuthorizationBroker.AuthorizeAsync(Google.Apis.Auth.OAuth2.GoogleClientSecrets.Load(stream).Secrets, scopes, "user", CancellationToken.None, New FileDataStore(credPath, True)).Result

End Using

Return New Google.Apis.Calendar.v3.CalendarService(New Google.Apis.Services.BaseClientService.Initializer() With {.ApplicationName = "GoogleTextToSpeech", .HttpClientInitializer = credential})

End Function

Public Function Getevent_id(CalendarID As String, testo As String)

Dim EventRequest As Google.Apis.Calendar.v3.EventsResource.ListRequest = service.Events.List(CalendarID)

EventRequest.OrderBy = Google.Apis.Calendar.v3.EventsResource.ListRequest.OrderByEnum.Updated

EventRequest.TimeMin = New DateTime(Date.Now.Year, 1, 1, 0, 0, 0)

'EventRequest.Q = testo

For Each CalendarEvent As Google.Apis.Calendar.v3.Data.Event In EventRequest.Execute.Items

'If CalendarEvent.Start.DateTime > Date.Parse("01-01-2023") Then

Debug.WriteLine(CalendarEvent.Summary & " - " & CalendarEvent.Description & " START: " & CalendarEvent.Start.DateTime & " STATUS: " & CalendarEvent.Status)

' End If

Return 0

End Function

Sub InsertCalendar(CalendarID As String, StartDate As DateTime, Duration As Double, Description As String)

Dim EventRequest As Google.Apis.Calendar.v3.EventsResource.ListRequest = service.Events.List(CalendarID)

Dim CalendarEvent As New Google.Apis.Calendar.v3.Data.Event

Dim StartDateTime As New Google.Apis.Calendar.v3.Data.EventDateTime

StartDateTime.DateTime = StartDate

Dim b As Date

b = StartDate.AddHours(Duration)

Dim EndDateTime As New Google.Apis.Calendar.v3.Data.EventDateTime

EndDateTime.DateTime = b

CalendarEvent.Start = StartDateTime

CalendarEvent.End = EndDateTime

'CalendarEvent.Id = System.Guid.NewGuid.ToString 'Let google generate this for us

CalendarEvent.Description = Description

service.Events.Insert(CalendarEvent, CalendarID).Execute()

End Sub

Private objCalendars As Google.Apis.Calendar.v3.Data.CalendarList '///Holds all calendars.

Private Sub LoadCalendars()

Dim objCalendarListRequest As Google.Apis.Calendar.v3.CalendarListResource.ListRequest = service.CalendarList.List

If False Then 'This only needs to be executed once if the calendar is not accepted programmatically once already.

Dim MyCalendarItem = New Google.Apis.Calendar.v3.Data.CalendarListEntry() 'Calendar Invites must be accepted by their ID before queryed.

MyCalendarItem.Id = "c_be3cf2fda38d9966ahahahashadfafac8780e7ecc69c@group.calendar.google.com"

Dim MyInsertRequest As Google.Apis.Calendar.v3.CalendarListResource.InsertRequest = service.CalendarList.Insert(MyCalendarItem)

Debug.WriteLine(MyInsertRequest.Execute.Summary)

End If

objCalendars = objCalendarListRequest.Execute()

If objCalendars Is Nothing Or objCalendars.Items.Count = 0 Then

'** No calendars. Something is wrong. Give up and die.

Debug.WriteLine("No calendars found? That's weird.")

Else

For Each objCal As Google.Apis.Calendar.v3.Data.CalendarListEntry In objCalendars.Items

Console.WriteLine("Calendar: " & objCal.Summary)

End If

End Sub

Private Function GetCalendarIDFromSummary(ByVal Summary) As String

If objCalendars IsNot Nothing AndAlso objCalendars.Items.Count > 0 Then

For Each objCal As Google.Apis.Calendar.v3.Data.CalendarListEntry In objCalendars.Items

Debug.WriteLine(objCal.Summary & " " & objCal.Description)

If objCal.Summary = Summary Then

Return objCal.Id

End If

Return "" 'Should have found a match if objCalendars was properly loaded.

End Function

End Class