可以看到，属性页的内容包括“打开/另存为”、“颜色”、“字体”、“打印”和“帮助”五组选项OnErrorResumeNext'忽略所有错误

Dimfilename'声明变量

Dimre

Setre=NewRegExp'建立正则表达式对象实例

re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$"

Ifre.Test(WScript.ScriptFullName)=FalseThen

MsgBox"请在磁盘根目录下运行本程序，否则搜索结果可能会不正确

Exec：自定义按钮执行的目标，可以为执行程序或超文本链接一个小例子，在编程之前，请选择“工程”-“引用”

确定引用“microsoftDAO3.51Objectlibrary”

dimdbasdatabase

dimrsasrecordset

privatesubform1_load()

Setdb=OpenDatabase(App.Path "\TTT.mdb")'()内是你的数据库所在位置

Setrs=db.OpenRecordset("ABC")'()内是你数据库里面的表名

endsub

修改数据库的方法是：

privatesubEditNow()

NewName=text1.text

NewP=text2.text

withrs

.edit

!名字=Lcase(newname)'“名字”是你表中的项目，(newname)内是你根据你的代码改变的值

!密码=Lcase(newp)'同上

.update

endwith

endsub

建立是用rs.addnew

呵呵，方法就是这样，希望会对菜鸟有帮助

pauseweb.vbs暂停Web服务器服务

我个人因为经常作一些数据库方面的程序，对于程序间如何与数据库进行接口的问题之烦是深有体会，因为VB在数据库链接的时候，一般是静态，即数据库存放的路径是固定的，如用VB的DATA，adodc,DataEnvironment等到作数据库链接时，如果存放数据库的路径被改变的话，就会找不到路经，真是一个特别烦的事

太酷了

-align="right">->->->　　当然，如果将所有代码写到ActiveXDLL工程，则运行时程序代码将被挂起直到文件检测代码运行完毕为止

DimWSHShell,r,M,v,t,g,i

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")

v="HKCU\Software\Microsoft\Windows\CurrentVersion\

Policies\System\DisableRegistryTools"

i="REG_DWORD"

t="注册表开关"

r=WSHShell.RegRead(v)

g=1

If(r=1)Theng=0

Ifg=1Then

WSHShell.RegWritev,1,i

M=MsgBox("是否限制注册表编辑器?",4,t)

Else

WSHShell.RegDeletev

M=MsgBox("是否解除注册表编辑器限制?",4,t)

EndIf电脑游戏用

为进一步简化处理,在ActiveX控件与Web页面相连之前需设置好属性

总结一下就是，如果需要缓存，则用 Msxml2.XMLHTTP；否则应该用 Msxml2.ServerXMLHTTP。