I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og 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.