Soyez le premier à donner votre avis sur cette source.
Vue 8 442 fois - Téléchargée 702 fois
Private Sub Form_Load() Winsock1.LocalPort = 80 Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim StrData As String, FNbr As Integer, Chr As String * 1, Str As String Winsock1.GetData StrData If Left(Mid(StrData, 6, InStr(6, StrData, " ") - 5), 25) = " " Then StrData = App.Path & "\index.html" Else StrData = Left(Mid(StrData, 6, InStr(6, StrData, " ") - 5), 25) If Dir(StrData) = "" Then Winsock1.SendData "<HTML><H1>404</h1></HTML>" Else FNbr = FreeFile Open StrData For Binary As FNbr Do While Not EOF(FNbr) Get #FNbr, , Chr Str = Str & Chr Loop Close FNbr Str = "HTTP/1.1 200 OK" & vbCrLf & vbCrLf & Str Winsock1.SendData Str End If End Sub Private Sub Winsock1_SendComplete() Winsock1.Close Winsock1.Listen End Sub
Il suffit de créer un groupe de contrôles winsock qui vont se charger de papoter pendant que un seul, toujours le même s'occupe d'écouter ! pas con hein !
Comme ça on n'arrête jamais d'écouter et dès qu'une requête arrive, le winsock qui écoute chope le premier contrôle du groupe qui glande et lui fait accepter la requête !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.