:P هذه أول مشاركة لي في الفريق العربي للبرمجة و أملي أن أتميز في هذا المنتدى
لذا أقدم لكم كود يقوم بجعل شبكة العمل مستقرة وذلك بتحديد عدد أقصى لthreeds
الكود كالتالي
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters", "MaxCmds", 100, Microsoft.Win32.RegistryValueKind.DWord)
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters", " MaxThreads", 100, Microsoft.Win32.RegistryValueKind.DWord)كود يقوم بتسريع ظهور الإيقونات
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer", "MaxCachedIcons", 33170)و أنا أآسف نظرا لأنه لا يعمل إلا على vb2005 نظرا لإستخدام الصنف my فيه
أرجو من أحد الأعضاء تحويله إلى vb2003
على العموم بعد أن أنتهي من جميع هذه الأكواد المعدلة في الرجستري
سأعرضها عليكم في مكتبة أكواد خاصة
ها أنا على موعدي و أقدم لكم الكود التالي
Public Sub ChangerLaVitesseDeSouris(ByVal x As Integer)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Mouse", "MouseSensitivity", x, Microsoft.Win32.RegistryValueKind.String)
End Subالكود يقوم بزيادة سرعة CURSOR
في الأحوال العادية السرعة هي 10 وتعتبر 16 سرعة مثالية للماوس
-_-
Public Sub AccélererLaccésAuFichierAVI()
Dim x As Microsoft.Win32.RegistryKey
x = Microsoft.Win32.Registry.ClassesRoot
x = x.OpenSubKey("CLSID", True)
x.CreateSubKey("{87D62D94-71B3-4b9a-9489-5FE6850DC73E}")
End Subمهمة الكود أنه يقوم بتسريع قراءة ملفات avi من خلال Windows media player
و هذا كود أخر
Public Sub ChangerScrollVitesse(ByVal x As Integer)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "WheelScrollLines", x & "-0xFFFFFFFF", Microsoft.Win32.RegistryValueKind.String)
End Subمهمة الكود أنه يقوم بزيادة أو نقصان سرعة scroll للفأرة
ملحوظة : السرعة الإفتراضية هي 3 لذا لا يجب زيادة العدد كثيرا لأن ذلك يؤدي إلى وقف scroll عن العمل
أقدم لكم الكودين التاليين :
Public Sub ConfigurationDeLaPrioritéDuCPU()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl", "Win32PrioritySeparation", 38, Microsoft.Win32.RegistryValueKind.DWord)
End Subمهمة الكود أنه يسرع المعالج
وهذا الكود
Public Sub UtiliserToutelaMémoireCacheL2duProcesseur()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "SecondLevelDataCache", 100, Microsoft.Win32.RegistryValueKind.DWord)
End Subالكود يجعل المعالج يستعمل كل الذاكرة المخفية و هذا يؤدي إلى تسريعه
:P
Public Sub activerBeepDansErrorImprimante()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print", "BeepEnabled", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Subالكود يقوم بجعل الويندوز يصدر صوت عند الخطأ في الطابعة
Public Sub DésactiverBeepDansErrorImprimante()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print", "BeepEnabled", 0, Microsoft.Win32.RegistryValueKind.DWord)
End Subالكود يقوم بجعل الويندوز لا يصدر صوت عند الخطأ في الطابعة
Public Sub HideMessengerFromOutlook()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express", "Hide Messenger", 2, Microsoft.Win32.RegistryValueKind.DWord)
End Subالكود يحذف WINDOWS MESSENGER من OUTLOOK EXPRESS
Public Sub ProtégésMediaPlayerContreLesScripts()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\MediaPlayer\Preferences", "PlayerScriptCommandsEnabled", 0, Microsoft.Win32.RegistryValueKind.DWord)
End Subالكود يقوم بحماية WINDOWS MEDIA PLAYER ضد السكربتات الضارة
بإنتظار ردودكم :P
*-)
Public Sub désactiverScreenSaverPendantLutilisationDeMediaPlayer()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\MediaPlayer\Preferences", "EnableScreensaver", 0)
End Subالكود يقوم بتعطيل حافظة الشاشة عند العمل ب WINDOWS MEDIA PLAYER
يا أخي كود البرنامج مصمم قبلا ويمكنني إرفاق ملف dll جمعت فيه جميع الأكواد
ولكن الواجهة حيرتني بسبب كثرة التعديلات في الرجستري
أنا أفكر في أن أجمع التعديلات في treeview
أما بالنسبة لمكتبة الأكواد على المنتدى
فتفضلوا هذا الكود
Public Sub x()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download", "CheckExeSignatures", "no")
End subيقوم هذا الكود بحجب رسالة التنبيه عند تشغيل أية ملفات حملتها من الأنترنيت ;)
منتظر ردودكم يا إخواني
:P
أقدم لكم هذا الكود
Public Sub DésactiverLesAssistantOFFICExp()
Dim x As Microsoft.Win32.RegistryKey
x = Microsoft.Win32.Registry.CurrentUser
x = x.OpenSubKey("SOFTWARE\Microsoft\Office\[ver]\Common", True)
x.DeleteSubKey("Assistant")
End Sub
مهمة الكود أنه يقوم بحذف المعالجات assistant من office xp أو 2000 ;)
Public Sub disablecommandprocessurextension()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Command Processor", "EnableExtensions", 0)
End Subمهمة الكود أنه يقوم بتعطيل Command Processor (لم أجد مقابل المصطلح باللغة العربية <_< )
Public Sub enablecommandprocesseurextension()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Command Processor", "EnableExtensions", 1)
End Subمهمة الكود أنه يقوم بفك تعطيل Command Processor
Public Sub enablefullscreen()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Console", "FullScreen", 1)
End Subمهمة الكود أنه يقوم بجعل Command Processor يشتغل على الشاشة كاملة
Public Sub disablefullscreen()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Console", "FullScreen", 0)
End Subمهمة الكود أنه يقوم بجعل Command Processor لا يشتغل على الشاشة كاملة
Public Sub SpecifytheDrWatsonLogDirectory(ByVal directory As String)
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "LogFilePath", directory, Microsoft.Win32.RegistryValueKind.String)
End Subمهمة الكود أنه يقوم بتحديد مكان كتابة برنامج dr watson ل log من خلال برامتر أسميته directory
Public Sub SpecifytheWaveFileforSoundNotification(ByVal directory As String)
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "WaveFile", directory)
End Subمهمة الكود أنه يقوم بتحديد مكان ملف صوتي من نوع wav يقوم dr watson بتشغيله عند كل إنذار
Public Sub enableDrWatsonAlertsUsingPopups()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "VisualNotification", 1)
End Subمهمة الكود أنه عندما يصدر dr watson إنذارا فإن هذا الإنذار يرفق بصوت
Public Sub disableDrWatsonAlertsUsingPopups()
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DrWatson", "VisualNotification", 0)
End Subمهمة الكود أنه عندما يصدر dr watson إنذارا فإن هذا الإنذار لا يرفق بصوت
أقدم لكم الكود التالي :
