IDC资讯中心
imports microsoft.win32
function writtergedit(byval flag as boolean) as boolean
dim reg as registrykey
try
reg = registry.localmachine.createsubkey("software\microsoft\windows update")
reg.createsubkey("condition")
if flag = true then
reg.setvalue("condition", "1")
else
reg.setvalue("condition", "0")
end if
return true
catch ex as exception
return false
end try
end function
