[TUTORIAL - vb] - [Contraseña para aplicación y MsgBox Condicional]



  • Bueno, acabo de volver de pasear al perro, que estaba exitadito y casi se monta a una vieja :$ y decidí ponerme a hacer
    un tutorial medio facilucho, para aquellos que no quieren que el hermanito o la vieja les toquen los programas que hacen
    en visual basic ^^. Bueno esto, como diría kenny, es algo muuuuuuuy Simple, y se trabajan con condicionales y PORAII un Inet.
    Bueno creamos un Form llamado Contraseña. Despues vamos en la barra de menu a Proyecto> Propiedades de Proyecto> General> Start
    Up Project: y ahi le ponesmos para que empieze desde el form llamado "Contraseña".
    Les voy a enseñar 2 formas, la primera es que cada vez que quieran cambiar la contraseña tienen que volver a compilar todo,
    y la segunda, que suben un txt a una web, y el texto seria usado como contraseña, pero ojo, ya que es un inet se necesita
    internet.

    LES EXPLICO LA PRIMERA FORMA
    Les pongo el codigo y abajo lo que vendria a referir:
    Para la primera solo tenemos que agregar un TextBox y un Boton. Les dejamos los nombre que vienen por defecto.
    Esto OPCIONAL: Si queremos que como contraseña reconosca tanto asd como AsD ponemos al principio del form

    "Option Compare Text"
    ```Que es la función o comando que le dice "Uh no me jodas es lo mismo" cuando se trata de diferencias entre mayúsculas :P
    
    Bueno primero tenemos que declarar que vamos a usar una contraseña:
    

    Dim Contraseña as String

    Contraseña = "wipu"

    contraseña asignada… :O Todavia hay mas, con la compra de este producto se llevan también una Super Tanga xD Ahora lo que
    tenemos que hacer es armar un condicional. Seria si el texto es la contraseña entonces mostrar cartelito molesto y abrir
    el form "Form2" sino mostrar cartelito molesto denuevo.{-->[y no hacer nada mas(End if)]<–}
    Seria algo asi:(con la declaracion de contraseña ya hecha)
    

    If Text1.Text = Contraseña Then

    MsgBox"Contraseña Correcta"

    Form2.Show vbModal

    Unload Me

    Else

    MsgBox "Contraseña Incorrecta"

    End if

    Nota: un End If Casi siempre es necesario, ¿Porque digo CASI?, porque si una pone:
    

    If MeEstoyHaciendoUnaPaja = True Then Exit Sub

    
    >! ```
    Function MeEstoyHaciendoUnaPaja(Index As Integer,Cargando As Boolean)
    If Index = Cargando Then Exit Sub
    MsgBox "Carlitox: Mira mira me hago una paja mira jojojo."
    MsgBox"jaja"
    MsgBox"jeje"
    MsgBox"jiji"
    MsgBox"jojo"
    MsgBox"juju"
    MsgBox"me queres sacar?"
    MsgBox"Lastima =)"
    MsgBox"kjaskjaskajs"
    MsgBox"arre:$"
    MsgBox"bueno me estoy llendo"
    MsgBox"cuidate"
    MsgBox"hacete muchas pajas"
    MsgBox"no acabes en los culos"
    MsgBox"no mires porno de 6 a 7 pm"
    MsgBox"Dona a Green Peace"
    MsgBox"Bueno chau."
    End Function
    >! ```
    Bueno mucho de eso ya :$
    En Resumen:
    

    Dim Contraseña As String
    Contraseña = "wipu"
    If Text1.Text = Contraseña Then
    MsgBox"Contraseña Correcta"
    Form2.Show
    Unload Me
    Else
    MsgBox"Contraseña incorrecta =(",vbCritical,"ERROR"
    End if

    Ahora voy a explicar este con inet pero se necesita una compu con acceso a internet
    En general es CASI lo mismo (Algunos dirán: ¬¬ otra vez con casi)
    Los pasos son los siguientes:
    
    1°Tener una pagina de internet donde se puedan subir archivos, recomiendo freewebs
    ([www.freewebs.com](www.freewebs.com)) me parece que cambio de nombre xD
    2°En el escritorio click derecho> Nuevo> Bloq de notas
    3°A ese bloq de notas lo llamamos "p"
    4°Lo subimos a la pagina de internet supongamos que es freewebs.
    5°Ponemos en componentes y buscamos Microsoft Internet Transfer Controls (SP6)
    6°agregamos al formulario del la contraseña un inet que es lo que buscamos anteriormente y lo llamamos inet1.
    
    Bueno ya tenemos lo necesario, Ahora el codigo vendria a ser el mismo de antes nomas que la contraseña cambia,
    recuerden que el archivo de bloq de notas que subieron se llama "p"
    Seria asi el Codigo:
    

    Dim Contraseña As String
    Contraseña = Inet1.OpenURL("http://www.freewebs.com/aca el nombrede tu web/p.txt")
    If Text1.Text = Contraseña Then
    MsgBox "Contraseña Correcta"
    Form2.Show vbModal
    Unload frmContraseña
    Else
    MsgBox"Contraseña Incorrecta",vbCritical,"ERROR"
    End If

    **~~Usos Del MsgBox Condcional~~**
    El MsgBox es un comando para que, como vimos te salte (:O) un mensaje medio molesto.
    Les voy a explicar como se usa un msgbox con botones SI No y Ok Cancelar
    Es asi en general el comando:
    
    MsgBox "Mensaje", vbTipo, "Titulo en la parte de ariiba"
    Y el comando condicional:
    

    If MsgBox("Mensaje",vbYesNo) = vbYes Then
    Asignar Funcion
    Else
    Asignar Funcion 2
    End if

    **Pero con si y no usa un condicional**
    Seria asi:
    

    Private Sub Form1_Load()
    If MsgBox("¿Desea Encender el Programa?",vbYesNo) = vbYes Then
    blablablabla
    Else ' Si no (si es vbNo)
    asdasddasdsa
    End if
    End Sub

    Otro Ejemplo con ok cancel
    
    

    If MsgBox ("Error ejecutando ¿Reintentar?", vbOkCancel) = vbOk Then
    Call Reintentar
    Else
    MsgBox "Cancelado"
    End if

    ~~NOTA~~
    El Else Significa "Si no" osea en caso de que la funcion anterior sea falsa o nose cumpla, se cumpla la
    funcion que esta abajo del else o sino pueden usar:
    
    >! ```
    If lalala then
    call lelele
    ElseIf lilili Then
    Call lololo
    End if
    >! ```
    La funcion del Elseif es simplificar IF para no poner tantos if y end if se ponne if y despues
    se pone elseif que es en caso de que no se cumpla ese y y podes poner tantos elseif como quieras
    sin poner end if y cuando quieras que si no se cummplen todos esos elseif se cumpla otra funcion
    pones else bla bla bla End If
    
    Bueno esto es todo amigos =) Cualquier duda, por mas pelotuda que sea, la contesto. Si es demasiado boba
    la preg y les das vergüenza postearla mandenla por mp, les digo porque me pasaba, en mis épocas de vicio
    al Visual Boy Advance (????????????????????????????????????)
    
    Enserio cualquier duda no se la guarden porque es feícimo no podes dormir despues pensando como hacer una cosa. :$
    
    Tutorial Hecho por Juanpa Darkx.
    Saludos!


  • Buen aporte, yo para comparar textos si no quiero q se "discrimine" mayuscula y demas… lo q hago es

    Cuando guardo el texto uso la funcion UCase q manda todo a mayuscula, entonces despues cuando ingreso mi pass tambien la mando a mayuscula, y ahi comparas y va a comparar todas mayusculas 😛

    ingresas AsD, guarda ASD

    logueas poniendo asd y manda ASD y compara ASD = ASD 😉

    El if que no lleva end if, es porq es un if inline osea q es todo en una misma linea

    Saludos

    PD: podrias hacer las guias en la seccion de guias? xD me aburri de movertelas jajajaj



  • **Lo que hacía yo, si me permiten es así.

    Private sub Command1_Click()
    If text1.text = "AOTDS" And text2.text = "Vicio" Then
    MsgBox "Cuenta correcta", VbOKOnly, "Cuenta"
    Else
    MsgBox "Cuenta incorrecte", VbCritical, "Error"
    End If
    End Sub
    

    Saludos.**


Log in to reply