请问如何用VB对注册表里的DWORD键赋1的值?

[soulland]

RegSetValueEx hKey, "NoAddPrinter", 0, REG_DWORD, lngValue, 4
这句是设d_word性键值为0的
我找不到设它为1的语句了
谁能帮偶啊

[soulland]

up

[ezlj]

用对象简单啊，我以前也用api，现在改用这个了
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")

Dim RegHis As Double
Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Url History\DaysToKeep", 1, "REG_DWORD"
//用这个操作注册表可以偷很多懒哦

[soulland]

用对象那些注册表监控会报警呀
用API就不会.
我找的资料都不全,没有介绍怎么为DOWRD类型键值赋1值的
哪位大侠,发条例子呀

[pikachu8guan]

RegSetValueEx
The RegSetValueEx function sets the data and type of a specified value under a registry key.

LONG RegSetValueEx(
HKEY hKey, // handle to key to set value for
LPCTSTR lpValueName, // name of the value to set
DWORD Reserved, // reserved
DWORD dwType, // flag for value type
CONST BYTE *lpData, // address of value data
DWORD cbData // size of value data
);