HTTPspectator :) beta

[_RaSH_]

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 

[???]

Mmmm.. y que se supone que hace el programa...
Es decir... seria conveniente que pongas unas Screenshots y una descripcion
para animarse a descargarlo...

[_RaSH_]

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

[‭‭‭‭jackl007]

soporta https?

[‭‭‭‭jackl007]

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

[???]

soporta https?

Vamos que el tio ha dicho que es su primer programa en VB... No lo presiones..

Y por cierto.. esta muy bien para ser tu primer programa..
Y pues... si quieres mejorarlo hechale un ojo al Acunetix Vulnerability Scaner...

Y asi puedes sacar un par de ideas y modificarlo para que sirva como un mini Scaner.. xD

[_RaSH_]

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

Perdon no savia que estaba vacio...

Código (vb) [Seleccionar] Expandir

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

soporta https?

Vamos que el tio ha dicho que es su primer programa en VB... No lo presiones..

Y por cierto.. esta muy bien para ser tu primer programa..
Y pues... si quieres mejorarlo hechale un ojo al Acunetix Vulnerability Scaner...

Y asi puedes sacar un par de ideas y modificarlo para que sirva como un mini Scaner.. xD

Gracias lo tendre en cuenta

[HaDeS, -]

Si te interesa podes ver este link: http://foro.elhacker.net/programacion_vb/winsock_protocolos_mas_usados_version_1_http-t186798.0.html
Saludos

[Mad Antrax]

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...)

[_RaSH_]

todo bien

Ya le mejore algunas cosas... aca dejo la versión 2

http://img384.imageshack.us/my.php?image=muestra1ln8.gif
http://img170.imageshack.us/my.php?image=muestra2ik9.gif

EL source no lo pongo por que no se por que el vb6 me guarda los proyectos vacios :S
en cuanto lo soluciono lo subo :b

http://rapidshare.com/files/138762995/HTTPspectator_v1.0_BETA_by_pOlk22.rar.html