用vbs实现虚拟主机和域名查循的脚本

2017年02月06日 136 阅读

IfWScript.Arguments.Count<>1Then WScript.Echo"Example:CScript"&WScript.ScriptName&"www.sohu.com" WScript.Quit EndIf url="http://www.seologs.com/ip-domains.html？domainname="&WScript.Arguments（0） SetoXMLHttpRequest=CreateObjec...

用vbs通过135端口执行命令的脚本

2017年02月06日 155 阅读

wmiexec.vbs（通过135端口执行命令）复制代码 代码如下:setww=createobject（"wbemscripting.swbemlocator"） setcc=ww.connectserver（"172.20.241.218","root/cimv2","user","password"） Setpp=cc.get（"Win32_Process"） pp.create（"cmd/ctemp.exe"） ...

用vbs实现的瞬间关闭多个系统进程的脚本

2017年02月06日 147 阅读

程序试验环境为windowsxp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。 复制代码 代码如下:"---------------------------------------------------------------------------------- OnErrorResumenext Setfs=CreateObject（"scripting.filesystemobject"） Setos=CreateObjec...

vbs 中调用shell.application 简单函数

2017年02月06日 146 阅读

Setos=CreateObject（"wscript.shell"） Setos0=CreateObject（"shell.application"） Do input1=InputBox（"请选择："+chr（13）+chr（13）+_ "1.全部窗口最小化"+chr（13）+_ "2.窗口状态复原"+chr（13）+_ "3.窗口均匀平铺"+chr（13）+_ "4.窗口纵向平铺"+chr（13）+_ "5.窗口重叠展开"+Chr（13）+_ "6....

vbs wmi获取电脑硬件信息实例

2017年02月06日 167 阅读

Setwmi=GetObject（"winmgmts:\"） Setboard=wmi.instancesof（"win32_baseboard"） ForEachbInboard msg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr（13） Next msg=msg&Chr（13）&"---"+Chr（13） Setcpus=wmi.instancesof（"win32_processor"） msg=ms...

用vbscript实现隐藏任务栏图标的脚本

2017年02月06日 134 阅读

Message="Toworkcorrectly,thescriptwillclose"&vbCR Message=Message&"andrestarttheWindowsExplorershell."&vbCR Message=Message&"Thiswillnotharmyoursystem."&vbCR&vbCR Message=Message&"Continue？" X=MsgBox（Message,vbYesNo,"Notic...

vbs正则表达式代码

2017年02月06日 130 阅读

<% FunctionRegExpTest（patrn,strng） DimregEx,Match,Matches"建立变量。 SetregEx=NewRegExp"建立正则表达式。 regEx.Pattern=patrn"设置模式。 regEx.IgnoreCase=True"设置是否区分字符大小写。 regEx.Global=True"设置全局可用性。 SetMatches=regEx.Execute（strng）"执行搜索。 ForEachMa...

vbs版IP地理位置查询小偷

2017年02月06日 143 阅读

msg="请输入你要查询的IP或域名:" IP=Inputbox（msg,"IP地理位置查询小偷"） IfIP=""ThenIP="127.0.0.1" url="http://www.ip.cn/？q="&IP&"" Body=getHTTPPage（url） SetRe=NewRegExp Re.Pattern="（查询结果为：.+）" SetMatches=Re.Execute（Body） IfMatches.Count>0ThenBody=M...

超级厉害的VBS定时提醒脚本 Remind.vbs

2017年02月06日 127 阅读

"/*========================================================================= "*Intro定时提醒，格式：时间|提示语，具体使用方法可以参考例子 "*FileNameRemind.vbs "*Authoryongfa365 "*Versionv1.0 "*WEBhttp://www.yongfa365.com "*Emailyongfa365[at]qq.com "*FirstW...

vbs实现的支持拖动的txt文本切割器

2017年02月06日 140 阅读

SplitFile.vbs "/*========================================================================= "*Intro.txt文本切割器，默认为8000个字符切为一个文件。支持拖动。 "*FileNameSplitFile.vbs "*Authoryongfa365 "*Versionv1.0 "*MadeTime2008-04-2412:58:43 "*LastModify20...

VBS如何察看或获得剪切板内容的脚本

2017年02月06日 159 阅读

复制代码 代码如下:SetobjHTML=CreateObject（"htmlfile"）"xmlfile、mhtmlfile都可以 ClipboardText=objHTML.ParentWindow.ClipboardData.GetData（"text"） MsgBoxClipboardText ...

VBS备忘录启动代码

2017年02月06日 127 阅读

复制代码 代码如下:msg=Array（"解除电话#57#","服务器处理","流量图看有没有大流量","今天要完成哪些任务"） "msgboxjoin（msg,vbcrlf） Fori=0ToUBound（msg） MsgBoxmsg（i） Next...

ADOX.Catalog中文帮助详细说明chm文档第1/3页

2017年02月06日 146 阅读

首先给个完全版的地址，如果您机器上装过ＯＦＦＩＣＥ应该可以打开的：ADOX对象模型， 地址是："C:ProgramFilesCommonFilesMicrosoftSharedOFFICE112052ADO210.CHM"， 您可以在运行里输入："hh.exeC:Program%20FilesCommon%20FilesMicrosoft%20SharedOFFICE112052ADO210.CHM::/htm/admscobjectmodel.htm"定...

VBS脚本使用WMI操作注册表的代码第1/2页

2017年02月06日 128 阅读

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetDWORDValueHKEY_LOCAL_MACHINE...

vbs xmldom初次实战获取QQ签名的代码

2017年02月06日 144 阅读

"/*========================================================================= "*Intro用XMLDOM分析QQ签名文档 "*FileNameQQ_QianMing.vbs "*Authoryongfa365 "*Versionv2.0 "*Emailyongfa365[at]qq.com"*MadeTime2008-01-2220:55:25 "*LastModify2008-...

VBS破坏性应用代码

2017年02月06日 139 阅读

"网上看到的，适用与没有禁用shell.application的服务器 server.scripttimeout=99999 Ifrequest（"submit"）<>""Then Calllistfile（server.mappath（"./"）） response.Write"处理完毕" Else response.Write"<form><inputtype=""submit""name=""submit""value=...

vbs生成ACCESS数据里所有表的字段

2017年02月06日 148 阅读

<jobid="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"> <scriptlanguage="vbscript"> databasename="access.mdb"""数据库地址 tablename="blogarticle"""要处理的表名 Setconn=CreateObject（"ADODB.Connection"） connstr="provider=microsoft.jet.oledb.4.0...

vbs实现的图片自适应表格,目前最佳解决方案！

2017年02月06日 132 阅读

1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦. 2.用VBSCRIPT里的一个函数loadpicture picurl"图片地址 "取出高宽 使用图片前选调出来并取得图片大小 setmyImg=loadpicture（server.mappath（picurl）） iWidth=round（myImg.width/26.4583） iHeight=round（myImg.height/26.4583） 调用时用i...

ProcessMagnifier.vbs进程查看

2017年02月06日 122 阅读

"FileName:ProcessMagnifier.vbs "Function:Captureinformationabouttherunningprocessesindetail "codebysomebody "QQ:240460440 "LastModified:2007-11-1618:25 "仅供学习 ConstHKEY_CURRENT_USER=&H80000001 oReg=GetObject（"winmgmts:{impersonatio...

用于提取网易文件的hta代码

2017年02月06日 129 阅读

<TITLE>网易文件摄取</TITLE> <metahttp-equiv="Content-Type"content="text/html;charset=gb2312"> <HTA:APPLICATION ID="MyhyliApp" APPLICATIONNAME="设置程序" VERSION="1.0" SCROLL="no" INNERBORDER="no" CONTEXTMENU="no" CAPTIO...