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

 

 


Tema destacado:


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 128
81  Programación / Programación Visual Basic / Re: Descargar archivo desde vb6 en: 4 Junio 2012, 23:28 pm
Código
  1. '
  2. ' ///////////////////////////////////////////////////////////////////////////
  3. ' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )  
  4. ' //                                                   
  5. ' // Web: http://InfrAngeluX.Sytes.Net/                
  6. ' //                                                        
  7. ' // |-> Pueden Distribuir Este Código siempre y cuando       
  8. ' // no se eliminen los créditos originales de este código     
  9. ' // No importando que sea modificado/editado o engrandecido   
  10. ' // o achicado, si es en base a este código                 
  11. ' //////////////////////////////////////////////////////////////////////////
  12. Option Explicit
  13. Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
  14. On Error GoTo 1:
  15. Dim xml                     As Object
  16. Dim adoStream               As Object
  17.     Set xml = CreateObject("Microsoft.XMLHTTP")
  18.     Set adoStream = CreateObject("Adodb.Stream")
  19.     Call xml.Open("GET", strDowload, 0)
  20.     Call xml.Send
  21.     adoStream.Type = 1
  22.     Call adoStream.Open
  23.     Call adoStream.write(xml.responseBody)
  24.     Call adoStream.SaveToFile(SaveOn, 2)
  25.     Call adoStream.Close
  26.     DescargarArchivo = 1
  27. Exit Function
  28. 1:
  29. End Function
  30.  

DoEvents! :P
82  Programación / Programación Visual Basic / Re: Detectar movimientos de piezas en tablero de ajedrez. en: 1 Junio 2012, 20:29 pm
Sí se puede hacer lo que buscas, y sería relativamente sencillo, el problema que tuvimos en el proyecto en el que participé con BlackZeroX y LeandroA fue que lo que queríamos detectar eran 6 colores diferentes, ademas cada casilla estaba animada, había brillos y demás, al final tuvimos que abandonar porque confundía el marrón con el rojo, en fin... un lío.

Pero por lo que veo, en tu caso sólo vas a necesitar detectar cuatro colores planos diferentes, eso son buenas noticias.
Debes hacer una plantilla que la encaje el usuario encima del tablero y que lea los pixeles y determine la figura en cada caso. No te hace falta leer todo los píxels, igual con 15 te vale , por ejemplo.

Según el vídeo que pones yo creo que lo que hace es leer valores del proceso, porque no usa ninguna plantilla. Yo creo que sería lo mejor, o eso, o como dice MCKSys Argentina:
Citar
accediendo al texto que muestra las movidas realizadas

DoEvents! :P
83  Programación / Programación Visual Basic / Re: [SRC] cCollectionEx.cls en: 1 Junio 2012, 13:41 pm
Clase actualizada y mejorada, en unas horas actualizo los resultados de la diferencia de velocidad con respecto a la nativa de vb. :D

DoEvents! :P
84  Programación / Programación Visual Basic / Re: [VB6] cSet (Orientación a objetos) en: 1 Junio 2012, 13:02 pm
@Slek Hacker
Mira esto que hice hace tiempo:
cCollectionEx.cls
Y aún se puede mejorar mucho, que conste. :rolleyes:

Cita de: raul338 en 31 Mayo 2012, 22:26 pm
No es recomendable aprender POO con vb6  :silbar:
Qué gran verdad, sólo te vale para hacerte una lejana idea. :-\

DoEvents! :P
85  Media / Diseño Gráfico / ¿Cómo crear cómics? en: 24 Mayo 2012, 16:48 pm
Me gustaría que me aconsejarais acerca de algún programa que facilite la creación de cómics.
La idea que tengo en mente es hacer algo de este estilo:


Gracias. ;-)

DoEvents! :P
86  Programación / Programación Visual Basic / Re: [RETO] Generador de DTD a partir de XML en: 23 Mayo 2012, 20:08 pm
Ya he completado la información del reto. ;-)

PD: Va a ser más lioso de lo que creía. :rolleyes:

DoEvents! :P
87  Programación / Programación Visual Basic / [RETO] Generador de DTD a partir de XML en: 23 Mayo 2012, 13:00 pm
Pues eso, un generador de DTD's a partir de un XML. Los que he visto por la web son muy malos, a ver si somos capaces de hacer algo decente.  :silbar:


Información:
Código:
http://es.wikipedia.org/wiki/Definici%C3%B3n_de_tipo_de_documento
http://www.w3schools.com/dtd/dtd_intro.asp

    Ejemplo:

    Agregamos un TextBox con Multiline=True y le ponemos esto:
    Código:
    <?xml version="1.0"?>
    <!DOCTYPE DatabaseInventory SYSTEM "DatabaseInventory.dtd">

    <DatabaseInventory>

      <DatabaseName>
        <GlobalDatabaseName>production.iDevelopment.info</GlobalDatabaseName>
        <OracleSID>production</OracleSID>
        <DatabaseDomain>iDevelopment.info</DatabaseDomain>
        <Administrator EmailAlias="jhunter" Extension="6007">Jeffrey Hunter</Administrator>
        <DatabaseAttributes Type="Production" Version="9i"/>
        <Comments>
          The following database should be considered the most stable for
          up-to-date data. The backup strategy includes running the database
          in Archive Log Mode and performing nightly backups. All new accounts
          need to be approved by the DBA Group before being created.
        </Comments>
      </DatabaseName>

      <DatabaseName>
        <GlobalDatabaseName>development.iDevelopment.info</GlobalDatabaseName>
        <OracleSID>development</OracleSID>
        <DatabaseDomain>iDevelopment.info</DatabaseDomain>
        <Administrator EmailAlias="jhunter" Extension="6007">Jeffrey Hunter</Administrator>
        <Administrator EmailAlias="mhunter" Extension="6008">Melody Hunter</Administrator>
        <DatabaseAttributes Type="Development" Version="9i"/>
        <Comments>
          The following database should contain all hosted applications. Production
          data will be exported on a weekly basis to ensure all development environments
          have stable and current data.
        </Comments>
      </DatabaseName>

      <DatabaseName>
        <GlobalDatabaseName>testing.iDevelopment.info</GlobalDatabaseName>
        <OracleSID>testing</OracleSID>
        <DatabaseDomain>iDevelopment.info</DatabaseDomain>
        <Administrator EmailAlias="jhunter" Extension="6007">Jeffrey Hunter</Administrator>
        <Administrator EmailAlias="mhunter" Extension="6008">Melody Hunter</Administrator>
        <Administrator EmailAlias="ahunter">Alex Hunter</Administrator>
        <DatabaseAttributes Type="Testing" Version="9i"/>
        <Comments>
          The following database will host more than half of the testing
          for our hosting environment.
        </Comments>
      </DatabaseName>

    </DatabaseInventory>

    Llamamos a la función así:
    Código
    1. Option Explicit
    2.  
    3. Private Sub Form_Load()
    4. Dim sDTD As String
    5.  
    6.     GetDTD_Psyke1_I Text1.Text, sDTD
    7.     Debug.Print sDTD
    8. End Sub

    Y nos devolvería algo similar a esto:
    Código:
    <?xml version="1.0" encoding="UTF-8"?>
    <!ELEMENT DatabaseInventory (DatabaseName+)>
    <!ELEMENT DatabaseName (   GlobalDatabaseName
                             , OracleSID
                             , DatabaseDomain
                             , Administrator+
                             , DatabaseAttributes
                             , Comments)
    >
    <!ELEMENT GlobalDatabaseName (#PCDATA)>
    <!ELEMENT OracleSID          (#PCDATA)>
    <!ELEMENT DatabaseDomain     (#PCDATA)>
    <!ELEMENT Administrator      (#PCDATA)>
    <!ELEMENT DatabaseAttributes EMPTY>
    <!ELEMENT Comments           (#PCDATA)>

    <!ATTLIST Administrator       EmailAlias CDATA #REQUIRED>
    <!ATTLIST Administrator       Extension  CDATA #IMPLIED>
    <!ATTLIST DatabaseAttributes  Type       (Production|Development|Testing) #REQUIRED>
    <!ATTLIST DatabaseAttributes  Version    (7|8|8i|9i) "9i">

    <!ENTITY AUTHOR "Jeffrey Hunter">
    <!ENTITY WEB    "www.iDevelopment.info">
    <!ENTITY EMAIL  "jhunter@iDevelopment.info">

    Otro ejemplo más sencillo:
    Código:
    http://www.comptechdoc.org/independent/web/xml/guide/xmlexample.html


    Normas:

    Formato (obligatorio):
    Código
    1. Public Sub GetDTD_{tu nick}_{versión en números romanos}(ByRef sXML As String, ByRef sDTDOutPut As String)

    • El XML ingresado no se debe modificar a lo largo de la función.
    • El más rápido y más completo gana.
    • Sin límite de entrega.
    • No se pueden utilizar clases hechas que faciliten el trabajo.
    • Damos por hecho que el XML está bien formateado. :silbar:

    ¡Suerte! >:D

    DoEvents! :P
    88  Programación / Programación Visual Basic / Re: ParseKeys (REG EXP) limpiar claves del NOD32 en: 23 Mayo 2012, 12:48 pm
    Así se pone:

    Código
    1. Set oREpass = New RegExp
    2.     With oREpass
    3.         .Global = True
    4.         .Pattern = PASSPATTERN
    5.         .IgnoreCase = True
    6.         Set oMCpass = .Execute(sHTML)
    7.     End With

    La expresión regular que pones es fea y repites cosas. Lo más sencillo siempre mejor.  ;)


    Cita de: Elemental Code en 23 Mayo 2012, 12:28 pm
    ademas no se si lo lei o estaba borracho que escribir resultados mediante byref es mas rapido que escribirlos como resultado de la funcion.
     :silbar:

    Sería un procedimiento, puesto que no devuelve ningún valor, y si la velocidad es problema, siempre puedes hacer esto:

    Código
    1. Option Explicit
    2.  
    3. Public Type NodUP
    4.     User As String
    5.     Password As String
    6. End Type
    7.  
    8. Public Function ParseKeys(ByRef sHTML As String, ByRef UP As NodUP())
    9. '// code
    10. End Sub
    11.  

    DoEvents! :P
    89  Programación / Desarrollo Web / Re: Poner tweets de varios usuarios en un widgets en: 23 Mayo 2012, 10:04 am
    Mira esto:
    Código:
    http://tutorialzine.com/2009/10/jquery-twitter-ticker/

    DoEvents! :P
    90  Programación / Programación Visual Basic / Re: ParseKeys (REG EXP) limpiar claves del NOD32 en: 23 Mayo 2012, 09:14 am
    Citar
    Código
    1. ' º Nombre    : mParseKeys.cls
    2.  
    ¿Una clase para una función? :rolleyes:


    Quedaría más bonito si en vez de ingresar dos arrays utilizas un Type.

    Código
    1. Option Explicit
    2.  
    3. Public Type NodUP
    4.     User As String
    5.     Password As String
    6. End Type
    7.  
    8. Public Function ParseKeys(ByRef sHTML As String) As NodUP()
    9.  


    Creo que te puedes ahorrar el crear dos objetos, con uno yo creo que valdría.  :P


    Usas esto:
    Código:
    (?:[pP]?assword:? |[pP]?assword:?|nod32key:)(\w{10})

    Según lo tienes puesto, con el [pP]?, también te sacaría "assword". ("palabra culo" en inglés :-X).

    Utilizando IgnoreCase cuando creas el objeto para que no se fije en ninguna mayúscula. :)
    Yo pondría algo así:

    Código:
    (password|nod32key)\s*:?\s*(\w{10})

    DoEvents! :P
    Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 128
    WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines