Posta o código da form principal por gentileza.
Voce ira reparar que algumas subs estão sem os handless, nao foi eu que retirei ou esqueci de por, o proprio programa esta sumindo com os handless. eu ja arrumei todos , mas eles somem toda hora.
Imports Microsoft.Win32
Public Class Login_Form
Public UserTipe As String = ""
Public tentativas As Integer = 3
Public Sub Logar()
If txt_user.SelectedItem = "Usuario 1" Then
UserTipe = "User1"
comando.LogIn()
End If
If txt_user.SelectedItem = "Usuario 2" Then
comando.LogIn()
UserTipe = "User2"
End If
If txt_user.SelectedItem = "Admin" Then
UserTipe = "Admin"
comando.LogIn()
End If
If txt_user.SelectedItem = "Convidado" Then
UserTipe = "Convidado"
comando.LogIn()
End If
End Sub
Private Sub Monitor_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If tentativas = 0 Then
btn_login_custom.Enabled = False
label_aguarde.Text = "Aguarde"
label_segundos.Text = "segundos."
label_tempo.Text = 10
penal_timer.Start()
Monitor.Stop()
End If
End Sub
Private Sub penal_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If label_tempo.Text > 1 Then
btn_login_custom.Enabled = False
label_tempo.Text = label_tempo.Text - 1
Else
tentativas = 3
label_aguarde.Text = ""
label_segundos.Text = ""
label_tempo.Text = ""
btn_login_custom.Enabled = True
Monitor.Start()
penal_timer.Stop()
End If
End Sub
Private Sub txt_pass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If btn_login_custom.Enabled = False Then
Else
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
btn_logar_code()
End If
End If
End Sub
Private Sub protect_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim t() As Process
t = Process.GetProcessesByName("taskmgr")
If t.Length > 0 Then
t(0).Kill()
End If
End Sub
Private Sub txt_user_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
If txt_user.SelectedItem = "Convidado" Then
txt_pass.Enabled = False
Else
txt_pass.Enabled = True
End If
End Sub
Private Sub Login_Form_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.Alt And e.KeyCode = Keys.F4 Then
e.Handled = True
End If
End Sub
Private Sub Login_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
GetRegistro()
Try
wallchange.Change()
Catch ex As Exception
End Try
End Sub
Private Sub Registro(ByVal Path As String)
Dim regKey As RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue("CyberEx", Path)
End Sub
Private Sub GetRegistro()
Dim path As String
Dim regKey As RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
path = regKey.GetValue("CyberEx")
If path = Application.StartupPath & "\" & My.Application.Info.AssemblyName Then
Else
Registro(Application.StartupPath & "\" & My.Application.Info.AssemblyName)
End If
End Sub
Private Sub btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If MessageBox.Show("Deseja desligar o computador ?", "Aviso", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
Try
My.Settings.Save()
System.Diagnostics.Process.Start("ShutDown", "/s /t 0")
End
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Else
End If
End Sub
Private Sub btn_login_custom_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
btn_logar_code()
End Sub
Public Sub btn_logar_code()
If txt_user.SelectedItem = "Convidado" Then
btn_login_custom.Image = My.Resources.login_button_mouseclick
btn_login_custom.Enabled = False
txt_pass.Enabled = False
lb_lg_status.Text = "Logando..."
Timer1.Start()
Else
If txt_pass.Text = "" Or txt_user.Text = "" Then
btn_login_custom.Image = My.Resources.login_button_mouseclick
Else
btn_login_custom.Image = My.Resources.login_button_mouseclick
btn_login_custom.Enabled = False
txt_pass.Enabled = False
lb_lg_status.Text = "Logando..."
Timer1.Start()
End If
End If
End Sub
Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer1.Tick
Timer1.Stop()
btn_login_custom.Image = My.Resources.login_button
btn_login_custom.Enabled = True
txt_pass.Enabled = True
lb_lg_status.Text = ""
Logar()
End Sub
Private Sub btn_login_custom_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_login_custom.MouseEnter
btn_login_custom.Image = My.Resources.login_button_mouseover
End Sub
Private Sub btn_login_custom_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_login_custom.MouseLeave
btn_login_custom.Image = My.Resources.login_button
End Sub
End Class
