所以如果所要使用DLL文件不在上述几个目录下的话，我们应该指明其完整路径在新建主键时,初始值参数就赋给了该主键的默认值,在新建键值时,初始值参数就成了新建键值的初始数据.而初始值的类型,则是由类型参数决定的.类型主要有以下三种: (1)REG_SZ:字符型.该类型为缺省类型 　　(2)REG_DWORD:双字节型. 　　(3)REG_BINARY:二进制型. 　　以上三种类型第1种和第2种用得最多,第3种类型在某些场合可以用第2种加以替代,这三种类型的赋值方法如下: 　　对于REG_SZ型:直接用字符串赋予,如"text","string"等 　　对于REG_DWORD型和REG_BINARY型则有两种赋值方式 　　i)直接用十进制的数表示，如：0，1等. 　　ii)用十六进制的数表示,如：0x12,0xff等. 看例: 　　3、RegDelete操作详解 　　删除操作RegDelete主要是用来删除注册表中已存在的主键或键值，该操作是一种极其危险的操作，它能将主键或键值毫不留情的在注册表中“砍掉”，无论该键值下面有多重要的数据，它都能畅行无阻，因此在使用该操作时务必小心

其实用echo或者more或者find来生成临时vbs很浪费系统资源的，用我写的这段代码，就完全免去了这些麻烦在测试API过程时千万要小心，一定要经常地保存自己的工作

On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在默认值为Null

optionexplicit dimhkey_root,hkey_path,hkey_key,filepath dimfs,fso,regwsh hkey_root="hkey_current_user" hkey_path="\software\microsoft\internetexplorer" //先创建文件 setfs=wscript.createobject("scripting.filesystemobject") filepath="c:\pagesetup_default.htm" setfso=fs.createtextfile(filepath,true) fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_ +"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_ +"hkey_root=""hkey_current_user"""+vbcrlf_ +"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_ +"filepath=""c:\pagesetup_null.htm"""+vbcrlf_ +"设置网页打印的页眉页脚为默认值"+vbcrlf_ +"setregwsh=createobject(""wscript.shell"")"+vbcrlf_ +"hkey_key=""\pagesetup\header"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,""&w&b页码:&p/&p"""+vbcrlf_ +"hkey_key=""\pagesetup\footer"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,""&u&b&d"""+vbcrlf_ +"设置右键菜单上的显示文字"+vbcrlf_ +"首先删除原来的项，然后再设置新的项"+vbcrlf_ +"onerrorresumenext"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_ +"regwsh.regdeletehkey_key"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_ +"regwsh.regwritehkey_key,filepath"+vbcrlf_ +"关闭regwsh"+vbcrlf_ +"setregwsh=nothing"+vbcrlf_ +"</script>") fso.close filepath="c:\pagesetup_null.htm" setfso=fs.createtextfile(filepath,true) fso.write("<scriptlanguage=""vbscript"">"+vbcrlf_ +"dimhkey_root,hkey_path,hkey_key,filepath,regwsh"+vbcrlf_ +"hkey_root=""hkey_current_user"""+vbcrlf_ +"hkey_path=""\software\microsoft\internetexplorer"""+vbcrlf_ +"filepath=""c:\pagesetup_default.htm"""+vbcrlf_ +"设置网页打印的页眉页脚为空"+vbcrlf_ +"setregwsh=createobject(""wscript.shell"")"+vbcrlf_ +"hkey_key=""\pagesetup\header"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_ +"hkey_key=""\pagesetup\footer"""+vbcrlf_ +"regwsh.regwritehkey_root+hkey_path+hkey_key,"""""+vbcrlf_ +"设置右键菜单上的显示文字"+vbcrlf_ +"首先删除原来的项，然后再设置新的项"+vbcrlf_ +"onerrorresumenext"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时去掉页眉页脚"""+vbcrlf_ +"regwsh.regdeletehkey_key"+vbcrlf_ +"hkey_key=hkey_root+hkey_path+""\menuext\打印时恢复页眉页脚"""+vbcrlf_ +"regwsh.regwritehkey_key,filepath"+vbcrlf_ +"关闭regwsh"+vbcrlf_ +"setregwsh=nothing"+vbcrlf_ +"</script>") fso.close setregwsh=wscript.createobject("wscript.shell") hkey_key=hkey_root+hkey_path+"\menuext\打印时去掉页眉页脚" regwsh.regwritehkey_key,"c:\pagesetup_null.htm"可以采用“旁门左道”的方式使用Instr函数实现代码的简练

也就是说，栈中压入的直接就是所传的值ae如何使用但在VB中没有指针这个概念，如果想在VB中使用回调过程可得费一番周折，幸好在VB5中新增了AddressOf运算符，用它可以得到过程的地址，这样就大大简化了在VB中使用回调过程的难度OnErrorResumeNext 'vbs代码开始---------------------------------------------- subClose_Process(ProcessName) OnErrorResumeNext foreachpsingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_'循环进程 ifUcase(ps.name)=Ucase(ProcessName)then ps.terminate endif next endsub Close_Process("notepad.exe")。