🚀 go-pugleaf

Hey
Ik ben in vb6 met winsock aan het experimenteren.  Voor de lol heb ik een
HTTP servertje ineengebokst,  het is gewoon een winsock server op poort 80
die als er data wordt ontvangen op de poort, een string terugstuurt.  Het
heeft gewerkt, maar momenteel werkt het niet meer, heeft iemand een idee van
wat er mis is?

benodigd:
leeg form met winsock control met naam "WinS"
code:

Option Explicit
Dim Tekst, Temp As String
Dim nfile As Single

Private Sub Form_Load()
nfile = FreeFile

Open "c:\thomas\home.html" For Input As nfile
Temp = Input(LOF(nfile), nfile)
Tekst = "HTTP/1.1 200 OK" & vbCrLf & "Connection: Close" & vbCrLf &
"Content-Type: text/html" & vbCrLf & "Content-Lenght: " & Len(Temp) & Temp
Close nfile

WinS.LocalPort = 80
WinS.Listen

End Sub

Private Sub WinS_ConnectionRequest(ByVal requestID As Long)
If WinS.State <> sckClosed Then
    WinS.Close
End If
WinS.Accept requestID
End Sub


Private Sub WinS_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinS.GetData Data
WinS.SendData Tekst
Debug.Print Data
Debug.Print Tekst
WinS.Close
WinS.Listen
End Sub

bvbd. thomas

--
=-==========|Thomas Langewouters|===============-=
------> Hobyist & Student Electronics <-----------
-------> Lives in Herentals, Belgium <------------
> WEBSITE: http://home.pi.be/~p4u09003/home.html <