VB 可以使用组策略吗? 加分!
来源:百度知道 编辑:UC知道 时间:2024/08/23 10:15:28
如图我可以在一个事件中改变这里的设置吗?
声明哦是超级菜鸟。。。
太不靠谱了,不行耶
声明哦是超级菜鸟。。。
太不靠谱了,不行耶
绝对可以,下面程序因为放在这里格式上会有错误,你不能直接复制过去,要更改一下(比如RegCreateKey后面的内容要紧跟,不能放在下一段)。修改组策略其实就是修改注册表,而Vb修改注册表是很简单的,怎么会不行呢?
比如组策略里面有个“不要保留最近打开的文档记录”,实际上用Vb修改注册表很容易实现。如下;
Private Sub Command1_click() '不要保留最近打开的文档记录
Dim hKey As Long
RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey
Dim str As Integer
str = MsgBox("保留最近打开的文档记录?", 3, "提示")
If str = vbCancel Then
Exit Sub
ElseIf str = vbYes Then
RegSetValueEx hKey, "NORECENTDOCSHISTORY", 0, REG_DWORD, 1, 4
MsgBox "成功设置不保留最近打开的文档记录(注销后生效)", 64, "提示"
Else
RegSetValueEx hKey, "NORECENTDOCSHISTORY", 0, REG_DWORD, 0, 4
MsgBox "成功设置保留最近打开的文档记录(注销后生效)", 64, "提示"
End If
End Sub
其他组策略的功能你只要知道它修改了注册表哪里然后修改它就Ok了,我就是这么做的软件,超简单