'你的错误：
成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站制作、做网站、外贸营销网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的拱墅网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
'注册表中如果不存在子键"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
'你怎么能打开它呢？
'已帮你改好
Option Explicit On
Option Strict On
Module Program
Sub Main()
Dim key As Microsoft.Win32.RegistryKey=Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", True)
If key Is Nothing Then
key=Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION")
End If
Dim subkey As Microsoft.Win32.RegistryKey=key.CreateSubKey("2.exe")
subkey.SetValue("REG_DWORD", 111111, Microsoft.Win32.RegistryValueKind.DWord)
subkey.Close()
key.Close()
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
我非常肯定的说，你的这个问题出在你写入注册表的路径（也就是你上面写的FilePath），你想修改就自己动手吧（你直接换一个你知道现在的电脑某一程序的绝对路径试试你就知道了），这种东西我做过，都可以启动，还有一个问题是，你的安全软件要注意设置为允许修改注册表，否则同样会出问题
.net2005 中My.Computer.Registry 对象的 CreateSubKey 方法可用于创建注册表项。
过程
创建注册表项
使用 CreateSubKey 方法，指定在其下放置注册表项的配置单元以及注册表项的名称。参数 Subkey 不区分大小写。此示例在 HKEY_CURRENT_USER 下创建注册表项 MyTestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
创建注册表项并在注册表项中设置值
使用 CreateSubkey 方法，指定在其下放置注册表项的配置单元以及注册表项的名称。此示例在 HKEY_CURRENT_USER 下创建注册表项 MyTestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
用 SetValue 方法设置值。此示例将字符串值"MyTestKeyValue" 设置为 "This is a test value"。
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyTestKey", _
"MyTestKeyValue", "This is a test value.")
1、首先引用命名空间：using Microsoft.Win32;
2、几个基本主键：
Registry.ClassesRoot;对应于HKEY_CLASSES_ROOT主键
Registry.CurrentUser; 对应于HKEY_CURRENT_USER主键
Registry.LocalMachine; 对应于 HKEY_LOCAL_MACHINE主键
Registry.User; 对应于 HKEY_USER主键
Registry.CurrentConfig; 对应于HEKY_CURRENT_CONFIG主键
Registry.DynDa; 对应于HKEY_DYN_DATA主键
Registry.PerformanceData; 对应于HKEY_PERFORMANCE_DATA主键
3、返回或创建一个注册表键
Dim Key1 As Microsoft.Win32.RegistryKey
Key1 = My.Computer.Registry.CurrentUser '返回当前用户键
Dim Key2 As Microsoft.Win32.RegistryKey
Key2 = Key1.OpenSubKey("northsnow") '返回当前用户键下的northsnow键
If Key2 Is Nothing Then
Key2 = Key1.CreateSubKey("northsnow") '如果键不存在就创建它
End If
最简单的办法就是用shell
语句
添加和创建注册表项
shell
"cmd
/c
reg
add
hklm\software\myco
/v
data
/t
reg_binary
/d
fe340ead"
删除注册表项
shell
"cmd
/c
reg
delete
hklm\software\myco\myapp\timeout"
删除注册表项
timeout
及其所有子项和值
具体语法请在cmd中输入
reg/?
