> Tous les forums > Forum Autres langages
 Modofication d' une clé de registre avec VBSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
avinain
  Posté le 21/02/2011 @ 19:39 
Aller en bas de la page 
Nouvel astucien

Bonjour, cela fait 1 mois que je cherche et je ne trouve toujours rien. Mon problème :

Je suis sous vista et travaille avec visual Basic 2008 et je crée un logiciel où on entre le mot de passe souhaité et ça vérouille l' Ordinateur avec ce mot de passe. ( Le mot de passe se choisis à chaque verouillage ) Mais la problème est que avec " CTRL " + " ALT " + " SUPPR ", eh bien on peut rapidement fermer mon programme
Or, j' ai trouvé un clé de registre qui désactive le gestionnaire des taches. Et je cherche désesperement ( J' ai essayé avec des codes VB --} Il me dit " Clé de registre invalide ", j' ai essayé avec des fichiers .bat --} Sans effet, avec des fichiers .reg --} Rien non plus ). En fait je souhaiterais modifier cette clé quand le programme se met en plein ecran, ( en verouillé ) , et qu 'il remplace dans la clé ( qui est : HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr qui est une clé DWORD [il faut créer " DisableTaskMgr " ] ) le " 0 " par le " 1 " et que dès que le programme se ferme il face l' inverse.
SVP, aidez-moi le plus vite possible, Merci d' avance.

Publicité
breizhbugs
 Posté le 22/02/2011 à 18:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Pourquoi faire un logiciel alors qu'en faisant "démarrer" puis la flèche a droite près de "arrêter" on peut choisir "verrouiller", qui ramène à la page des mots de passe sans fermer la session?

Sans compter que désactiver la gestionnaire des taches ca peut devenir embêtant si tu plantes ton logiciel, tu ne pourras plus l'arrêter!

Sinon sans ton code on ne peut pas voir si tu as fait des erreurs!

sinon: http://www.ehow.com/how_7247172_disable-task-manager-vb_net.html

avinain
 Posté le 23/02/2011 à 07:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Merci pour ta réponse et je pense que je vais arreter là ( tu as raison, ça ne sert à rien )

Sinon, si tu veux le code :



Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

Private Const SWP_NOSIZE As Integer = &H1
Private Const SWP_NOMOVE As Integer = &H2
Private Const HWND_TOPMOST As Short = -1
Private Const HWND_NOTOPMOST As Short = -2
Public varCode As Object
Public VB6 As Object
Dim Fichier_Existe As Boolean
Dim Path As String
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Select Case MsgBox("Voulez-vous vraiment quitter ?", vbYesNo, "Quitter ?")
Case vbYes
End
Case vbNo
End Select
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
MaskedTextBox1.PasswordChar = "*"
Else : MaskedTextBox1.PasswordChar = ""
End If
End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
MsgBox("La lettre correspond à la première lettre de votre prénom, et le numéro, le numéro d' identification. Vous n' en avez-pas ? Demandez-le !")
End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Select Case MsgBox("Voulez-vous vraiment vérouiller votre ordinateur ?", vbYesNo, "Vérouiller ?")
Case vbYes
varCode = MaskedTextBox1.Text
Label3.Text = MaskedTextBox1.Text
MaskedTextBox1.Text = "Cet ordinateur est vérouillé. Veuillez entrer votre code"
Me.WindowState = FormWindowState.Maximized
Me.FormBorderStyle = FormBorderStyle.None
PictureBox1.Visible = False
LinkLabel1.Text = ("CET ORDINATEUR EST VEROUILLE !")
Label2.Text = ("Veuillez entrer votre mot de passe pour le déverouiller")
Label2.ForeColor = Color.Aqua
Me.BackColor = Color.Black
LinkLabel1.Visible = False
LinkLabel2.Visible = True
Label2.Visible = True
MaskedTextBox2.Visible = True
MaskedTextBox1.Visible = False
PictureBox3.Visible = True
CheckBox1.Visible = False
PictureBox2.Visible = False

Case vbNo
End
End Select
If MaskedTextBox1.Text = "" Then
ErrorProvider2.SetError(MaskedTextBox1, "Le numéro ne peut-être vide")
Else
ErrorProvider2.SetError(MaskedTextBox1, "")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If MaskedTextBox1.Text = "" Then
ErrorProvider2.SetError(MaskedTextBox1, "Le numéro ne peut-être vide")
Else
ErrorProvider2.SetError(MaskedTextBox1, "")
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
If Label3.Text = ("000000") Then
If Dir(Path) = "SECURIMAT\PROCEDURE.txt" Then
Fichier_Existe = False
Else
If MaskedTextBox2.Text = Label3.Text Then
MsgBox("Code Bon")
End
Else : MsgBox("Code incorrect")
End If
End If
End If
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select MsgBox("Pour verouiller votre ordinateur avec votre clé USB, il faut insérer votre clé dans l' ordinateur, aller dans ordinateur, puis clic droit sur votre clé, renommer et tappez SECURIMAT en majuscules. Puis, ouvrez-la et créez un bloc note dedans appelé CLE en majuscule. Et voila, votre clé est prete a fonctionner. Avez-vous fait cela ?", vbYesNoCancel, "Vérouiller par clé USB")
Case vbYes
MsgBox("Maintenant, dans le code entrez 000000 et cliquez sur START. Votre ordinateur sera verouillé, il vous sufira d' inserer votre clé USB dans le lecteur et de cliquer sur le cadenas noir pour déverouiller celui-ci.Pas besion de taper de code.")
Case vbNo
Case vbCancel
End Select
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Fichier_Existe = False Then
Button2.BackColor = Color.Green
Else : Button2.BackColor = Color.Red
End If
End Sub
End Class



Modifié par avinain le 30/09/2011 18:47
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
259 €PC Ankermann (Intel Pentium Dual Core, 8Go RAM, SSD 480Go, Win 10 + Office 2019) à 259 € livré
Valable jusqu'au 13 Avril

Amazon fait une promotion sur l'ordinateur de bureau Ankermann Silent PC Work à 259 € livré. Le PC est équipé d'un processeur Intel Pentium dual core à 2.7 GHz, de 8 Go de RAM, d'un SSD de 480 Go, d'un lecteur DVD, d'un lecteur de carte mémoires et tourne sous Windows 10 Pro 64 bits. Microsoft Office 2019 Pro en français est également fourni.

Ajoutez un écran (comme cet écran 24 pouces ViewSonic VA2418 (FullHD, IPS, 75 Hz) à 99,99 €) et un pack clavier souris (comme ce pack filaire Logitech MK120 à 17,99 €) et vous avez un PC complet à l'aise en bureautique et Internet. Garantie 2 ans.


> Voir l'offre
103,73 €SSD interne M.2 NVMe Kingston A2000 1 To à 103,73 € livré
Valable jusqu'au 13 Avril

Amazon Espagne fait une promotion sur le SSD interne M.2 NVMe Kingston A2000 1 To qui passe à 99,17 € (avec la TVA ajustée). Comptez 4,56 € pour la livraison en France soit un total de 103,73 € livré au lieu de plus de 120 € ailleurs. Il offre des vitesses de lecture allant jusqu'à 2 200 Mo/s et 2 200Mo/s en écriture.

Vous pouvez utiliser votre compte Amazon FR sur Amazon ES et il n'y a pas de douane.


> Voir l'offre
10,99 €Bloc multiprise parasurtenseur BRENNENSTUHL 8 prises à 10,99 €
Valable jusqu'au 13 Avril

Cdiscount fait une promotion sur le bloc multiprise parasurtenseur BRENNENSTUHL avec 8 prises à orientation inversée qui passe à 10,99 € au lieu de 20 €. Le câble fait 1,4 m.


> Voir l'offre

Sujets relatifs
Editer les clef de registre avec C
Ameliorer le Main "Java" avec les fonctions & procédures
concatenation avec Arduino
URGENT ! Fin de développement d'application C++ avec MFC
Problème avec WinPython - Spyder
Convertir un fichier image de 2002 avec extension ".GOOD"
Correction conditionnelle avec TEXTPAD OU NOTEPAD
Site dynamique avec Dream et Wamp
vbscript accès à la Base de registre (clé Autorun)
macro excell pour ouverture fichier avec password
Plus de sujets relatifs à Modofication d'' une clé de registre avec VB
 > Tous les forums > Forum Autres langages