dim start as long
创新互联坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、成都网站制作、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的远安网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
dim DllRes(1024) as byte
dim HWND as long
dim DLL(1024) as byte
dim bytes(31) as byte
My.Computer.Registry.SetValue("", "", Bytes, Microsoft.Win32.RegistryValueKind.DWord)
没测试,第三个值大概如此。
'你的错误:
'注册表中如果不存在子键"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
这说明你调用 API 传参存在问题。
首先有没有设置结构体内存对齐?
[StructLayout(LayoutKind.Sequential)] 加了吗?
COLORREF 不要用 Color 代替,用 int 代替
TCHAR cfFaceName[32] 定义为 Byte 数组也可以,带在传参前,必须初始化为 32 个长度