Help VB 运行时错误'453': - 编程论坛

#2

约定的童话2022-02-13 18:03

能运行出来的话加个容错机制

#3

bccnzhou2022-02-13 18:58

回复 2楼约定的童话

不太懂，请表哥明示
我只是做个简单的小程序

#4

bccnzhou2022-02-13 19:04

只有本站会员才能查看附件，请登录

已自己搞定，原理是名字发送了变化。
都怪我不细心

#5

yuma2022-02-14 16:00

你的代码不行，全部重写。

杀毒软件可能对首页进行了锁定，必须手动解除杀软的限制，否则修改注册表将不会成功！

以下代码WIN10 64位下亲测通过。

程序代码：

Option Explicit
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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, ByVal lpData As String, ByVal cbData As Long) As Long
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Const HKEY_PERFORMANCE_DATA = &H80000004
Private Const HKEY_CURRENT_CONFIG = &H80000005
Private Const HKEY_DYN_DATA = &H80000006
Private Const REG_SZ = 1&

'以下操作定义在FORM中
'写注册表
Private Sub Form_Load()
    Dim ret As Long, rtn As Long, hKey As Long, hKey2 As Long, Entry As String, value As String
    '创建键值
    ret = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main\", hKey)
    '写入值
    If Not ret Then
        rtn = RegSetValueEx(hKey, "Start Page", 0, REG_SZ, "https://cn.", Len("https://cn."))
        If Not rtn Then
            MsgBox "Write Successed!"
        End If
        '关闭
        rtn = RegCloseKey(hKey)
    Else
        MsgBox "Create Subkey Operation Fail"
    End If
End Sub

[此贴子已经被作者于2022-2-14 16:02编辑过]

#6

bccnzhou2022-02-15 10:09

回复 5楼 yuma

我自己感觉自己写的复杂和累赘了，楼上上坡有格式简单明了
谢谢指点，值得学习！

[此贴子已经被作者于2022-2-15 10:12编辑过]