2020-02-16 标签:vb,n,et,读写,文件,代码,读取,写入,以下,示例,一行,文本,write,text,a,file,sub,dim,new

读取和写入文件 以下示例将一行文本写入文件。 ' Write text to a file Sub WriteTextToFile() Dim file As New System.IO.StreamWriter("c:test.txt") file.WriteLine("Here is the f

2020-02-16 标签:vb,n,et,验证,密码,是否,复杂,方法,可在,安全,系统,中使,来向,用户,授权,必须,难于,猜测出,攻击者

可在安全的系统中使用密码来向用户授权。但是，密码必须难于被未授权用户猜测出来。攻击者可以使用一种“字典攻击”程序，该程序将遍历一本字典（或不同语言的多本字典）中的所有单词，并测试是否有任何单词就是用户的密码。诸如“Yankees”或“Mustang”等弱密码可被很快猜测出来。诸如“?You'L1N3

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

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

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

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

2020-02-16 标签:vmt,修改,正则,桂军,改过来,上面,原来,下面,regex,re,n,ew,include,file,s

,然后改过来了,上面是原来的,下面修改的 //Regex re = new Regex("", _RegexOptions); Regex re = new Regex("", _RegexOptions);

2020-02-16 标签:vbs,asp,采集,文章,网页,编码,问题,intro,研究,很长时间,最近,设计,友情链接,检测,脚本,而与,链接,的人,页面,很可能

'/*=========================================================================' * Intro研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用

2020-02-16 标签:vbs,自动,安装,驱动程序,很简单,inf,文件,所在,文件夹,注册,注册表,比如,电脑,上的,通过,驱动,精灵,之类,软件,系统

其实，很简单，只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。比如： 我们把自己电脑上的驱动程序，通过 驱动精灵 之类的软件从系统中分离出来以后，如果想在下一次安装系统的时候，自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表，然后重新启动电脑，电脑会自动搜索硬件

2020-02-16 标签:vbs,解答,一道,初中,数学,i,x,y,找到,答案,未知数,加上,100,完全,平方,168,另外,正整数

一道初中数学题，用VBS找到答案 未知数～i 加上100成为一个完全平方数～X，i 加上168成为另外一个完全平方数～Y，i,x,y都是正整数，求出i,x,y --------------------------------------------------- n=0 msg1="未知数～i 加上

2020-02-16 标签:vbs,获取,radmin,注册表,信息,main,set,wsh,server,wscript,shell,radminpath,hkey,local,machine,system,v

" Response.write Parameter&":" '=========== ReadPassWord ========= If IsArray(ParameterArray) Then For i = 0 To UBound(ParameterArray) IfLen (hex(