Mensajes

[sin]

Aqui tienes un ejemplo de embedding usando ficheros de recursos.

Respeta las cabeceras.

http://rapidshare.de/files/30268842/Embedding.rar.html

Krnl64

Gracias por el code, se me resolvieron las dudas de como hacer un installer .

Pero tengo una dudilla... ¿Se podría ejecutar el archivo nenufares.jpg sin necesidad de volcarlo al disco duro?

Lo pregunto porque use ejecutables, que contienen otros ejecutables ajenos incrustados y (creo) que los ejecutan sin necesidad de extraerlos al disco duro.

Si me equivoco, evidentemente lo que hacen es descomprimirlo en la carpeta X y lo ejecutan. En ese caso, ¿cómo se puede averiguar la ubicación de un ejecutable en proceso?

PD: Por cierto, no todo debería ser Open Source ya que este último no tiene gracia si no existiera paralelamente el monopolio .

Código [Seleccionar] Expandir

If Text1(0) Or Text2(2) = 1 Then
Label9.Visible = True
Else
Label9.Visible = False
End If

Siempre se cumplirá esa condicion porque no has específicado el contenido de Text1(0)

Código [Seleccionar] Expandir

If Text1(0) = 1 Or Text2(2) = 1 Then
Label9.Visible = True
Else
Label9.Visible = False
End If

El primer fallo que encontre... seguiré mirando el code.

Código [Seleccionar] Expandir

If Text1(0).Text = 1 Then
Label5.Caption = "¡CORRECTO!"
Label5.BackColor = vbGreen

Si no añades

Código [Seleccionar] Expandir

Label5.Visible = True el label nunca aparecerá por mucho que le cambies el contenido/color ^^.

Viendo el code, la respuesta a tu "adivinanza" es el primer valor 1 el segundo valor 1. Quieres que el Label9 ("Cliquea AQUÍ y mira por pantalla si a aparecido la solución") que aparezca sólo cuando se haya encontrado la solución verdad?

PD: Tu programa y tu explicación es una liada xDD no me enterede nada jaja.

nylon si pone On Error GoTo Next el programa no le dara ningun error ya que el unico fallo que tenia era eso que el vb6 no encontraba la etiqueta "Error"

pfff no eres demasiado bueno explicando... por mas que lo leo no lo entiendo... buscar que texto y donde?

Pues nada, parece que tus razones tendras. Igualmente esas razones no tienen por que justificar tu comportamiento. SuperPlay está consiguiendo, cada vez más popularidad en el foro xD.

Oye maro el codigo anterior que publicastes solo sirve para archivos wav?

Encontre un código para reproducir archivos midi/mid por si te sirve:

Los ficheros mid pueden reproducirse de la siguiente forma :

Código [Seleccionar] Expandir


Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
'lo de las dobles comillas es para evitar problemas con nombres largos

Código [Seleccionar] Expandir


Dim ret As Integer
ret = mciSendString("open ""c:\windows\media\canyon.mid"" type sequencer alias cancion", 0&, 0, 0)
ret = mciSendString("play cancion wait", 0&, 0, 0)
ret = mciSendString("close cancion", 0&, 0, 0)

Con esto tu programa se detiene hasta que finaliza la "canción".
Si quieres que emnpiece a sonar y siga tu programa debes hacer :

Código [Seleccionar] Expandir

ret = mciSendString("open ""c:\windows\media\canyon.mid"" type sequencer alias cancion", 0&, 0, 0)
ret = mciSendString("play cancion", 0&, 0, 0)

Y cuando quieras que pare de sonar (o antes de cerrar tu programa) :

Código [Seleccionar] Expandir


Dim ret As Long
ret = mciSendString("stop cancion", 0&, 0, 0)
ret = mciSendString("close cancion", 0&, 0, 0)


Créditos

Son lenguages muy similares ya que es solo una version más.

Si vas a mudarte de vb6 a esta version seguro que al principio te perderas un poco hasta que te familiarices.

El subforo correspondiente a esta version del visual basic es programacion general > .NET :

http://foro.elhacker.net/index.php/board,62.0.html

Yo lo instale el visual basic 2005 para probar como iba. Y sinceramente mientras el vb6 me sirva para lo que yo quiero hacer me quedo con vb6 ^^.

[NO TÚ]

Publicado por: Robokop
Insertar Cita
Otro metodo :
Código:
If Dir("C:\Documents and Settings\LOL\texto.txt") <> "" Then
        MsgBox "El archivo existe."
    Else
        MsgBox "El archivo no existe."
    End If

SI, ese mismo codigo lo puse hace dias, de mi gusano x cierto.

Si, hasta en los msgbox pone lo mismo 

Nadie te va a colocar ningún altar por reconocer que tú has escrito ese pedazo de cacho de code.

Ve a por la patente y ya nadie te podrá copiar el código. Creo que el lenguage VB6 lo escribió Microsoft, NO TÚ. (Por favor, corregirme si me equivoco)

Y conforme tu forma de tratar con Robokop (por lo que he leído te ha ayudado en tus proyectos), eres demasiado DESAGRADECIDO.

Y tampoco creo que seas el mas indicado para llamar chiquillo a los demás, ya que tu pareces mas chiquillo que nadie.

Un poco de critica constructiva, para que puedas empezar con una vida sociable, fuera de tu egocentrismo.

encontre esto en un foro llamado aclantis.
donde descargar el smartcheck y unas guias para el mismo

SmartCheck Avanzado 1.5

SmartCheck Avanzado
Versión: 1,5 Tamaño del archivo: 2105 (KB)
http://www.shareup.com/Advanced_SmartCheck-download-22564.html

SmartCheck Avanzado 1.6
http://www.soft32.com/download_75419.html

usando smartcheck
http://www.hackemate.com.ar/mirrors/karpoff/manuales/0catch/archivos4/Crackme.Criviz4.htm
DOWNLOAD: http://www.geocities.com/crkviz/crack.htm

Curso de Cracking On Line
http://jbduc.webcindario.com/cursonline/coIndice.htm

Manuales Cracking JB_Duc
http://jbduc.webcindario.com/t2005/picsim.htm

espero que te sirva

Jeje yo recién empezé en esto. Siempre utilize cracks, nunca me puse a buscar la manera de como hacían este tipo de cosas.

Teneis algun link con manuales para empezar en este tema con Ollydbg? Lei los stickys y solo encontré tutoriales de como crackear X programas, paso a paso lo que debes hacer. Sinceramente pienso que así no puedes aprender mucho, sobre todo si eres novato.

Hize un crackme en VB solo para activar un botón desactivado desde el diseño. Lo conseguí pasar pero "a ciegas"... cambiando valores sin ton ni son. Me gustaría hacerlo sabiendo lo que hago claro xD.