vbs版IP地理位置查询小偷

2016年07月27日 87 阅读

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

2016年07月27日 87 阅读

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

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

2016年07月27日 84 阅读

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

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

2016年07月27日 87 阅读

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

VBS备忘录启动代码

2016年07月27日 87 阅读

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

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

2016年07月27日 82 阅读

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

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

2016年07月27日 68 阅读

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日 81 阅读

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

VBS破坏性应用代码

2016年07月27日 86 阅读

"网上看到的，适用与没有禁用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日 80 阅读

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

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

2016年07月27日 81 阅读

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日 76 阅读

"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日 77 阅读

<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日 77 阅读

"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日 80 阅读

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日 82 阅读

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

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

2016年07月27日 81 阅读

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

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

2016年07月27日 91 阅读

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日 93 阅读

复制代码 代码如下: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日 81 阅读

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