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

2016年07月27日 56 阅读

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

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

2016年07月27日 56 阅读

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

VBS备忘录启动代码

2016年07月27日 56 阅读

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

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

2016年07月27日 52 阅读

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

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

2016年07月27日 48 阅读

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签名的代码

2016年07月27日 53 阅读

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

VBS破坏性应用代码

2016年07月27日 56 阅读

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

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

2016年07月27日 54 阅读

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

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

2016年07月27日 54 阅读

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进程查看

2016年07月27日 52 阅读

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

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

2016年07月27日 51 阅读

<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...

VBS取QQ或TM自动登录代码并防止关闭的脚本

2016年07月27日 56 阅读

"DimQQUIN SetobjWMIService=GetObject_ （"winmgmts:\"&"."&" ootcimv2"） Setps=objWMIService.ExecQuery_ （"SELECT*FROMWin32_process"） ForEachpsinps"列出系统中所有正在运行的程序 "foreachpsingetobject（"winmgmts:\\.\root\cimv2:win32_process"）.instances...

VBS调用WMI快速关闭IE的脚本

2016年07月27日 53 阅读

VBS调用WMI秒杀IE把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可， Setwmi=GetObject（"winmgmts:\."） Setpro_s=wmi.instancesof（"win32_process"） ForEachpInpro_s ifp.name="iexplore.exe"thenp.terminate（） Next 这所以要提取是因为：本人一般打开的网页都很多，关也要关半天，有了这个实在是太好了...

查看或修改Windows系列系统的序列号的vbs

2016年07月27日 52 阅读

"/*========================================================================= "*Intro查看或修改Windows系列系统的序列号（包括：2000,xp,2003），支持命令行“GetChangeWindowsSN.vbsWindows系统序列号”或直接运行输入Windows系统序列号。 "*FileNameGetChangeWindowsSN.vbs "*Authoryongf...

vbs adox提取数据库表名和列名的类

2016年07月27日 52 阅读

<！--#includevirtual="/include/conn.inc"--> <% "********************************* "*classname:ADOXDBOPR "*制作人:刘晓逸 "*作用:用adox进行数据库的操作 "*版本:1.0 "*www.jb51.net 脚本之家"********************************** ClassADOXDBOPR dimobjADOX...

vbs实现的eMule电驴自动关机脚本代码

2016年07月27日 62 阅读

Setfso=CreateObject（"Scripting.FileSystemObject"） Setws=WScript.CreateObject（"WScript.Shell"） Count=0 DoUntilCount<-1 chksize=fso.GetFolder（"C:ProgramFileseMuleTemp"）.Size Ifchksize=0Then WScript.Sleep120000 "ws.run"shutdown-p"...

vbs判读盘符被双击的脚本

2016年07月27日 61 阅读

复制代码 代码如下:dowhiletrue setWshShell=WScript.CreateObject（"WScript.Shell"） IFWshShell.AppActivate（"D:"）Then MsgBox"ok" wscript.quit EndIf loop试都不要试，就知道这段代码是错误的。因为WshShell.AppActivate考虑的是窗体的Caption中包含的字符或字符串，你用WshShell.AppActivate（"D:...

vbs下一些取特殊路径的方法总结

2016年07月27日 52 阅读

1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder（SpecialFolder），很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在C盘的话，那么返回的就是"C:Windows"这个路径字符串。1对应SystemFolder，GetSpecialFolder（1）返回"C:Windowssy...

vbscript禁用 启用fso的方法

2016年07月27日 53 阅读

scrrun.dll scrrun-scrrun.dll-DLL文件信息 DLL文件：scrrun或者scrrun.dll DLL名称：MicrosoftScriptRuntime 描述： scrrun.dll用于阅读和编写脚本和文本文件。 属于：MicrosoftScriptRuntime 系统DLL文件：是 常见错误：FileNotFound,MissingFile,ExceptionErrors PS：个人觉得站长看这个很好，禁用你的FSO，就算入侵...

getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

2016年07月27日 54 阅读

获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本 getSQLinfo.vbs "scripttogetSQLDATA/LOGSpaceUsed,Spaceunused, andSpaceFree "Author:FelipeFerreira,DanielMagrini "Date:05/07/07 "Version2,0 "@@TOCHANGE:::SERVERNAMEInstance,domainuser,passwordANDDATABSE...