Mensajes

Hola, tus dudas son fáciles de solucionar.. verás..

El MsgBox con VbQuestion+vbyesNo lo que hace es devolver True si pulsas en sí y False si pulsas en No, es como una variable Booleana por lo tanto si quieres que haga una cosa u otra dependiendo que botón pulse sólo tienes que meter el msgbox en un if que compare la respuesta con vbyes o vbno.

Ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If MsgBox("Texto", vbQuestion + vbYesNo, "Título") = vbYes Then
    MsgBox "has pulsado SI"
Else
    MsgBox "Has pulsado NO"
End If
End Sub


Para que te pregunte al cerrar el programa tienes que colocar tu código en Form_Unload. La función Form_Unload lleva un parámetro Cancel con el que podrás decidir si cerrar o no el formulario, lo pones a 1 si quieres impedir que se cierre tu programa y a 0 en caso contrario, es más claro con un ejemplo.

Ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Desea Salir", vbQuestion + vbYesNo, "Título") = vbYes Then
    Cancel = 0
Else
    Cancel = 1
End If
End Sub

Espero que te sea de ayuda,

Saludos!!

Si, tughack el texto cifrado también es texto plano, pero como piensas desencriptarlo si no sabes el algoritmo que usó de cifrado?? 

Obviamente es más seguro usar una cifrado en la contraseña... yo lo veo obvio al menos.. si alguien no lo ve puedo poner una sencilla prueba.. xD

Saludos!

Pescando, talando y demás eh?? xDDDDD no sabes que el macro no asistido es ilegal y te banean!! xddd

Eso con SendKeys  es muy fácil... yo también hice alguno... 

Saludos.

Hola a todos, quería haceros una pregunta. A ver si conociáis algún programa bueno para la edición de vídeo, cortar el vídeo, añadir efectos, poner música, añadirle textos y demás. Quiero que tenga bastantes posibilidades, digamos que si yo preguntase en el foro de diseño gráfico por un buen programa de diseño de imagen me dirían: Photoshop, Gimp, Corel Draw... o alguno así porque son los más potentes, pues quería preguntar aquí si alguien conoce programas potentes pero para la edición de vídeo porque la verdad no conozco este tema y necesito editar algunos vídeos, espero vuestra respuesta.

Un saludo y gracias

Está muy bien, gracias por el aporte!! 

Pues puedes cambiar la ruta, mira:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Pass, ruta As String
Dim Temp As String
ruta = "C:\LOKEKIERAS" ' AKI PONES LA RUTA DEL ARCHIVO QUE QUIERAS COMPROBAR
    nFic = FreeFile
    Open ruta For Input As nFic
    Do Until EOF(nFic)
    Input #nFic, Temp
    Text1.Text = Text1.Text + Temp
  Loop
     Close nFic
    Pass = Text1.Text
    If Pass = "x" Then ' ESTA X LA SUSTITUYES POR LO QUE QUIERAS QUE COMPRUEBE QUE PONE EN EL FICHERO
        Form2.Show
    Else
        MsgBox "Error, vuelva a intentarlo", vbCritical
        End
    End If
End Sub

Y ya está, así de simple.

Que va hombre, tampoco creo yo que sea tan difícil, pero bueno si quieres hacerlo manualmente.. que te sea leve.. xD

Pues eso, tu has puesto la cadena y yo te puesto la solución para esa cadena hombre.. xD pero vamos no se donde está el problema:

Mete un textbox y haces así y en teoría debería de meter todos los mails...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim i as integer
Dim data, datos As String
Dim vdata, vdatos As Variant

Open "D:\Foros\SMF\Backup\localhost.sql" For Binary Access Read As #1
data = Input(LOF(1), #1)
Close #1
vdata = Split(data, "@")

For i = 0 To Numero de Entradas del localhost.sql
   datos=vdata(i)
   vdatos = Split(datos, "'")
   Text1.Text = Text1.Text & vdatos(3) & vbcrlf
Next i
End Sub

Creo que así iría bien, prueba y me dices, esque sin el archivo no puedo probarlo.. xD

Hay muchas formas de hacer eso, yo haría un split... algo así

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim data As String
Dim vdata As Variant

data = "'XXXXX', 'unemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'"
vdata = Split(data, "'")
MsgBox vdata(3)
End Sub

Y ya devuelve el valor del e-mail. Haces que en data se almacene la cadena correspondiente y ya está :¡

Saludos.

Buenas amigo, pues mira principalmente decirte que el código de Lambda es más simple y también funciona, pero de todas formas yo te explico si quieres el que yo puse:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Pass As String 'variable de tipo cadena que almacena el password
Dim Temp As String 'variable tipo cadena que va almacenando datos del fichero que se importa
    nFic = FreeFile 'liberamos el canal del fichero nFic
    Open "C:\a.txt" For Input As nFic 'Abrimos el archivo, AQUÍ ES DONDE PONES LA RUTA
    Do Until EOF(nFic) ' Esto es un bucle que lee el fichero hasta que llegue al final del fichero
    Input #nFic, Temp ' Importas  lo que va leyendo el fichero a la variable temp
    Text1.Text = Text1.Text + Temp ' por eso aqui hacemos text1.text = text1.text + temp (lo importado del fichero)
  Loop
     Close nFic
    Pass=Text1.Text ' Ahora lo que hemos importado del fichero lo almacenamos en la variable Pass
    If Pass = "x" Then ' Y ahora si el pass coincide con lo introducido por el usuario, en este caso "x"
        Form2.Show ' entonces mostramos el form2
    Else
        MsgBox "Error, vuelva a intentarlo", vbCritical 'sino tiramos error y cerramos el programa
        End
    End If
End Sub

Espero que más o menos lo entiendas, y si me equivoqué en cualquier cosa espero que alguien me corrija. Y de todas formas como ya te dije el código de Lambda es más simple y funciona perfectamente aunque este también funciona sólo que es más largo, bueno espero que te sea de ayuda al menos y aprendas algo nuevo

Saludos.