I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Imports System Imports System.IO Imports System.Net Imports System.Net.Sockets Imports System.Threading
Public Class HttpServer Public Shared Sub Main(ByVal args As String()) Dim server As TcpListener = New TcpListener(IPAddress.Any, 80) server.Start While True Try Dim client As TcpClient = server.AcceptTcpClient Dim rdr As StreamReader = New StreamReader(client.GetStream) Dim wrt As StreamWriter = New StreamWriter(client.GetStream) Dim request As String = rdr.ReadLine Dim path As String = request.Split(" ".ToCharArray)(1) Dim line As String line = rdr.ReadLine While line <> "" line = rdr.ReadLine End While wrt.WriteLine("HTTP/1.1 200 OK") wrt.WriteLine("Content-Type: text/plain") wrt.WriteLine wrt.WriteLine("Du bad om " + path) wrt.Flush rdr.Close wrt.Close client.Close Catch e As Exception Console.WriteLine(e) End Try End While server.Stop End Sub End Class
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.