可以看到,属性页的内容包括“打开/另存为”、“颜色”、“字体”、“打印”和“帮助”五组选项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。