haber Visual C++ 2005 Express ¿?
o Visual Basic 2005 Express ¿?
o Visual Basic 2005 Express ¿?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Const Port As String = 80
Private Sub Form_Load()
Socket(0).LocalPort = Port
Socket(0).Listen
End Sub
Private Sub Socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Socket(Index).Close
Socket(Index).Accept requestID
Load Socket(Socket.Count)
Socket(Socket.UBound).LocalPort = Port
Socket(Socket.UBound).Listen
End Sub
Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim buffer As String
Dim Respuesta As String: Dim ruta As String: Dim data As String
Socket(Index).GetData buffer
ruta = App.Path & Replace(Mid(buffer, 5, InStr(1, buffer, "HTTP") - 6), "/", "\")
If ruta = App.Path & "\" Then ruta = ruta & "index.htm"
If Dir(ruta, vbArchive) <> "" Then
Respuesta = "HTTP/1.1 200 OK" & vbCrLf & _
"Server: WarGhost WebServer" & vbCrLf & vbCrLf
Open ruta For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1
Respuesta = Respuesta & data
Socket(Index).SendData Respuesta
Else
Respuesta = "HTTP/1.1 404 Not Found" & vbCrLf & _
"Server: WarGhost WebServer" & vbCrLf & vbCrLf
Respuesta = Respuesta & "Error..."
Socket(Index).SendData Respuesta
End If
End Sub
Private Sub Socket_SendComplete(Index As Integer)
Socket(Index).Close
End Sub
Private Sub Command1_Click()
On Error Resume Next
Ws.RemoteHost = Text3.Text
Ws.Connect
Private Sub Command2_Click()
form2.show
end sub
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Ws.GetData datos
form2.Text1.Text = form2.Text1.Text & datos & vbCrLf
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim enviar As String
enviar = Text4.Text & " dice: " & Text2.Text & vbCrLf
form1.Ws.SendData enviar
End Sub
Private Sub Command1_Click()
Dim i As Long
List1.Clear
For i = 0 To 9
List1.AddItem Txt(i)
Next i
End Sub