× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
9,99 €Adaptateur Bluetooth USB TP-Link UB400 à 9,99 €
Valable jusqu'au 28 Octobre

Amazon fait une promotion sur l'adaptateur Bluetooth USB TP-Link UB400 qui passe à 9,99 €. Cet adaptateur à brancher sur un port USB va vous permettre d'ajouter le bluetooth à votre ordinateur et d'utiliser ensuite sans fil vos périphériques bluetooth : souris, clavier, casque, manette, téléphone, ...


> Voir l'offre
67,40 €Kit de 16 Go (2x8Go) de mémoire DDR4 Corsair Vengeance RGB Pro 3200 MHz à 67,40 € livré (via coupon)
Valable jusqu'au 27 Octobre

Amazon Allemagne fait une promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 Corsair Vengeance RGB Pro 3200 MT/s CL16 à 62,67 € (avec la TVA ajustée) grâce à un coupon de réduction automatiquement appliqué au paiement. Comptez 4,73 € pour la livraison en France soit un total de 67,40 € livré alors qu'on le trouve ailleurs autour de 119 €. Vous pourrez personnaliser la palette de couleurs directement depuis le logiciel Corsair iCU.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
519,90 €Ultrabook HONOR MagicBook 14 (Ryzen 5 3500U, 8Go, 256 Go SSD) à 519,90 €
Valable jusqu'au 01 Novembre

HONOR fait une promotion sur son ultrabook HONOR MagicBook 14 qui passe à 519,90 € au lieu de 700 € grâce au code promo AMACHINES30PROMO. Cet ordinateur portable possède un écran 14 pouces Full HD IPS, un processeur AMD Ryzen 5 3500U (avec chip graphique Vega 8), 8 Go de mémoire DDR4, un SSD 256 Go PCIe NVME, le WiFi5 / Bluetooth 5.0, un lecteur d'empreintes, une webcam, un clavier rétro éclairé, une batterie 56 Wh (jusqu'à 10h d'autonomie) et ne pèse que 1,38 kg. Il fonctionne sous Windows 10. Une très bonne affaire pour une machine compacte et puissante.


> 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