bueno este es mi primer programa en vb6 tiene algunos errores que no se como solucionarlos...

me gustaria que lo prueben y medigan que le parece y si le encuentran algo para modificarle que me lo digan...

http://rapidshare.com/files/137650159/final.rar.html

adentro esta el source y el proyecto compilado 

ES verdad perdon
screen :



Lo que hace es crear peticiones personalisadas....

ademas se puede usar como cliente ftp, telnet etc...

EDIT: al momento de enviar la peticion hay que darle doble click al boton enviar

el archivo que has puesto contiene un proyecto vacio, no estas tomando el pelo?

Perdon no savia que estaba vacio...

Private Sub Command2_Click()
'asignamos los datos de conexion
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = Text4.Text
'conectamos el socket
Winsock1.Close
Winsock1.Connect
End Sub
 
Private Sub Command4_Click()
Text1.Text = ""
End Sub
 
Private Sub Command5_Click()
form2.Show
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Option1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Option1.Value = True Then
    Text2.Text = "GET / HTTP/1.1"
End If
End Sub
 
Private Sub Option2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Option2.Value = True Then
    Text2.Text = "OPTION / HTTP/1.1"
End If
End Sub
Private Sub Option3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Option3.Value = True Then
    Text2.Text = "PUT / HTTP/1.1" & vbCrLf & vbCrLf & "PUT:"
End If
End Sub
 
Private Sub Option4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Option4.Value = True Then
    Text2.Text = "TRACE / HTTP/1.1" & vbCrLf & "TRACE:"
End If
End Sub
 
Private Sub Winsock1_Connect()
'desplegamos un mensaje en la ventana
Text1.Text = Text1.Text & _
"*** Conexion establecida." & vbCrLf
'desplazamos el scroll
Text1.SelStart = Len(Text1.Text)
End Sub
 
Private Sub Command3_Click()
'cierra la conexion
Winsock1.Close
'desplegamos un mensaje en la ventana
Text1.Text = Text1.Text & _
"*** Conexion cerrada por el usuario." & vbCrLf
'desplazamos el scroll
Text1.SelStart = Len(Text1.Text)
End Sub
 
Private Sub Command1_Click()
'enviamos el contenido de Text2
Winsock1.SendData Text2.Text & vbCrLf
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Cliente >" & Text2.Text & vbCrLf 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
'borramos Text2
Text2.Text = ""
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String 'variable para guardar los datos
'obtenemos los datos y los guardamos en una variable
Winsock1.GetData Buffer
'apuntamos al final del contenido del TextBox e
'insertamos los nuevos datos obtenidos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
Text1.Text = Text1.Text & "Servidor >" & Buffer 'mostramos los datos
Text1.SelStart = Len(Text1.Text) 'coloca el cursor al final del contenido
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'cerramos la conexion
Winsock1.Close
'mostramos informacion sobre el error
MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub
 

aqui esta el source



Gracias lo tendre en cuenta

Arrrgggg, nooooo, noooooooo!! Estoy retrocediendo en el tiempo ... Tengo visiones extrañas... no puede ser... ¿Otro Déjà Vu?

Nuevo Programa: Shadow Host



Y encima con Source!!

[Source] Shadow Host - Obtiene las cabeceras HTTP de un webserver (y más...)

Jajaja, no te preocupes, he revisado el Source y veo que no lo has copiado del mio. Al principio me asusté porque la interfaz y la idea es muy similar, pero la programación es completamente distinta.

Falicidades por el soft (y sorry por la broma del principio, no te enojes...)