Welcome

首页 / 编程脚本

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

2017-02-06 21
复制代码 代码如下: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组件 微软精灵 揪出系统自带的宠物

2017-02-06 18
复制代码 代码如下:"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的属性和方法介绍

2017-02-06 17
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 列出该目录下所有文件和文件夹的类型,大小,和所有者

2017-02-06 18
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 木马查找）

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

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

2017-02-06 20
也利于修改 以下是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代码

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

文件夹定时自动备份 AutoBackUpFolder.vbs

2017-02-06 16
复制代码 代码如下:"/*========================================================================= " * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计 " * FileName AutoBackUpFolder.VBS " * Author yongfa365 " * Version v1.0 " ...

iis PHP安装脚本 PHPInstall.vbs V3.1

2017-02-06 17
复制代码 代码如下:"/*========================================================================= " * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起（不要放在C盘根目录下） " * （当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名），然后双击运行这个文件,<？phpinfo（）？> " * FileN...

HTA文件去除html控件认证和接收命令行参数

2017-02-06 33
一是利用hta 去掉htm的控件验证 hta1的代码如下： 复制代码 代码如下: <html> <head> <title>Sample HTML Application one</title> </head> <body onload="Viewer.document.location.href="activexcontrol.htm""> <iframe id="Viewer...

Rcmd.vbs [Remote Cmd with wmi]远程脚本

2017-02-06 18
复制代码 代码如下:On Error Resume Next Set outstreem=Wscript.stdout If （LCase（Right（Wscript.fullname,11））="Wscript.exe"） Then Set objShell=Wscript.CreateObject（"Wscript.shell"） objShell.Run（"cmd.exe /k cscript //nologo "&Chr（34）&Wscript.S...

Rcmd.vbs 1.01修正版 增加了下载功能

2017-02-06 19
这个down.vbs的用法看这里http://www.jb51.net/article/15506.htm代码： 复制代码 代码如下: On Error Resume Next Set outstreem=Wscript.stdout If （LCase（Right（Wscript.fullname,11））="Wscript.exe"） Then Wscript.Quit End If If Wscript.arguments.Count<4 Th...

vbs 更改环境变量

2017-02-06 18
更改 复制代码 代码如下: Set WshShell = Wscript.CreateObject（"Wscript.Shell"） WshShell.Environment（"user"）.Item（"path"）="c: uby" 移除： 复制代码 代码如下: WshShell.Environment（"USER"）.Remove（"LAST_LOGIN_DATE"） 附记一下这两个： 复制代码 代码如下: Set objAD = CreateOb...

excel2access vbs脚本

2017-02-06 21
复制代码 代码如下: "脚本说明 "code by NP "outDateFile变量为要写入的数据库名字 "Tables变量为Access数据库中的表名 "ROW变量为Access数据库中的列名 "Excel中的数据，直接为要写入的数据，不需要标题一类的 "例如：要写入数据库的列名为 " 系别|班别|姓名|学号|性别|政治面貌|出生年月|身份证号码|家庭地址|生源地毕业学校 "而Excel文件中，只需要以下面的例子开头就行了 " 城建系|城建0001|韦...

VBS 下载方法（CDO.MESSAGE）

2017-02-06 23
于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 复制代码 代码如下: "code by xiaolu "change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then ...

vbs实现myipneighbors 域名查询结果整理

2017-02-06 17
碰到虚拟机的时候,还是能偷点懒的 :-）复制代码 代码如下: On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit "code by NetPatch "enjoy it Set Fso=CreateObject（"Scripting.FileSystemObject"） Set Gofile=Fso.OpenTextFile（Arg（0）,1,fal...

将VBS或ASP中的代码转成一句话形式

2017-02-06 19
结果发现,有TABLE不行 类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp 复制代码 代码如下: On Error Resume Next Set Arg=Wscript.Arguments If Arg.Count=0 Then wscript.quit "code by NetPatch "enjoy it Set Fso=CreateObject（"...

修改 Gateway和DNS的vbs脚本

2017-02-06 17
复制代码 代码如下:Const T_GATEWAY = "1.1.1.1" "网关 Const T_NEWDNS1 = "2.2.2.2" "DNS1 Const T_NEWDNS2 = "3.3.3.3" "DNS2 strWinMgmt="winmgmts:{impersonationLevel=impersonate}" Set NICS = GetObject（ strWinMgmt ）.InstancesOf（"Win32_NetworkAdap...

VBS sendkeys 模拟击键操作 问题解决

2017-02-06 18
复制代码 代码如下:" ====================================== " VBS 中 SendKeys 模拟键盘击键 " 2009-07-26 " 刘林 " ====================================== Dim WshShell Set WshShell=WScript.CreateObject（"WScript.Shell"） WshShell.Run "cmd" " 让脚本等待1000毫秒...

用vbscript来添加ip策略 自动封IP

2017-02-06 17
程序主要是读取这个网站的iis日志，分析出其中的IP地址，用安全策略自动封闭。VBS代码如下： 复制代码 代码如下: "代码开始 Set fileobj=CreateObject（"Scripting.filesystemobject"） logfilepath="E:w3logW3SVC237ex070512old.log" "注意指定受攻击网站的日志路径。 "如果是虚拟主机，要查是哪个网站受攻击，可以查看：C:WINDOWSsystem...
<< 31 32 33 34 35 36 37 38 39 40 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图