Welcome to Ramleague,

Ramleague - the best site for pinoy chat, games chat and mobiles chat,

Sign Up
  1. Hello guest Guest , Are you tired from Ads? to remove some ads you need to register and be active. :D

[Help] Password Recovery VB.net

Discussion in 'Visual Basic Programming' started by REnana, Aug 25, 2019.

  1. REnana Well-Known Member
    Member Lvl1

    REnana
    Joined:
    Jun 21, 2016
    Gender:
    Male
    Posts:
    66
    Reputation:
    0
    Thanks:
    3
    Location:
    C:\Windows\System32
    Amazed

    Password Recovery VB.net

    Tulong naman mga programmer hindi ko na alam kung ano gagawin ko dito may mali daw sa [msg] ko
    3 days ko na to dinedebug to paulit ulit kong kinocode, kahit si mr.google d alam kung pano to


    Code:
    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
            Try
                Cursor = Cursors.WaitCursor
                tmrPasswordRecovery.Enabled = True
    
                Dim ds As New DataSet()
                Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Renan\Desktop\(SOLUTION)5C1J POS AND INVENTORY MANAGEMENT\5C1J POS AND INVENTORY MANAGEMENT\5C1J POS AND INVENTORY MANAGEMENT\bin\Debug\5C1J POS AND INVENTORY MANAGEMENT_DB.accdb; Persist Security Info=False;")
                conn.Open()
                Dim cmd As New OleDbCommand("SELECT Password From UserTable WHERE Username = 'admin'", conn)
    
                Dim da As New OleDbDataAdapter(cmd)
                da.Fill(ds)
                conn.Close()
    
                If ds.Tables(0).Rows.Count > 0 Then
                    Dim Msg As New MailMessage()
                    ' SENDER E_MAIL ADDRESS
                    Msg.From = New MailAddress("[email protected]")
                    'RECEIVER EMAIL ADDRESS
                    Msg.[To].Add("[email protected]")
                    Msg.Subject = "Your Password Details"
                    Msg.Body = "Your Password: " & Convert.ToString(ds.Tables(0).Rows(0)("Password")) & ""
                    Msg.IsBodyHtml = True
                    ' YOUR REMOTE SMTP SERVER IP
                    Dim smtp As New SmtpClient()
                    smtp.Host = "smtp.gmail.com"
                    smtp.Port = 587
                    smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "abcd")
                    smtp.EnableSsl = True
                    smtp.Send(Msg)
                    MessageBox.Show("Password successfully sent!" & vbCrLf & "Please check your mail.", "Thank you!", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Me.Hide()
                    frmLogin.Show()
                    frmLogin.txtUsername.Text = ""
                    frmLogin.txtPassword.Text = ""
                    frmLogin.txtUsername.Focus()
                End If
    
    
            Catch ex As Exception
                MsgBox(ex.ToString())
            End Try
        End Sub
    
        Private Sub tmrPasswordRecovery_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrPasswordRecovery.Tick
            Cursor = Cursors.Default
            tmrPasswordRecovery.Enabled = False
        End Sub
    Sana naman matulungan agad ako para matapos na at makagawa na sa ibang form
    upload_2019-8-25_15-8-31.png
    --- Last post, Aug 25, 2019, Original Post Date: Aug 25, 2019 ---
    ='( Tulong mga programmer
     
    • BE A GAMER - RAMLeague
  2. Member Lvl2

    NekoAkame™
    Joined:
    Nov 11, 2017
    Gender:
    Female
    Posts:
    1,044
    Reputation:
    1
    Thanks:
    31
    Location:
    C:\Administrator
    Bored
    Philippines
    09154527401
    kurumi0343
    Skype name: kurumi0343
    rachelgardner0343@gmail.com
    Celestine
    kurumi0343
    recovery saan yan ?
    --- Last post, Sep 24, 2019, Original Post Date: Sep 24, 2019 ---
     
Loading...

Advertisement

Similar Threads Forum Date
SysTools Access Password Recovery 6.0 PC Apllications Dec 24, 2021
Password Recovery Bundle 5.6 Professional Edition + Portable PC Apllications Nov 10, 2021
Password Recovery Bundle 5.6 Enterprise + Portable PC Apllications Nov 10, 2021
Password Recovery Bundle 5.6 Professional Edition + Portable PC Apllications Nov 8, 2021
Password Recovery Bundle 5.6 Enterprise + Portable PC Apllications Nov 8, 2021
Password Recovery Bundle 5.6 Professional Edition PC Apllications Nov 8, 2021

Tags for this Thread

:
smtp problem

Share This Page