سورس ویژوال بیسیک | فعال سازی فولدر آپشن در ویژوال بیسیک

***بسیار مفتخریم که از سایت ما بازدید فرمودید امید است شما را در رسیدن به بخشی هرچند اندک از اهدافتان یاری نموده باشیم*** ***WWW.CESblog.Ir*** ***به وبلاگ مهندسی کامپیوتر خوش آمدید ***

آرشیو

هفته چهارم اسفند ۱۳۹۵

هفته چهارم تیر ۱۳۹۰

هفته دوم تیر ۱۳۹۰

هفته اوّل تیر ۱۳۹۰

هفته چهارم خرداد ۱۳۹۰

هفته سوم خرداد ۱۳۹۰

هفته دوم خرداد ۱۳۹۰

هفته اوّل خرداد ۱۳۹۰

هفته چهارم اردیبهشت ۱۳۹۰

هفته سوم اردیبهشت ۱۳۹۰

هفته اوّل اردیبهشت ۱۳۹۰

هفته چهارم فروردین ۱۳۹۰

هفته سوم فروردین ۱۳۹۰

هفته دوم فروردین ۱۳۹۰

هفته اوّل فروردین ۱۳۹۰

هفته چهارم اسفند ۱۳۸۹

سورس ویژوال بیسیک | فعال سازی فولدر آپشن در ویژوال بیسیک | Enable Folder Option in VB

سورس ویژوال بیسیک | فعال سازی فولدر آپشن در ویژوال بیسیک | Enable Folder Option in VB

غالبا ویروس ها folder option را غیر فعال می کنند.برای فعال سازی مجدد

از کد زیر استفاده کنید:

Dim b As Object
Dim s As String

' Need a Command button

Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
b.regwrite s, 0, "REG_DWORD"

Set b = CreateObject("wscript.shell")
s = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
b.regwrite s, 0, "REG_DWORD"
End Sub

www.cesblog.irمنبع:

سورس ویژوال بیسیک | فعال سازی فولدر آپشن در ویژوال بیسیک | Enable Folder Option in VB

+ نوشته شده توسط CES در جمعه سیزدهم خرداد ۱۳۹۰ و ساعت 18:57 |