Jump to content

[ES][Tutorial] - Base De Datos + Programa Terminado


Recommended Posts

Posted

[VB.NET] Tutorial Nº 2 By Weeken : Creacion De Un Login

 

¿Para Que Sirve Esto?

 

Este Programa Mas Que Nada Sirve Para Tener Alguna Seguridad A Tus Programas, Tambien Puede Utilizarlo Para Guardar Informacion Personal

Asi No Podran Obtener La Informacion, Sino Por La Contraseña

IMPORTANTE :Las Contraseñas Visual Basic "No Se Pueden Hackear!"

Asi Que Eso Nos Brindan Una Muy Buena Proteccion ;)

 

 

Comenzemos! (:

 

Paso 1 : Creamos un nuevo proyecto en VB.net (Aplicación)

85580917.png

 

Paso 2 : Creamos >

34175054.png

 

  • 4 TextBox
  • 3 Labels
  • 1 Button
  • 1 Timer

 

Los Acomodamos y Nos Quedaria Algo Asi..

73770276.png

 

Paso 3 : Click Sobre El TextBox De > "Contraseña"

y En Las Propiedades Cambiar Esto:

PasswordChar = *
19678094.png

 

Paso 4 : Hacemos Lo Mismo Con El TextBox Que Esta Al Lado Del Label De "Codigo"

 

Paso 5 : El TextBox Que Esta Apartados De Todos, Le Hacemos Click, Vamos A Las Propiedades Y Cambiamos Esto:

Visible = False
50486735.png

 

Paso 6 : Hacer Lo Mismo Con El Boton

Paso 7 : Agamos Un Click Sobre El Reloj (Ya Creado)

51357735.png

 

Paso 8 : Editamos Lo Siguiente En Propiedades

Interval = 1

Enabled = True

98471751.png

 

Paso 9 : Editamos El Codigo De Timer1 Con Doble Click Sobre El

Ponemos Esto :

'Tutorial By Weeken

        If TextBox1.Text = ("CUENTA") And TextBox2.Text = ("CONTRASEÑA") And TextBox3.Text = ("CODIGO") Then

            'Tutorial By Weeken

            TextBox4.Text = ("OK")

            'Tutorial By Weeken

        Else

            'Tutorial By Weeken

            TextBox4.Text = ("NO")

            'Tutorial By Weeken

        End If

        'Tutorial By Weeken

        If TextBox4.Text = ("OK") Then

            'Tutorial By Weeken

            Button1.Visible = True

            'Tutorial By Weeken

        ElseIf TextBox4.Text = ("NO") Then

            'Tutorial By Weeken

            Button1.Visible = False

            'Tutorial By Weeken

        End If

        'Tutorial By Weeken

Paso 10 : Editamos El Codigo De Button1 Con Doble Click Sobre El

Ponemos Esto :

'Tutorial By Weeken

        MsgBox("Bienvenido!", MsgBoxStyle.OkOnly, "Tutorial By Weeken")

        'Tutorial By Weeken

        Form2.Show()

        'Tutorial By Weeken

        Me.Hide()

        'Tutorial By Weeken

Paso 11 : Vamos a Proyecto > Agregar Windows Form.

43639001.png

 

41323690.png

 

Paso 11 : Doble Click Sobre Form2.vb y Comenzar A Editar

El Contenido Que Quieres Guardar!, Tus Datos Estan

A Salvo Haora! ;)

 

 

Felicidades!, Terminaste El Programa

 

Asi Es Como Me Quedo A Mi :

 

31462643.png

 

 

Datos Para Mi Login :

 

Cuenta : weeken

Contraseña : contraseña

codigo : 4048

 

PD: TENGAN EN CUENTA LAS MAYUSCULAS Y MINUSCULAS

Click Aqui Para Descargar El Programa

 

 

Creditos : Weeken

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Posts

    • My official facebook profile!: https://www.facebook.com/spectrumL2 Specifications: Revamped L2JACIS revision FROM the core Private project!!! Revision that has been receiving corrections for over 3 years!!! Events already installed in the revision: TVT CTF KTB PARTY FARM SPOIL EVENT CRAZY RATES TOURNAMENT TIME ZONE (INSTANCE) All working correctly!!! SIEGE ESSENTIAL FEATURES: Walls fix Gates fix Flags fix 100% functional: OLYMPIADS: Implemented settings Hero receives enchanted Weapons with equal status PvP Weapons Optional /true/false Hero can acquire all Hero Weapons Optional true/false OTHER IMPLEMENTATIONS: Teleport fixed (directly to Giran) Teleport effect classic Vip skins vip collor name Pack NPCs with effect already configured BOSES already configured Mobs already configured CLASS BALANCE SPECIAL SYSTEM We have a SPECIAL system developed for Class Balance with only 1 digit in XML %tage of configurable debuffs Player limitation system in BOSES or PvP zones BS blocking system in FLEG zones or events Among others dozens of improvements made in the review... price: 390 USD !  OBS: WE CAN CHANGE THE BANNER AND NAME OF THE SERVICE TO THE ONE OF YOUR PREFERENCE BUT THE SETTINGS MUST BE KEPT ANY CHANGES REQUIRE ADDITION        
    • Server is Online – 1,000+ Active Players! We’re excited to announce the addition of a Europe Proxy to improve connectivity for our EU players! Clans can now benefit from VIP Access to help you catch up faster. 🎯 If you're a clan leader with at least 9 active members, join our Discord and open a ticket to claim your VIP rewards!  
    • The Telegram team is rolling out a new batch of Stars-only gifts you’ll be able to mint as NFTs. Don’t miss your chance to join the next Telegram trend and earn from it! Buy Telegram Stars cheap and KYC-free 1 Star from $0.0149 (min. 50 Stars, bulk discounts available) Promo code STARS5 — 5 % off Pay any way you like: bank cards · crypto · other popular methods How to purchase: ➡Online Store — Click ➡ Telegram bot — Click Other services: ➡ SMM panel — Click Regular buyers get extra discounts and promo codes. Support: ➡ Telegram: https://t.me/solomon_bog ➡ Telegram channel: https://t.me/accsforyou_shop ➡ Discord: https://discord.gg/y9AStFFsrh ➡ WhatsApp: https://wa.me/79051904467 ➡ Email: solomonbog@socnet.store Use these contacts to discuss wholesale orders, partnerships (current list: https://socnet.bgng.io/partners) or to become a supplier. SocNet — your shop for digital goods and premium subscriptions
    • The Telegram team is rolling out a new batch of Stars-only gifts you’ll be able to mint as NFTs. Don’t miss your chance to join the next Telegram trend and earn from it! Buy Telegram Stars cheap and KYC-free 1 Star from $0.0149 (min. 50 Stars, bulk discounts available) Promo code STARS5 — 5 % off Pay any way you like: bank cards · crypto · other popular methods How to purchase: ➡Online Store — Click ➡ Telegram bot — Click Other services: ➡ SMM panel — Click Regular buyers get extra discounts and promo codes. Support: ➡ Telegram: https://t.me/solomon_bog ➡ Telegram channel: https://t.me/accsforyou_shop ➡ Discord: https://discord.gg/y9AStFFsrh ➡ WhatsApp: https://wa.me/79051904467 ➡ Email: solomonbog@socnet.store Use these contacts to discuss wholesale orders, partnerships (current list: https://socnet.bgng.io/partners) or to become a supplier. SocNet — your shop for digital goods and premium subscriptions
  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock