elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 20
1  Programación / Programación Visual Basic / Leer Captcha en: 16 Marzo 2012, 17:12 pm
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.
2  Programación / Programación Visual Basic / Re: Valium 1.0 [Manda a tu pc a dormir] en: 21 Julio 2011, 18:17 pm
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...
3  Programación / Programación Visual Basic / Re: Handle al pasar el Mouse por Objeto en: 21 Junio 2011, 16:12 pm
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...
4  Programación / Programación Visual Basic / Handle al pasar el Mouse por Objeto en: 20 Junio 2011, 23:24 pm
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...
5  Programación / Programación Visual Basic / Re: [Navidad] Feliz Navidad en: 27 Diciembre 2010, 16:41 pm
Feliz Despues Navidad...  :P
6  Programación / Programación Visual Basic / Re: Generar barcode con visual basic en: 19 Octubre 2010, 22:24 pm
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
  1. Private Sub DrawBarcode(ByVal bc_string As String, sDescripcion As String, VLPrecio As String, obj As Control)
  2.  
  3.    Dim xpos!, y1!, y2!, dw%, th!, tw, new_string$
  4.    Dim bc(90) As String
  5.    Dim sAux As String
  6.    Dim I As Byte
  7.  
  8.    bc(1) = "1 1221" 'pre-amble
  9.    bc(2) = "1 1221" 'post-amble
  10.    bc(48) = "11 221" 'dígitos
  11.    bc(49) = "21 112"
  12.    bc(50) = "12 112"
  13.    bc(51) = "22 111"
  14.    bc(52) = "11 212"
  15.    bc(53) = "21 211"
  16.    bc(54) = "12 211"
  17.    bc(55) = "11 122"
  18.    bc(56) = "21 121"
  19.    bc(57) = "12 121"
  20.  
  21.    'Letras Mayúsculas
  22.    bc(65) = "211 12" 'A
  23.    bc(66) = "121 12" 'B
  24.    bc(67) = "221 11" 'C
  25.    bc(68) = "112 12" 'D
  26.    bc(69) = "212 11" 'E
  27.    bc(70) = "122 11" 'F
  28.    bc(71) = "111 22" 'G
  29.    bc(72) = "211 21" 'H
  30.    bc(73) = "121 21" 'I
  31.    bc(74) = "112 21" 'J
  32.    bc(75) = "2111 2" 'K
  33.    bc(76) = "1211 2" 'L
  34.    bc(77) = "2211 1" 'M
  35.    bc(78) = "1121 2" 'N
  36.    bc(79) = "2121 1" 'O
  37.    bc(80) = "1221 1" 'P
  38.    bc(81) = "1112 2" 'Q
  39.    bc(82) = "2112 1" 'R
  40.    bc(83) = "1212 1" 'S
  41.    bc(84) = "1122 1" 'T
  42.    bc(85) = "2 1112" 'U
  43.    bc(86) = "1 2112" 'V
  44.    bc(87) = "2 2111" 'W
  45.    bc(88) = "1 1212" 'X
  46.    bc(89) = "2 1211" 'Y
  47.    bc(90) = "1 2211" 'Z
  48.  
  49.    'Misceláneos Caracteres
  50.    bc(32) = "1 2121" 'Espacio
  51.    bc(35) = "" '# no se puede realizar
  52.    bc(36) = "1 1 1 11" '$
  53.    bc(37) = "11 1 1 1" '%
  54.    bc(43) = "1 11 1 1" '+
  55.    bc(45) = "1 1122" '-
  56.    bc(47) = "1 1 11 1" '/
  57.    bc(46) = "2 1121" '.
  58.    bc(64) = "" '@ no se puede realizar
  59.    bc(65) = "1 1221" '*
  60.  
  61.    bc_string = UCase(bc_string) 'Convertir a mayúsculas
  62.  
  63.    'Dimensiones
  64.    obj.ScaleMode = 2 'Pixeles
  65.    obj.Cls
  66.    obj.Picture = Nothing
  67.    dw = CInt(obj.ScaleHeight / 40) 'Espacio entre barras
  68.    If dw < 1 Then dw = 1
  69.    th = obj.TextHeight(bc_string) 'Alto texto
  70.    tw = obj.TextWidth(bc_string) 'Ancho texto
  71.    new_string = Chr$(1) & bc_string & Chr$(2) 'Agregar pre-amble, post-amble
  72.    y1 = obj.ScaleTop + 12
  73.    y2 = obj.ScaleTop + obj.ScaleHeight - 1.5 * th
  74.    obj.Width = 1.1 * Len(new_string) * (15 * dw) * obj.Width / obj.ScaleWidth
  75.  
  76.    'Dibujar cada caracter en el string barcode
  77.    xpos = obj.ScaleLeft
  78.    For n = 1 To Len(new_string)
  79.            c = Asc(Mid(new_string, n, 1))
  80.            If c > 90 Then c = 0
  81.            bc_pattern$ = bc(c)
  82.            'Dibujar cada barra
  83.            For I = 1 To Len(bc_pattern$)
  84.                Select Case Mid(bc_pattern$, I, 1)
  85.                Case " "
  86.                    'Espacio
  87.                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
  88.                    xpos = xpos + dw
  89.                Case "1"
  90.                    'Espacio
  91.                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
  92.                    xpos = xpos + dw
  93.                    'Línea
  94.                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &H0&, BF
  95.                    xpos = xpos + dw
  96.                Case "2"
  97.                    'Espacio
  98.                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
  99.                    xpos = xpos + dw
  100.                    'Ancho línea
  101.                    obj.Line (xpos, y1)-(xpos + 2 * dw, y2), &H0&, BF
  102.                    xpos = xpos + 2 * dw
  103.                End Select
  104.            Next
  105.    Next
  106.  
  107.    'Mas espacio
  108.    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
  109.    xpos = xpos + dw
  110.  
  111.    'Medida final y tamaño
  112.    obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth
  113.    obj.CurrentX = 1
  114.    obj.CurrentY = 1
  115.    If VLPrecio = "0.00" Then VLPrecio = ""
  116.    If xpos - obj.TextWidth(VLPrecio) - 10 < obj.TextWidth(sDescripcion) Then
  117.        sAux = ""
  118.        For I = 1 To Len(sDescripcion)
  119.            If xpos - obj.TextWidth(VLPrecio) - 10 < obj.TextWidth(sAux) Then
  120.                Exit For
  121.            Else
  122.                sAux = sAux & Mid(sDescripcion, I, 1)
  123.            End If
  124.        Next I
  125.        obj.Print sAux
  126.    Else
  127.        obj.Print sDescripcion
  128.    End If
  129.    obj.CurrentX = xpos - obj.TextWidth(VLPrecio)
  130.    obj.CurrentY = 1
  131.    obj.Print VLPrecio
  132.    obj.CurrentX = (obj.ScaleWidth - tw) / 2
  133.    obj.CurrentY = y2 + 0.25 * th
  134.    obj.Print bc_string
  135.  
  136.    'Copiar a clipboard
  137.    obj.Picture = obj.Image
  138.    Clipboard.Clear
  139.    Clipboard.SetData obj.Image, 2
  140.  
  141. End Sub
  142. Private Sub Command1_Click()
  143.    Call DrawBarcode(Trim("123456"), Trim("Cascara de Mango"), "0.00", Picture1)
  144. End Sub
  145.  

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...
7  Programación / Programación Visual Basic / Re: Consulta por grupos en: 6 Octubre 2010, 20:39 pm
Pos haste una consulta filtrando por dominios con group by y las facturas le das un maximo o minimo dependiendo le k te interese
8  Programación / Programación Visual Basic / Re: [RETO] Comprobar si un numero dado es un numero de la suerte en: 15 Agosto 2010, 01:08 am
@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¡! :P

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
9  Programación / Programación Visual Basic / Re: [RETO] Comprobar si un numero dado es un numero de la suerte en: 14 Agosto 2010, 18:47 pm
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
  1. Public Function LuckyNumber(ByVal N As Long) As Boolean
  2.        Dim ANumero()    As Long
  3.        Dim AText1()       As Long
  4.        Dim i                   As Integer
  5.        Dim X                  As Integer        
  6.  
  7.        i = 1
  8.        X = 1
  9.        If N Mod 2 = 0 Then Exit Function  
  10.  
  11.        For i = 1 To N Step 2
  12.           ANumero(X) = i
  13.           X = X + 1
  14.        Next
  15.        For i = 0 To UBound(ANumero) Step 3
  16.            If ANumero(i) = N Then Exit Function
  17.            ANumero(i) = 0
  18.        Next
  19.        X = 1
  20.        For i = 1 To UBound(ANumero)
  21.             If ANumero(i) <> 0 Then
  22.                AText1(X) = ANumero(i)
  23.                X = X + 1
  24.             End If
  25.        Next
  26.        For i = 0 To UBound(AText1) Step 7
  27.            If AText1(i) = N Then Exit Function            
  28.        Next
  29.  
  30.        LuckyNumber = True
  31.  
  32. End Function


No se si es muy rapida pero funciona bien  ;D

10  Programación / Programación Visual Basic / Re: [Ayuda] Necesito saber como resolver este problema en: 9 Agosto 2010, 14:44 pm
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..  :P solo es inmaginacion y busqueda
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 20
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines