HAUTE SECURITE AVEC XPLAUNCHPROTECTED
tinux
Messages postés
244
Date d'inscription
mercredi 13 avril 2005
Statut
Membre
Dernière intervention
21 octobre 2013
-
14 mai 2006 à 19:17
tinux Messages postés 244 Date d'inscription mercredi 13 avril 2005 Statut Membre Dernière intervention 21 octobre 2013 - 19 mai 2006 à 17:36
tinux Messages postés 244 Date d'inscription mercredi 13 avril 2005 Statut Membre Dernière intervention 21 octobre 2013 - 19 mai 2006 à 17:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37595-haute-securite-avec-xplaunchprotected
https://codes-sources.commentcamarche.net/source/37595-haute-securite-avec-xplaunchprotected
19 mai 2006 à 17:36
16 mai 2006 à 18:41
16 mai 2006 à 18:28
16 mai 2006 à 13:21
Erf grosse erreur ici:
Dim Reg1 As RegistryKey = Registry.CurrentUser.CreateSubKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon")
en faisant Registry.CurrentUser.CreateSubKey tu es sous HKEY_CURRENT_USER !
Pour exrire sous HKEY_LOCAL_MACHINE il faut ecrire
Registry.LocalMachine.CreateSubKey "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
Ceci dans le cas ou la cle n'existe pas, si elle existe deja, utilise OpenSubKey a la place de CreateSubKey...
++
16 mai 2006 à 11:53
simplement en regardant l'idée et vos commentaires. je trouve l'idée assez sympa même s'il manque de maturité dans la réalisation..
15 mai 2006 à 18:46
15 mai 2006 à 18:43
15 mai 2006 à 17:49
Erf j'oubliais, il faut importer les reference sinon ca ne marche pas...
ecris ceci tout au dessus de ta feuille:
Imports Microsoft.Win32
Imports System.Diagnostics
15 mai 2006 à 17:47
15 mai 2006 à 17:00
Eh pour ecrire dans la bdr, voici un petit exempel vite fait:
Dim Reg As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Ma cle")
Dim Val As Int32 = 1
Reg.SetValue("Ma Valeur", Val, RegistryValueKind.DWord)
Pour terminer un processus par son nom:
(attention, tous les processus portant se nom seront ferme!)
Dim Proc() As Process = Process.GetProcessesByName("iexplore")
For Each Processus As Process In Proc
Processus.CloseMainWindow()
Processus.Kill()
Next
Bonne prog
++
15 mai 2006 à 16:25
Pour l'instant le demarrage n'est pas au point du tout ! lol c'est clair que on desactive et hop !
utiliser le shell (je débute) c'est la seule méthode efficace que j'ai trouvé pour l'instant...
Pour le Wscript, j'ai pas trop fait gaffe, je voulais surtout bloquer le bureau... d'ailleurs ce bout de code n'est pas de moi ^^ (encore une fois je débute lol)
Je reste donc et merci e_Nex à toute piste vers laquelle je pourrais améliorer mon soft, je trouve que j'ai integré pas mal de trucs nouveaux que j'ai pas vu sur VBfrance mais c'est clair qu'il y a des trucs a rajouter ou modifier...
Allez merci les gars, j'aimerais vraiment améliorer un peu la source
15 mai 2006 à 05:37
allez. bon codage a tous!
15 mai 2006 à 01:18
Il suffit de desactiver ton soft du boot de Windows...
de plus niveau code, on est loin du compte!
Utiliser Wscript en .net pour ecrire dans la bdr c'est fort quand meme!
tout comme utiliser un shell pour killer un process! mdr
Ton code ressemble plus a un malware qu'a un soft de securite!!
++
14 mai 2006 à 20:52
Pas de problème sur mon pc, demain je teste sur un autre pour corriger d'eventuels noeuds..
14 mai 2006 à 20:50
Ta source plante sur je ne sais quelle instruction dans je ne sais quel timer.
Du coup plus d'accès au task manager et plus de barre de taches....plus d'icones bureau, raccourci Windows + E HS...et j'en passe
Encore heureux qu'il me reste cette fenetre Internet....Comme si j'avais que sa à faire de redemarrer mon pc lol
14 mai 2006 à 19:17
Je n'ai pas fournit les passwords pou voir si vous pouvez les retrouver... Bien sur demandez-les moi et je vous les donnerait.
Pour télécharger le programme executable :
>> http://www.prohtml.perso.cegetel.net/Setup.exe <<