Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.tbLog.Clear()
    Dim zaehler As Integer
    Do Until (zaehler = 20)
        Dim antwortseite As String
        antwortseite = getResults("http://localhost/antiquartwo/test-params.php", "field-keywords=ASP.NET 2.0")
        ' todo: verarbeiten der antwortseite
        ' anzeige der response in der GUI
        Me.tbLog.Text &= antwortseite
        zaehler = zaehler + 1
    Loop
    Me.Refresh()
End Sub

Function getResults(ByVal portalURI As String, ByVal suchbegriff As String) As String

       Dim uri As New Uri(portalURI)
       'Dim data As String = "field-keywords=ASP.NET 2.0"
       Dim data As String = suchbegriff
       Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
       request.Method = WebRequestMethods.Http.Post
       request.ContentLength = data.Length
       request.ContentType = "application/x-www-form-urlencoded"
       Dim writer As New StreamWriter(request.GetRequestStream)
       writer.Write(data)
       writer.Close()
       Dim oResponse As HttpWebResponse = request.GetResponse()
       Dim reader As New StreamReader(oResponse.GetResponseStream())
       Dim tmp As String = reader.ReadToEnd()
       oResponse.Close()
       'Response.Write(tmp)
       getResults = tmp
   End Function

Imports System.Management
 
Public Class Form2
 
    Private Sub Button1_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs _
    ) Handles Button1.Click
 
        Dim ms As New ManagementScope("\root\cimv2")
        Dim oq As New ObjectQuery("Select * from Win32_Session")
        Dim query As New ManagementObjectSearcher(ms, oq)
        Dim queryCollection As ManagementObjectCollection = query.[Get]()
 
        For Each mo As ManagementObject In queryCollection
            If mo("LogonType").ToString().Equals("2") Then
                '  2 - for logged on User
                MessageBox.Show("Started Time: " + mo("StartTime").ToString)
            End If
        Next
    End Sub
 
End Class