Menú

Mostrar Mensajes

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ú

Mensajes - WarGhost

#301
haber Visual C++ 2005 Express ¿?
o Visual Basic 2005 Express ¿?

#302
claro que se puede mira este código que acabo de hacer, ya se que es básico que por lo menos... :

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


;D Salu2
#303
Programación Visual Basic / Re: Aporto un Code
19 Noviembre 2006, 16:45 PM
el código de Robokop esta muy bien pero se le debería poner un Sleep sino se llega a petar el programa.
#304
no hace falta que lo pongas en los dos por ejemplo:

el form1 es el index por llamarlo así que es el form que tiene todo.

vale el form2 es el chat pues lo único que tienes que hacer es:

form1:
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


form2:
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




;D Salu2
#305
pero aber donde esta el winsock en el form1 o 2 ¿?
#306
te lo puedes bajar desde cualquier p2p incluso esta en DD y también en p2m y durie.

;D Salu2
#307
http://www.youtube.com/watch?v=4CTy7Nx0oPI

Os invito a que echeis un ojo al video y despues leais el siguiente párrafo.

¿Por qué? Mientras la gente ha estado horas, incluso días en una cola para gastarse sus ahorros en la PS3, otros la compran y se van directamente a destrozarla con una maza. ¿El resultado? Los 600 dólares más tirados a la basura del mundo.

Y es que a los que les sobra de un lado, les falta de otro.
#308
alomejor es porque cierrar el form donde esta el ws.

explicate algo mejor porfa
#309
Programación Visual Basic / Re: Aporto un Code
18 Noviembre 2006, 21:51 PM
por lo menos a aportado algo, pero hay que decir que usar los controles de fichero de VB no es muy buena idea  :-\
#310
Programación Visual Basic / Re: de un txt a un list
18 Noviembre 2006, 19:41 PM
es facil mira a los textbox los llamas txt a todos a hacemos unos arrays.

Private Sub Command1_Click()
Dim i As Long
List1.Clear
For i = 0 To 9
List1.AddItem Txt(i)
Next i
End Sub