Mensajes

[@Drinky94]

.
@Drinky94

Nunca Digas NO, aqui tienes unos codigos fuente:

http://infrangelux.sytes.net/FileX/?dir=/BlackZeroX/Programacion/vb6/APIHOOK

Dulces Lunas!¡.

[22/02/2011]

no esta muy explicado que digamos, o sea que nadie sabe realmente que se tiene que hacer.

porque por "Imprimir" uno puede referirse a mostrar y otro puede entender imprimir en la impresora, lo cual es valido ya que si queres, podes sacar una captura de la pantalla del codigo e imprimirla.

aparte no dice si el proyecto debe estar compilado en .exe para realizar la accion o estar en el IDE, ya que con un Addin de visual basic es posible hacerlo en pocas lineas de codigo a lo que queres.

cuando decis "NO VALE LEER ARCHIVOS EXTERNOS." me imagino que decis a no leer el .frm del proyecto, pero que pasa si el proyecto tiene 40 modulos ?

si tiene que estar en .exe o no es muy importante aclararlo, ya que se me ocurren varias cosas que funcionan para sacar el codigo del IDE.

ahora yo te doy hasta el 22/02/2011 para que expliques bien como es el tema...

saludos.

mmm en el 1er post pongo:

.
Realizar un Codigo fuente que se imprima a si mismo exactamente SIN EXCEPCIÓN ALGUNA, de manera EXACTA (cadenas declaraciones procesos, etc.).

* No vale extraer el codigo fuente de otro lado externo a el programa, recurso, etc debera ser un codigo simple.
* Si tu codigo hace mension a una dll externa igual cuenta como codigo del mismo programa, asi que cuidado con los mañosos.
* Como vez dice A SI MISMO, debera ser lo mismo si esta o no esta compilado, es decir que si funciona en el IDE pero no en un exe no vale.
* En otras palabras si haces un Addin vas a tener que mostrar el codigo fuente del Addin no hay otra. si lo compilas te devera mostrar el codigo fuente original, si lo ejecutas debera realizar lo mismo; es decir

Si tu codigo fuente es:

Código (Vb) [Seleccionar] Expandir



sub main()
    codigo
end sub



El programa al ejecutarlo debera mostrarte su mismo codigo es decir TODO Sub main() con TODO lo que haya dentro y fuera de el mismo, si metes modulo, clases, comentarios funciones procesos, de igual manera.

La cosa es pensar, en como rayos hacerlo pero de que se puede se puede NO hay que manejar APIS estructuras ni nada similar, es solo y unicamente LOGICA.

P.D.: Lo siento era para el dia 26/02/11, di mal la fecha.

Temibles Lunas!¡.

.
Es mas facil de lo que te imaginas!¡.

Dulces Lunas!¡.

[R]

.
Realizar un Codigo fuente que se imprima a si mismo exactamente SIN EXCEPCIÓN ALGUNA, de manera EXACTA (cadenas declaraciones procesos, etc.).

* De 1 a l 10 en conocimientos donde 1 sabe manejar y se sabe las condiciones del lenguaje, como minimo 4.
* El codigo imprimido puede ser porun msgbox impresora, por un Debugger, un archivo de texto ne fin solo que devuelva su propio codigo fuente ( Recomiendo hacerlo en el Sub main() ).
* NO VALE LEER ARCHIVOS EXTERNOS de ninguna indole.

Publicar su codigo el dia 26/02/2011 ( en este día publicare mi código ) , esto es solo para dar tiempo para que piensen como hacerlo, y que no vean otros un codigo fuente y se inspiren en el, USEN SU MATERIA GRIS!¡.

--------------------

* No vale extraer el codigo fuente de otro lado externo a el programa, recurso, etc debera ser un codigo simple.
* Si tu codigo hace mension a una dll externa igual cuenta como codigo del mismo programa, asi que cuidado con los mañosos.
* Como vez dice A SI MISMO, debera ser lo mismo si esta o no esta compilado, es decir que si funciona en el IDE pero no en un exe no vale.
* En otras palabras si haces un Addin vas a tener que mostrar el codigo fuente del Addin no hay otra. si lo compilas te devera mostrar el codigo fuente original, si lo ejecutas debera realizar lo mismo; es decir

Si tu codigo fuente es:

Código:

Código (vb) [Seleccionar] Expandir



sub main()
    codigo
end sub



El programa al ejecutarlo debera mostrarte su mismo codigo es decir TODO Sub main() con TODO lo que haya dentro y fuera de el mismo, si metes modulo, clases, comentarios funciones procesos, de igual manera.

La cosa es pensar, en como rayos hacerlo pero de que se puede se puede NO hay que manejar APIS estructuras ni nada similar, es solo y unicamente LÓGICA.


---------------

Debido a los amigos que dieron demasiados detalles ahora el limite de tiempo ya no tiene caso.

La parte comentada es mi codigo resultante.

Código (Vb) [Seleccionar] Expandir



Sub main(): Const s As String = "Sub main(): Const s As String = @: msgbox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub": MsgBox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub
'Sub main(): Const s As String = "Sub main(): Const s As String = @: msgbox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub": MsgBox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub



Temibles Lunas!¡.

[And]

.
Yo lo haria así, si quieres saber para que el operador And y que funcion tiene lee un poco más; se les olvido el Step del For Next.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Dim lng_i           As Variant
Dim lng_ret()       As Long
    For lng_i = 0 To GetParNumbers(-501, -11, lng_ret) - 1
        Debug.Print lng_ret(lng_i)
    Next lng_i
End Sub

Public Function GetParNumbers(ByVal ThisIniVal As Long, ByVal ThisEndVal As Long, ByRef ArrOut() As Long) As Long
Dim lng_i           As Long
Dim lng_d           As Long
    If ThisIniVal > ThisEndVal Then
        lng_i = ThisEndVal
        ThisEndVal = ThisIniVal
        ThisIniVal = lng_i
    End If
    If (ThisIniVal And 1) = 1 Then ThisIniVal = ThisIniVal + 1
    If (ThisEndVal And 1) = 1 Then ThisEndVal = ThisEndVal - 1
    lng_i = (ThisEndVal - ThisIniVal) \ 2
    If Not ((lng_i And &H80000000) = &H80000000) Then
        ReDim ArrOut(0 To lng_i)
        For lng_i = ThisIniVal To ThisEndVal Step 2
            ArrOut(lng_d) = lng_i
            lng_d = lng_d + 1
        Next lng_i
    End If
    GetParNumbers = lng_d
End Function



Dulces Lunas!¡.

yo no se ustedes pero si quieren algo al 100% mejor publicamos Varias cadenas en TODAS las sircustancias para que mas de uno ya tenga a la mano dichas cadenas y haga pruebas y ls compruebe con una ya que este perfecta, es decir meterle puntos comas al grede pero que sean coherentes y tambien por que no incoherentes; pero que estas ultimas nos reporte donde rayos hay errores.

P.D.: No vi el codigo de la Rana anteriormente completo, pero esta genial ese cambio de tipo de los bytes del char a los 2 bytes del integer para asi manipular la string de forma mas facil, si no mal recuerdo esto mismo lo hacia L.A..

Dulces Lunas!¡.

.
Una duda mas concreta? por que usando ADO se puede hacer, mas NO te haremos codigo OJO con eso!¡.

P.D.: En que version esta actualmente el MuOnline? yo jugaba la S5.

Dulces Lunas!¡.

.
Esta mal, delante de la coma...

Código [Seleccionar] Expandir



¡Cómo ha nevado esta noche!; ¡qué blanco está todo!; ¡qué frío vamos a pasar hoy!» [RAE: Ortografía, 1999, § 5.6.4]
¿Hola como estás? , Esto es sólo una prueba Miguel... Y además : ¡funciona genial!  Amo a las ranas!.



Error en la coma.
Signos de puntuación (La Coma)

Error en puntos suspensivos:
Puntos Suspensivos

Dulces Lunas!¡.

.
Solo corregiste para la 1ra cadena pero la segunda?

P.D.: Estoy bastante ocupado que no puedo participar.

Dulces Lunas!¡.

@Mr. Frog

Errores:

Código [Seleccionar] Expandir



¡Cómo ha nevado esta noche!; ¡qué blanco está todo!; ¡qué frío vamos a pasar hoy!» [RAE: Ortografía, 1999, § 5.6.4]



Código [Seleccionar] Expandir



¿hola como estás? , esto es sólo una prueba Miguel... y además : ¡funciona genial!  amo a las ranas!.



Dulces Lunas!¡.