j***6
发帖数: 107 | 1 求助！这段code如何使用？
兄弟要想修改IE的主页, 但是没有管理员权限，在网上找到一段代码，说是可以办到，
好像是excel论坛里的。具体步骤如何，是用excel将这段代码生成一个exe文件，还是
在excel内部运行，我也不懂编码，请高手指导一下，不胜感激！
Option Explicit
Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1
Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" _
Alias "RegOpenKeyA" (ByVal hKey As Long, _
ByVal lpSubKey As String, phkResult As Long) As
Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal Reserved As
Long, _
ByVal dwType As Long, lpData As Any, _
ByVal cbData As Long) As Long
Sub TestSetHomePage()
SetHomePage "http://www.google.co.uk/"
End Sub
Sub SetHomePage(strPage As String)
Dim hKey As Long
Dim varValue, varReturn
Dim strValue As String
strValue = strPage & Chr$(0)
RegOpenKey HKEY_CURRENT_USER, _
"Software\Microsoft\Internet Explorer\Main", hKey
RegSetValueEx hKey, "Start page", 0&, REG_SZ, ByVal strValue,
Len(strValue)
RegCloseKey hKey
End Sub | b***i
发帖数: 3043 | 2 你可以运行Macro吗？
这个是VBA
;
【在 j***6 的大作中提到】
: 求助！这段code如何使用？
: 兄弟要想修改IE的主页, 但是没有管理员权限，在网上找到一段代码，说是可以办到，
: 好像是excel论坛里的。具体步骤如何，是用excel将这段代码生成一个exe文件，还是
: 在excel内部运行，我也不懂编码，请高手指导一下，不胜感激！
: Option Explicit
: Const HKEY_CURRENT_USER = &H80000001
: Const REG_SZ = 1
: Private Declare Function RegCloseKey Lib "advapi32.dll" _
:
: (ByVal hKey As Long) As Long
| j***6
发帖数: 107 | 3 多谢。已经修改好主页了。为什么excel可以绕过设置的权限来修改注册表呢？
【在 b***i 的大作中提到】
: 你可以运行Macro吗？
: 这个是VBA
:
: ;
|
|
