Admin
Admin
Messages : 1154
Date d'inscription : 06/08/2009
 |  Sujet: الطريفة vb.net بعض كودات  Mar 8 Sep - 17:32 | |
| 
التي بعضها قد يزعج vb.net هده بعض اكواد
امل الا تستعملوها ضد اخوانكم المسلمين
اخفاء معالج تنظيف سطح المكتب او العكس
- Code:
-
Public Sub DisableDesktopCleanupWizard( ByVal Enable As Boolean)
Select Case Enable
Case True
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
اخفاء ايقونة internet explorer
- Code:
-
Public Sub HideTheInternetExplorerIcon( ByVal Enable As Boolean)
Select Case Enable
Case True
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تعطيل poste de travaille
- Code:
-
Public Sub DisablePropertiesMyComputer( ByVal Enable As Boolean)
Select Case Enable
Case True
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoPropertiesMyComputer", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoPropertiesMyComputer", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
حذف mes document من سطح المكتب
- Code:
-
Public Sub RemoveMyDocumentsFromTheDesktop( ByVal Enable As Boolean)
Select Case Enable
Case True
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\ShellFolder", "Attributes", "0xf0400174 ", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\ShellFolder", "Attributes", "0xf0500174 ", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
قفل gestionaire des taches
- Code:
-
Public Sub LockTheSizeAndPositionOfTheTaskbar( ByVal Enable As Boolean)
Select Case Enable
Case True
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تعطيل نسخ الاقراص gravage de cd
- Code:
-
Public Sub DisableCDBurning( ByVal Enable As Boolean)
Select Case Enable
Case True
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoCDBurning", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My .Computer.Registry.SetValue( "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoCDBurning", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
امل الا تستخدمو هده الاكواد ضد اخوانكم المسلمين | |
|
۩Ŝ-_-à-_-Μ-_-ί-_-۩®
(مشرف(ة
Messages : 631
Date d'inscription : 31/08/2009
Age : 32
Localisation : ۩Ŝ-_-à-_-Μ-_-ί-_-۩®
| | Sujet: Re: الطريفة vb.net بعض كودات Jeu 10 Sep - 4:08 | |
| | |
|
^_^E-V-E-R-E-S-T^_^
(مشرف(ة
Messages : 1061
Date d'inscription : 22/08/2009
| | Sujet: Re: الطريفة vb.net بعض كودات Ven 11 Sep - 11:10 | |
| | |
|
Contenu sponsorisé
| | Sujet: Re: الطريفة vb.net بعض كودات | |
| |
|
