2020-02-16 标签:php,mysql,数据库,操作,实现,代码,如下,db,package,author,yytcpt,无影,version,2008,03,27,copyrigth,http,www

实现代码如下：pconnect){$this->connection_id = mysql_pconnect($db_config["hostname"], $db_config["username"], $db_config["password"]);}else{$this->conn

2020-02-16 标签:写的,定时,关机,重启,vbs,脚本,dim,actionid,注销,actiontime,2006,13,42,30,时间,function

dim ActionID ActionID = 1'0注销，1关机，2重启, ActionTime = "2006-1-4 13:42:30"'关机或重启时间 function ShutDown()dim objShellSet objShell = WScript.CreateObject("Ws

2020-02-16 标签:vbs,实现,解除,注册表,cmd,regedit,taskmgr,限制,脚本,代码,error,resume,next,set,wshshell,wscript,shell,regdelete,hkcu

On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") With WScript.CreateObject("WScript.Shell") .RegDelete"HKCU\Software\Microsoft\

2020-02-16 标签:vbs,实现,注册表,开关,脚本,dim,wshshell,r,m,v,t,g,i,error,resume,next,set,wscript,shell

Dim WSHShell,r,M,v,t,g,i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Po

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

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.createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ") set wshshell = wscript.CreateObject(

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("?" &

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

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

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