Foro de elhacker.net

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Select Case Left(datos, 3)
Case "GET"
Dim n_File As Integer
Dim File As String
Dim Contenido As String
n_File = FreeFile
[b]File = "C:\AppServ\www\Nueva Web\index.htm"[/b]
Open File For Input As n_File
pro = Input$(LOF(n_File), #n_File)
Close n_File
Winsock1.SendData pro
End Select
End Sub

A veces me manda este:
[code]
GET / HTTP/1.1
Accept: */*
Accept-Language: es
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MEGAUPLOAD 2.0; .NET CLR 2.0.50727)
Host: MI IP
Connection: Keep-Alive

GET /imagenes/banner.jpg HTTP/1.1
Accept: */*
Referer: http://201.249.106.36/
Accept-Language: es
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MEGAUPLOAD 2.0; .NET CLR 2.0.50727)
Host: MI IP
Connection: Keep-Alive

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text2.Text = datos
Select Case Left(datos, 3)
Case "GET"
n_File = FreeFile
File = "C:\appserv\www\Nueva Web"
FileO = "C:\AppServ\www\Nueva Web\index.htm"
Open FileO For Input As n_File
cont = Input$(LOF(n_File), #n_File)
Close n_File
Winsock1.SendData cont
File1 = Split(Text2.Text, " ")
File2 = File1(1)
File3 = File & Replace(File1(1), "/", "\")
Text3.Text = File3
End Select
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Dato as string


WS.GetData Dato

Data = Data & Dato


If InStr(Data, vbCrLf & vbCrLf) Then 'significa que termino la cabesera

Ret = InStr(Data, "GET /")
If Ret Then
FileRequest = Mid(Data, 6, InStr(Data, "HTTP/1.1" & vbCrLf) - 7)

    If FileRequest = "" Then
        FileRequest = App.Path & "\Index.html"
    Else
        'tu sabras que mandas
    End If
End If

end if