2020-02-16 标签:vbs,16,进制,验证,特定,字符,实现,代码,如下,fastslz,file,wscript,dim,slz,set,adodb,stream,type

实现代码如下： '验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject("Adodb.Stream") slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 s

2020-02-16 标签:asp,获取,微软,安全,更新,列表,代码,小偷,程序,实现,如下,function,bytes,bstr,vin,cset,dim,bytesstream

实现代码如下：.*?" re.Global = True re.IgnoreCase = true re.MultiLine = false set matches = re.Execute(aa) dim tmp tmp = "" for each match in matches tmp = t

2020-02-16 标签:vbs,实现,php,md,file,函数,代码,如下,function,filename,raw,output,dim,hasheddata,utility,stream,set,capicom

实现代码如下： Function md5_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject("CAPICOM.HashedData") Set Utility = Crea

2020-02-16 标签:vbs,模拟,实现,php,sha,file,函数,效果,代码,如下,function,filename,raw,output,dim,hasheddata,utility,stream,set

实现代码如下： Function sha1_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject("CAPICOM.HashedData") Set Utility = Cre

2020-02-16 标签:vbs,字符串,日期,操作,相关,函数,asc,x,chr,转换,字符,filter,搜寻,数组,特定,格式

1. Asc(x),Chr(x):转换字符，字符码 2. Filter:搜寻字符串数组中的特定字符串 格式：v=filter(x,s[,include[,compare]]) 实例： Dim x()={"kjwang","wangkj","peter"} Dim v v=filter(x,"kj")

2020-02-16 标签:asp,数字,字符,排序,函数,代码,实现,如下,function,sort,ary,dim,i,firstvalue,secondvalue,true,until,false

实现代码如下： '排序 Function Sort1(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I

2020-02-16 标签:vbs,中将,gb,2312,unicode,代码,今天,写了,类似于,下面,程序,实现,如下,dim,http,set,msxml

今天写了一个类似于下面的程序： 实现代码如下： Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http

2020-02-16 标签:vbs,整人,代码,大集合,多年,收集,打开,好友,聊天,对话框,记下,在你,qq,昵称,下面,里的,xx,替换,就可以,自定义

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 实现代码如下： On Error Resume Next Dim wsh,ye set wsh=createobject

2020-02-16 标签:asp,操作,xml,文件,完整,实例,代码,实现,如下,程序,简介,完成,语言,文档,中指,节点,文本,增加,删除

实现代码如下： 0,则打印错误信息strError '------------------------------------------------ dim XMLMorntekDocument function ConnectXml(filename) dim strSourceFile str

2020-02-16 标签:做了,cdn,加速,asp,网站,获取,用户,真实,ip,程序,实现,代码,如下,function,checkip,checkstring,正则,判断,是否合法,dim

实现代码如下： function checkip(checkstring)'用正则判断IP是否合法 dim re1 set re1=new RegExp re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" re1.global=fa