Mensajes

Hola a todos bueno estoycreando un compilador y me he dado cuenta que por ejemplo que si uno compila un bat detectado por los Avs mi compilador extrae el archivo y el av se lo come y e estado g00gleando y no he pillado nad de como pasar el bat atrves de pipes ! alguien sabe como hacerlos !!??? 

mmm lo que haces es solo extraer el batch si es asi deberias usar la opción buscar d este foro por hay postee un codigo que ejecuta una serie de codigo Batch sin tener que generar el archivo X con dicho codigo, y las pipes de igual forma seguro.

mmm bueno pero en realidad no hay copilador alguno mmm en si solo que se hace es algo similar a esto, lo demás es chorrada y media:

stup + code Batch (este ultimo esta cifrado al final del executable) posterior mente el programa se abre a si mismo y lee esta parte es sencillo.

Ahora mi parte criticona:
     Me he bajado tu documento en PDF dicho documento solo miestra en su mayoria solo CODIGO sin documentar si es así sería mejor que se pusiera el source como tal.
     Un tutorial es EXPLICATIVO en cada instante
          Responde al Por que esto y por que aquello
          Por que esta linea por que esta otra

El tutorial devio haber sido Extremadamente desde inicio.
     Por que el Stup para que sirve que funcion se le puede agrar y demas
     Al igual por que no agregarle esto y aquello
     El cifrado deviste primeramente haberlo al final lo primero abjuntarle al Stup el codigo batch para que posteriormente al generar exe+batch lo abrieran lo demás con un editor hexadecimal o ya de perdida con el block de notas y vean donde se ha adjuntado dicho codigo (En palabras simples que vieran el Resultado final)

bueno en si esta bien solo te recomiendo que no Obligues a correr a los demás además de que un tutorial la mayor marte es teorico y las partes practicas son MUY sencillas y se van por partes Sin comlegidad

Ejemplo (solo pasos de u temario como lo haria un servidor):
     Estructura del exe con codigo a generar (Stup+Codigo Batch).
     Codigo Simplisimo de un stup.
     Codigo Simple del que unira el stup con el codigo batch.
     Como agregar mas funciones.
     Funciones Extras.

P.D.: Recuerda que para realizar un TUTO debes ponerte en los Zapatos de quienes lo leerán, no hice mis criticas a vace de ofensas solo para hacerte razonar y que mejores como Escritor/Redactor.

Nota.: Entendi bien esto pero al mostrarselo aun chico que sabe solo lo standar en VB6 (Sin APis y derivados) se quedo con la cara de What?

Voy a probar generar un descansador de pantalla, un screensaver, haber que tal mola..... exelente aporte gracias MAD.

diria que no revivieras post viejos como siempre pero esta vez veo que este source la engine GDI esta Excelente casi como si usara la DirectX u OpenGL en el VB6

Si no lo revives no sabria de este.¡!

pero sin quieres sin + saber por ejemplo cuanto es 7!, utiliza este codigo:

inserta un timer, un command y 2 textboxs y escribe este codigo:

Código [Seleccionar] Expandir

Option Explicit
Dim a
Dim b
Private Sub Command1_Click()
a = Text1.Text
Timer1.Enabled = True
End Sub
Private Sub form_load()
b = 1
End Sub
Private Sub Timer1_Timer()
b = b * a
If a - 1 <> 0 Then
a = a - 1
Else
Text2.Text = "Resultado: " & b
End If
End Sub


por Luci ¬¬"

Usar un timer Error Feo.
No Limpias las variables.
MuchasLineas de Codigo.

por Luci ¬¬"

Conclución Codigo Feo e Ineficiente (al timer en interval le pongo cada 10 segundos y tardaria un buen en deducer las combinaciones ¬¬" )

Aca dejo mi Codigo menos lineas y menos memoria de uso.

Solo agregar un modulo y pegar este codigo (No se nesesita formulario en el Proyecto)

Configurar el proyecto para que arranque el proceso Sub Main (Solo si tienes un Formulario en el proyecto) y listo correrlo.

Código (Vb) [Seleccionar] Expandir


Option Explicit
Sub main()
    MsgBox NumConvinacion(Val(InputBox("Numero de Caracteres:", "Cantidad", "1")))
End Sub
Function NumConvinacion(Optional ByVal Cantidad As Integer = 1) As Double
    NumConvinacion = 1
    Dim i As Integer
    For i = 1 To Cantidad: NumConvinacion = NumConvinacion * i: Next i
End Function


P.D.: se limita a    170!

Dulces Lunas

Este es otro ejemplo de los tipicos que quieren que le hagan la tarea , ultimamente se estan viendo mucho.

Amm si eso parece con eso de que ya van a salir algunos de sus escuelas (colmo) se ven a varios, pero en todo caso el error aqui es dar un codigo es mejor dar la info o link a donde se de info detallada mas no el Source hecho, posiblemente ayudar con un codigo que ya este realizando pero NUNCA darselo REALIZADO/HECHO y mucho menos si NO SABE NADA DE NADA ¬¬".

Edito para no RE-POST--------

En la Bandeja de Privados tengo:

Es que ese no me funciona

Usa tu cabeza o leete un Manual y si no Sabes dejalo.

Gracias. Pero me salen muy pocas combinaciones

Por Dios si es la palabra "Hola" el total es de 4x3x2x1=24 combinaciones SIN Repetir
Si es "P e n d e j o" (sin espacios) el total es de 7x6x5x4x3x2x1=5040 combinaciones SIN Repetir.

Por favor no pidas mas de las que son Matematicamente ¬¬# ademas ya lo explique en el 3er post de este TEMA.

Y quisiera que en un textbox pudiera ingresar la palabra.

Bueno este tipo que, apoco no sabe algo Sencillo como usar los TextBox y sus propiedades?

Solo me queda decir: nadie es maestro de nada, este foro es de dudas y respuestas PERO TENIENDO BASES en sus dudas, por Luci.

NO INTENTES CORRER SIN ANTES SABER CAMINAR Y APENAS ESTAS GATENADO O EN SU DEFECTO TE ESTAN CARGANDO ¬¬".

P.D.: Si a alguien ofendo con las mayusculas no esperen disculpas ya que solo así se entiende.!!¡¡ (ojala pudiera meter la mano al monitor y pegarle un susto endemoniado a... pero no se puede ¬¬ posiblemente en unos 2 siglos ya xP)

Si pero yo no lo revivi 

o si Cita equivocada era para Cuenta Net

/quote]

En serio quieres que te lo responda?

El codigo mas compacto ya te dio Seba123Neo yo en lo personal te lo hubera dado con un poco mas de lineas para q le entendieras pero el mejor es de Seba123Neo

Hola, pues mira con esto te salen las combianciones de una palabra..

Código (vb) [Seleccionar] Expandir

Private Sub Combinaciones(Palabra As String, Optional strFixed As String)
    Dim Recorrer As Integer
    If Len(Palabra) <> 1 Then
        For Recorrer = 1 To Len(Palabra)
            Combinaciones Left$(Palabra, Recorrer - 1) & Mid$(Palabra, Recorrer + 1), strFixed & Mid$(Palabra, Recorrer, 1)
        Next Recorrer
    Else
        List1.AddItem strFixed & Palabra
    End If
End Sub

Private Sub Form_Load()
    Call Combinaciones("Hola")
End Sub


saludos.

solo lo que se deberia agregar, es que para saber la cantidad de convinacion de una serie de letras, numeros, etc. por ejemplo:

Código [Seleccionar] Expandir


La vida es dura pero el desaliente es aterno

[Se me dio un dia escribir frases y esta me dio aliento]

Para saber la convinacion que se puedan realizar de todos estos caracteres y espacios (aun que sean repetidos) solo se debe contar el numero total y multiplicar por sus antesesores es decir:

la longitud es de 44 letras

Se multiplicaria

Código [Seleccionar] Expandir


44x43x42x41x40x39...x5x4x3x2x1   o en forma matematica  "44!".


El Total es de:

2.658271575x₁₀⁵⁴ combinaciones (son bastantes no)

en algo mas sencillo como

Código [Seleccionar] Expandir


Lucifer


el total de las letras son 7

así que se multiplicaria

7x6x5x4x3x2x1=5040 combinaciones sin repetir

Código [Seleccionar] Expandir


lucifer
lucifre
luciefr
lucierf
lucirfe
luciref
lucfier
lucfire
lucfeir
lucferi
lucfrie
lucfrei
lciefru
lcieruf
lcierfu
lcirufe
lciruef
lcirfue
lcirfeu
lcireuf
lcirefu
lcfuier
lcfuire
lcfueir
lcfueri
lcfurie
lcfurei
lcfiuer
lcfiure
lcfieur
lcfieru
lcfirue
lcfireu
lcfeuir
lcfeuri
lcfeiur
lcfeiru
lcferui
lcferiu
lcfruie
lcfruei
lcfriue
lcfrieu
lcfreui
lcfreiu
lceuifr
lceuirf
lceufir
lceufri
lceurif
lceurfi
lceiufr
lceiurf
lceifur
lceifru
lceiruf
lceirfu
lcefuir
lcefuri
lcefiur
lcefiru
lcefrui
lcefriu
lceruif
lcerufi
lceriuf
lcerifu
lcerfui
lcerfiu
lcruife
lcruief
lcrufie
lcrufei
lcrueif
lcruefi
lcriufe
lcriuef
lcrifue
lcrifeu
lcrieuf
lcriefu
lcrfuie
lcrfuei
lcrfiue
lcrfieu
lcrfeui
lcrfeiu
lcreuif
lcreufi
lcreiuf
lcreifu
lcrefui
lcrefiu
liucfer
liucfre
... y faltan mas ¬¬"


Usen las etiquetas de codigo 

Código (vb) [Seleccionar] Expandir


Msgbox "Uso las etiquetas de codigo (code=vb)"


El Post es un tanto vejesterico (creo que me acabo de inventar una palabra xP)

Deja de postear 2 veces cada cosa y leete un manual flojo de mie*** , lo mejor seria que no le respondieran nada a este tipoo.

NO es por defenderl(a/o) pero tampoco hay que ser Groseros ¬¬!, y deberias dejar de poner mensajes en cada uno de sus post de hecho no es nesesario ¬¬! (con uno es mas que sufuciente como respuesta insulsa)