Mensajes

Buenas, estoy usando un MSflexgrid para ordenar datos...

tengo 4 columnas una que indica el numero que ingrese, otra que marca si es par o impar, y otra que marca la cantidad de veces que salio el numero...

Quisiera saber como hacer para que me diga cuantos pares e impares salieron...

Hasta ahora tengo este code:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub cmdGuardar_Click()
    Dim arch As Variant
    Dim i As Integer
   
    Set arch = CreateObject("Scripting.FileSystemObject").CreateTextFile _
        (App.Path & "\" & idtxt & ".txt", True)
       
    With flxLista
        For i = 1 To .Rows - 1
            arch.WriteLine ( _
            .TextMatrix(i, 0) & vbTab & _
            .TextMatrix(i, 1) & vbTab & _
            .TextMatrix(i, 2) & vbTab & _
            .TextMatrix(i, 3))
        Next
    End With
       
    arch.Close


End Sub



Private Sub cmdSalir_Click()
End
End Sub

Private Sub IniciarLista()
    Dim factor As Single

    With flxLista
        factor = (.Width - 360) / 10
   
        .Cols = 4
        .Rows = 1
       
       
        .ColWidth(0) = 4 * factor
        .ColWidth(1) = 1.5 * factor
        .ColWidth(2) = 1.5 * factor
        .ColWidth(3) = 3 * factor
       
        .TextMatrix(0, 0) = "Número"
        .TextMatrix(0, 1) = "Par"
        .TextMatrix(0, 2) = "Impar"
        .TextMatrix(0, 3) = "Cantidad"
    End With
End Sub

Private Sub cmdAgregar_Click()
    Dim pos As Integer

    If txtEntrada = "" Then Exit Sub
   
    With flxLista
        pos = Buscar(txtEntrada)
       
        If pos > 0 Then
            .TextMatrix(pos, 3) = Val(.TextMatrix(pos, 3)) + 1
        Else
            .AddItem txtEntrada
           
            If Val(txtEntrada) Mod 2 = 0 Then
                .TextMatrix(.Rows - 1, 1) = "X"
            Else
                .TextMatrix(.Rows - 1, 2) = "X"
            End If
           
            .TextMatrix(.Rows - 1, 3) = 1
        End If
    End With
End Sub


Private Sub Form_Load()
    IniciarLista
End Sub

' Busca 'valor' en la primera columna del flex y retorna la fila donde es hallado
Private Function Buscar(valor As String) As Integer
    Dim i As Integer
   
    With flxLista
        i = .Rows - 1
        Do While i > 0 And .TextMatrix(i, 0) <> valor
            i = i - 1
        Loop
    End With
   
    Buscar = i
End Function

Private Sub txtEntrada_KeyPress(KeyAscii As Integer)
    If KeyAscii = "13" Then
    cmdAgregar.SetFocus
End If
End Sub




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

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

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 

gracias loco...

gracias... lo que quiero hacer es mandar un get por el winsock y que la respuesta la ponga en un textbox...
Pero no se como hacer la parte de que el winsock ponga lo que recibe en el textbox...

como podria hacer? 

estoy tratando de aprender a usar el winsock, cuando quiero conectar y mandar la data me tira este error

protocolo o estado de conexión errorneo para la transaccion o peticion solicitada

Probe con diferentes aplcaciones pero siempre me pasa lo mismo

tengo un problema con este, no me deja compilar los proyectos...

Probe de grabar todo el proyecto, pero sigue sin dejarme compilar... ^^

que puede ser?

No se si esta ya, pero aqui lo pongo... Espero que sirva 

http://www.megaupload.com/?d=VDOBVZU2