Mensajes

Hola chicos se me a presentado un problemin les cuebto quiero leer un captcha de una web desde mi programa en vb y pasarlo a un text y no me ha salido bajo la imagen y todo pero no e logrado sacar el numero o letra..

Si alguien me da una ayuda...

Saludossss.

Una vez hice algo parecido con todo y inicio de sección aunk tubieras varios user con pass y todo solo le decias con cual kerias entrar incluso convalidaba el user si existia y si el pass era correcto me kede tokeado en revivirla osea si esta en stand by o incluso apagada desppertarla entiendes trate un par de veces me dio peresa y lo tire jeje pero me gustaba para programarlos para los server de mis customer...

Saludos...

Gracias chicos por el code lo probare,, se que con el Spy++ pero en este caso no me esta dando lo k nesecito por eso pense k con algun code lo podria conseguir probare con este code y comento vale

Saludos...

Saludos nose e googleado un poco pero no logro captar esto quiero conocer el handle de un objeto de cualquier programa que se este ejcutando solo pasandole el mouse por encima alguien puede tirarme una ayudadita

Saludos...

Feliz Despues Navidad... 

Una vez encontre el un code y lo tire en mi libreria nunca la probe y no c si es EAN13 pero talves te ayude chekalo y dejas saber

Código (vb) [Seleccionar] Expandir


Private Sub DrawBarcode(ByVal bc_string As String, sDescripcion As String, VLPrecio As String, obj As Control)

    Dim xpos!, y1!, y2!, dw%, th!, tw, new_string$
    Dim bc(90) As String
    Dim sAux As String
    Dim I As Byte
   
    bc(1) = "1 1221" 'pre-amble
    bc(2) = "1 1221" 'post-amble
    bc(48) = "11 221" 'dígitos
    bc(49) = "21 112"
    bc(50) = "12 112"
    bc(51) = "22 111"
    bc(52) = "11 212"
    bc(53) = "21 211"
    bc(54) = "12 211"
    bc(55) = "11 122"
    bc(56) = "21 121"
    bc(57) = "12 121"
   
    'Letras Mayúsculas
    bc(65) = "211 12" 'A
    bc(66) = "121 12" 'B
    bc(67) = "221 11" 'C
    bc(68) = "112 12" 'D
    bc(69) = "212 11" 'E
    bc(70) = "122 11" 'F
    bc(71) = "111 22" 'G
    bc(72) = "211 21" 'H
    bc(73) = "121 21" 'I
    bc(74) = "112 21" 'J
    bc(75) = "2111 2" 'K
    bc(76) = "1211 2" 'L
    bc(77) = "2211 1" 'M
    bc(78) = "1121 2" 'N
    bc(79) = "2121 1" 'O
    bc(80) = "1221 1" 'P
    bc(81) = "1112 2" 'Q
    bc(82) = "2112 1" 'R
    bc(83) = "1212 1" 'S
    bc(84) = "1122 1" 'T
    bc(85) = "2 1112" 'U
    bc(86) = "1 2112" 'V
    bc(87) = "2 2111" 'W
    bc(88) = "1 1212" 'X
    bc(89) = "2 1211" 'Y
    bc(90) = "1 2211" 'Z
   
    'Misceláneos Caracteres
    bc(32) = "1 2121" 'Espacio
    bc(35) = "" '# no se puede realizar
    bc(36) = "1 1 1 11" '$
    bc(37) = "11 1 1 1" '%
    bc(43) = "1 11 1 1" '+
    bc(45) = "1 1122" '-
    bc(47) = "1 1 11 1" '/
    bc(46) = "2 1121" '.
    bc(64) = "" '@ no se puede realizar
    bc(65) = "1 1221" '*
   
    bc_string = UCase(bc_string) 'Convertir a mayúsculas
   
    'Dimensiones
    obj.ScaleMode = 2 'Pixeles
    obj.Cls
    obj.Picture = Nothing
    dw = CInt(obj.ScaleHeight / 40) 'Espacio entre barras
    If dw < 1 Then dw = 1
    th = obj.TextHeight(bc_string) 'Alto texto
    tw = obj.TextWidth(bc_string) 'Ancho texto
    new_string = Chr$(1) & bc_string & Chr$(2) 'Agregar pre-amble, post-amble
    y1 = obj.ScaleTop + 12
    y2 = obj.ScaleTop + obj.ScaleHeight - 1.5 * th
    obj.Width = 1.1 * Len(new_string) * (15 * dw) * obj.Width / obj.ScaleWidth
   
    'Dibujar cada caracter en el string barcode
    xpos = obj.ScaleLeft
    For n = 1 To Len(new_string)
            c = Asc(Mid(new_string, n, 1))
            If c > 90 Then c = 0
            bc_pattern$ = bc(c)
            'Dibujar cada barra
            For I = 1 To Len(bc_pattern$)
                Select Case Mid(bc_pattern$, I, 1)
                Case " "
                    'Espacio
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
                    xpos = xpos + dw
                Case "1"
                    'Espacio
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
                    xpos = xpos + dw
                    'Línea
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &H0&, BF
                    xpos = xpos + dw
                Case "2"
                    'Espacio
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
                    xpos = xpos + dw
                    'Ancho línea
                    obj.Line (xpos, y1)-(xpos + 2 * dw, y2), &H0&, BF
                    xpos = xpos + 2 * dw
                End Select
            Next
    Next
   
    'Mas espacio
    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
    xpos = xpos + dw
   
    'Medida final y tamaño
    obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth
    obj.CurrentX = 1
    obj.CurrentY = 1
    If VLPrecio = "0.00" Then VLPrecio = ""
    If xpos - obj.TextWidth(VLPrecio) - 10 < obj.TextWidth(sDescripcion) Then
        sAux = ""
        For I = 1 To Len(sDescripcion)
            If xpos - obj.TextWidth(VLPrecio) - 10 < obj.TextWidth(sAux) Then
                Exit For
            Else
                sAux = sAux & Mid(sDescripcion, I, 1)
            End If
        Next I
        obj.Print sAux
    Else
        obj.Print sDescripcion
    End If
    obj.CurrentX = xpos - obj.TextWidth(VLPrecio)
    obj.CurrentY = 1
    obj.Print VLPrecio
    obj.CurrentX = (obj.ScaleWidth - tw) / 2
    obj.CurrentY = y2 + 0.25 * th
    obj.Print bc_string
   
    'Copiar a clipboard
    obj.Picture = obj.Image
    Clipboard.Clear
    Clipboard.SetData obj.Image, 2

End Sub
Private Sub Command1_Click()
    Call DrawBarcode(Trim("123456"), Trim("Cascara de Mango"), "0.00", Picture1)
End Sub


Yo uso un lenguaje llamado Clarion y solo le pones el font del bar code que quieres y listo y tambien cristal report tambien le das el font y listo yo tengo un soft para colegios y el carnet lo genero con un font en cristal y listo..

Saludos...

Pos haste una consulta filtrando por dominios con group by y las facturas le das un maximo o minimo dependiendo le k te interese

[@Angeldj27]

@Angeldj27
No funciona bien me da varios errores en las matrices, y solo haces tres bucles para quitar numeros el resultado no sera correcto, leete bien el link que puso karcrack al principio...

DoEvents¡!

Talvez hay que definirle un numero fijo a la dimencion del array o matrix pero es raro me funciona bien y con lo k dices, voy eliminando numeros como dice el link de karcrack y chekeo la matriz y si el numero no esta hay se supone k no es numero de la suerte es simple logica ami me funciona de 10

No se si es una forma chapucera de hacerlo pero asi de una forma rapido fue k se me ocurrio con arrays se k ess mas facil con los collection pero esa es la norma con los arrays pense k con un par de arrays anidados se podia como hice algo en la escuela una vez pero no tenia vastante tiempo haci k esta es la forma mas facil k pude hacerlo pork no tengo destrezas con usar datos en memoria jeje

Código (vb) [Seleccionar] Expandir

Public Function LuckyNumber(ByVal N As Long) As Boolean
       Dim ANumero()    As Long
       Dim AText1()       As Long
       Dim i                   As Integer
       Dim X                  As Integer        
       
       i = 1
       X = 1
       If N Mod 2 = 0 Then Exit Function  

       For i = 1 To N Step 2
          ANumero(X) = i
          X = X + 1
       Next
       For i = 0 To UBound(ANumero) Step 3
           If ANumero(i) = N Then Exit Function
           ANumero(i) = 0
       Next
       X = 1
       For i = 1 To UBound(ANumero)
            If ANumero(i) <> 0 Then
               AText1(X) = ANumero(i)
               X = X + 1
            End If
       Next
       For i = 0 To UBound(AText1) Step 7
           If AText1(i) = N Then Exit Function            
       Next
       
       LuckyNumber = True
       
End Function

No se si es muy rapida pero funciona bien  

Creo que sebaneo postio algo de combinaciones no hace mucho tiempo solo busca la combinacion y los comparas en todo caso hasta te sale con if anidado eso creo..  solo es inmaginacion y busqueda